Add two more tests

KWB-R · Nov 28, 2023 · 672e298 · 672e298
1 parent 2396d3a
commit 672e298
Show file tree

Hide file tree

Showing 2 changed files with 18 additions and 0 deletions.
diff --git a/tests/testthat/test-function-getExampleData.R b/tests/testthat/test-function-getExampleData.R
@@ -0,0 +1,11 @@
+test_that("getExampleData() works", {
+
+  f <- kwb.en13508.2:::getExampleData
+
+  result <- f()
+
+  expect_identical(
+    names(result), 
+    c("header.info", "inspections", "observations")
+  )
+})
diff --git a/tests/testthat/test-function-getExampleFile.R b/tests/testthat/test-function-getExampleFile.R
@@ -0,0 +1,7 @@
+test_that("getExampleFile() works", {
+
+  f <- kwb.en13508.2:::getExampleFile
+
+  expect_true(file.exists(f()))
+
+})