new function and tests

evanodell · Oct 10, 2019 · 8ce4e3b · 8ce4e3b
1 parent 9176487
commit 8ce4e3b
Show file tree

Hide file tree

Showing 3 changed files with 19 additions and 1 deletion.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,6 +1,6 @@
 Package: cqcr
 Title: Access 'Care Quality Commission' Data
-Version: 0.1.2
+Version: 0.1.2.9000
 Authors@R: 
     person(given = "Evan",
            family = "Odell",

diff --git a/NEWS.md b/NEWS.md
@@ -1,4 +1,9 @@
 
+# cqcr 0.1.2.9000
+
+New `cqc_location_details` function.
+
+
 # cqcr 0.1.2
 
 Improvements to MAN pages

diff --git a/tests/testthat/test-locations.R b/tests/testthat/test-locations.R
@@ -66,4 +66,17 @@ test_that("big location works", {
 
   expect_true(tibble::is_tibble(loc9))
   expect_length(loc9, 3)
+
+  ### Location details test --------------------------
+
+  loc4_details <- cqc_location_details(loc4)
+
+  expect_true(is.list(loc4_details))
+  expect_equal(class(loc4_details[[1]]), "list")
+  # cuz why not use two different ways of checking?
+
+  loc3_details <- cqc_location_details(loc3, verbose = FALSE)
+  expect_true(is.list(loc3_details))
+  expect_equal(class(loc3_details[[1]]), "list")
+
 })