add tests

tests/testthat/test-get_dataset_additional_info.R

@@ -0,0 +1,7 @@
+test_that("returns data in the expected format", {
+  expect_s3_class(get_dataset_additional_info("weekly-accident-and-emergency-activity-and-waiting-times"), "tbl_df")
+})
+
+test_that("returned tibble has one row", {
+  expect_equal(nrow(get_dataset_additional_info("weekly-accident-and-emergency-activity-and-waiting-times")), 1)
+})

tests/testthat/test-get_latest_resource.R

@@ -0,0 +1,10 @@
+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(dplyr::slice(list_datasets(), 1)), 1)
+})
+
+test_that("returns data in the expected format", {
+  expect_s3_class(list_datasets(), "tbl_df")
+})