add unit tests for optional data tests.

RobLBaker · Sep 19, 2024 · bf26ef8 · bf26ef8
1 parent a31ac96
commit bf26ef8
Showing 1 changed file with 17 additions and 0 deletions.
diff --git a/tests/testthat/test-optional_data_checks.R b/tests/testthat/test-optional_data_checks.R
@@ -0,0 +1,17 @@
+good_dir <- test_path("good")
+bad_dir <- test_path("bad")
+bicy_meta <- load_metadata(test_path("good", "BICY_good"))
+buis_meta <- load_metadata(test_path("good", "BUIS_good"))
+
+# ---- test_pii_meta_emails
+
+test_that("test_pii_data_emails finds true negatives",
+          {
+            msg <- "Data files do not appear to contain any personal emails."
+            expect_message(test_pii_data_emails(here::here(good_dir,
+                                                           "BICY_good")),
+                           msg)
+          }
+)
+
+# ----