updating tests to improve coverage

tests/testthat/test-status_plot.r

@@ -1,5 +1,5 @@
 library(cde)
-context("status_plot")
+context("testing status plots")
 
 test_that("invalid column specified returns an error", {
   # retrieve data for column "Aardvark"
@@ -35,3 +35,10 @@ test_that("end date outside available range returns an error", {
   # retrieve data for years outside possible range
   expect_error(status_plot("Avon Hampshire", "MC", startyr=2012, endyr=2018))
 })
+
+test_that("function returns a vector of given length", {
+  # plot for Avon Warwickshire MC chemical status
+  test_plot<-status_plot("Avon Warwickshire", "MC", level="Chemical")
+  # check that the vector has a length of 8
+  expect_true(length(test_plot)== 8)
+})

tests/testthat/test-wfd_status.r

@@ -1,20 +1,18 @@
 library(cde)
-context("wfd_status")
+context("testing wfd status downloads")
 
 test_that("wfd_status returns a dataframe", {
   # retrieve data for specific waterbody
   testframe<-wfd_status("GB520804714300", "WBID")
   # check that it outputs a dataframe object
   expect_true(is.data.frame(testframe))
-
 })
 
 test_that("dimensions of dataframe are as expected", {
   # retrieve data for Avon Warwickshire MC
   test_mc_avon<-wfd_status("Avon Warwickshire", "MC")
-  # check that the dimensions are 516 rows, 17 cols
+  # check that the dimensions are 516 rows, 18 cols
   expect_true(all(dim(test_mc_avon)== c(594, 18)))
-
 })
 
 test_that("invalid column specified returns an error", {

tests/testthat/test_download_functions.r

@@ -6,7 +6,6 @@ test_that("download_ea returns a dataframe", {
   testframe<-download_ea("GB520804714300", "WBID")
   # check that it outputs a dataframe object
   expect_true(is.data.frame(testframe))
-
 })
 
 
@@ -16,5 +15,10 @@ test_that("zip_download returns a dataframe", {
   testframe<-zip_download(test_url)
   # check that it outputs a dataframe object
   expect_true(is.data.frame(testframe))
-
+})
+
+
+test_that("tryingto download a nonsense column returns an error", {
+  # retrieve data for impossible year range
+  expect_error(download_ea("GB520804714300", "Aardvark"))
 })