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/n2kanalysis documentation built on Feb. 17, 2024, 1:32 a.m.