diff --git a/tests/testthat/test-function-getExampleData.R b/tests/testthat/test-function-getExampleData.R
new file mode 100644
index 0000000..590bbdb
--- /dev/null
+++ 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
new file mode 100644
index 0000000..2a4570e
--- /dev/null
+++ 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()))
+
+})