Write unit tests

atorus-research · Apr 25, 2024 · ced13e3 · ced13e3
1 parent 43a67e7
commit ced13e3
Show file tree

Hide file tree

Showing 3 changed files with 17 additions and 1 deletion.
diff --git a/R/metacore.R b/R/metacore.R
@@ -438,7 +438,7 @@ get_keys <- function(metacode, dataset){
    subset_data <- metacode$ds_vars %>%
       filter(dataset == dataset_val)
    if(nrow(subset_data) == 0){
-      stop(paste0(dataset_val, " not found in the value_spec table. Please check the dataset name"))
+      stop(paste0(dataset_val, " not found in the ds_vars table. Please check the dataset name"))
    }
 
    keys <- subset_data %>%

diff --git a/man/get_keys.Rd b/man/get_keys.Rd
diff --git a/tests/testthat/test-metacore.R b/tests/testthat/test-metacore.R
@@ -137,3 +137,18 @@ test_that("pulling out control terminology works", {
    )
    })
 
+test_that("get_keys works", {
+   test <- spec_to_metacore(metacore_example("p21_mock.xlsx"), quiet = TRUE)
+   #Testing Errors
+   ## Domain not in ds_vars table
+   expect_error(get_keys(test, DS))
+   ## Missing dataset name
+   expect_error(get_keys(test))
+   #Testing Correct Output
+   expect_equal(
+      get_keys(test, DM),
+      tibble(variable = c("STUDYID", "USUBJID"), key_seq = c(1L, 2L)) %>%
+         add_labs(variable = "Variable Name",
+                  key_seq = "Sequence Key")
+   )
+})