add simple test for list_datasets.R

Public-Health-Scotland · Jul 3, 2024 · afd94aa · afd94aa
1 parent 975cf62
commit afd94aa
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-list_datasets.R b/tests/testthat/test-list_datasets.R
@@ -0,0 +1,6 @@
+test_that("returns more than 0 datasets", {
+  #select the first row of the tibble and get the
+  #number of rows. If no datasets were returned
+  #this will be 0
+  expect_equal(nrow(slice(list_datasets(), 1)), 1)
+})