tests/testthat/test_baa_get_file_fingerprint.R

test_that("gets the correct fingerprint", {
  x <- n2k_manifest(
    data.frame(
      fingerprint = "1", parent = NA_character_, stringsAsFactors = FALSE
    )
  )
  expect_identical(x@Fingerprint, get_file_fingerprint(x))
})
INBO-Natura2000/n2kanalysis documentation built on Feb. 15, 2024, 11:24 a.m.