validate tests

Polkas · Oct 20, 2023 · 4234a2e · 4234a2e
1 parent 692c798
commit 4234a2e
Show file tree

Hide file tree

Showing 2 changed files with 22 additions and 0 deletions.
diff --git a/tests/testthat/Rplots.pdf b/tests/testthat/Rplots.pdf
diff --git a/tests/testthat/test-cat2cat_validate.R b/tests/testthat/test-cat2cat_validate.R
@@ -19,6 +19,28 @@ testthat::test_that("validate_mappings correct", {
 
 testthat::test_that("validate_data incorrect", {
   testthat::expect_error(validate_data(list()), 'inherits\\(data\\$old, "data.frame"\\) is not TRUE')
+
+  data_simple <- list(old = occup_old, new = occup_new, cat_var_old = "code", cat_var_new = "code", time_var = "WRONG")
+
+  testthat::expect_error(
+    validate_data(data_simple),
+    'all\\(c\\(data\\$cat_var_old, data\\$time_var\\) \\%in\\% colnames\\(data\\$old\\)\\) is not TRUE'
+  )
+
+  data_simple <- list(old = occup_old, new = occup_new, cat_var_old = "WRONG", cat_var_new = "code", time_var = "year")
+
+  testthat::expect_error(
+    validate_data(data_simple),
+    'all\\(c\\(data\\$cat_var_old, data\\$time_var\\) \\%in\\% colnames\\(data\\$old\\)\\) is not TRUE'
+  )
+
+  data_simple <- list(old = occup_old, new = occup_new, cat_var_old = "code", cat_var_new = "WRONG", time_var = "year")
+
+  testthat::expect_error(
+    validate_data(data_simple),
+    'all\\(c\\(data\\$cat_var_new, data\\$time_var\\) \\%in\\% colnames\\(data\\$new\\)\\) is not TRUE'
+  )
+
 })
 
 testthat::test_that("validate_data correct", {