code coverage

tests/testthat/test-meteo_noaa_co2.R

@@ -0,0 +1,6 @@
+test_that("meteo_noaa_hourly", {
+ co2 = meteo_noaa_co2()
+ expect_true(is.data.frame(co2))
+ expect_true(nrow(co2) > 700)
+ expect_true(ncol(co2) >= 7)
+})

tests/testthat/test-nearest_stations_imgw.R

@@ -1,12 +1,34 @@
 test_that("nearest_stations_imgw", {
- x = nearest_stations_imgw(
+ x = suppressWarnings(nearest_stations_imgw(
  type = "meteo",
  rank = "synop",
  year = 2018,
  add_map = TRUE,
  point = NULL,
  no_of_stations = 50
- )
+ )) 
+ # added suppresswarnings as encoding may give extra warnings:
  testthat::expect_true(nrow(x) <= 50)
+
+ # too many values provided for points 
+ testthat::expect_error(suppressWarnings(nearest_stations_imgw(
+ type = "meteo",
+ rank = "synop",
+ year = 2010,
+ point = c(15, 50, 100),
+ add_map = FALSE
+ )
+ )
+ )
+
+ # too high values in lon/lat:
+ testthat::expect_error(nearest_stations_imgw(
+ type = "meteo",
+ rank = "synop",
+ year = 2010,
+ point = c(999, 999),
+ add_map = FALSE
+ )
+ )
 
 })

tests/testthat/test-stations_ogimet.R

@@ -1,9 +1,15 @@
 test_that("stations_ogimet", {
- x = suppressWarnings(stations_ogimet(country = "Australia", add_map = FALSE))
+ x = suppressWarnings(stations_ogimet(country = "Australia", add_map = TRUE))
 
  testthat::expect_true(nrow(x) >= 100)
  testthat::expect_equal(ncol(x), 5)
 
+ if (requireNamespace("maps", quietly = TRUE)) {
+ x = suppressWarnings(stations_ogimet(country = "Australia", add_map = TRUE))
+ }
+
+ expect_error(stations_ogimet(country = NULL, add_map = FALSE))
+ expect_error(stations_ogimet(date = NULL, add_map = FALSE))
 })
 
 

tests/testthat/test-test_url.R

@@ -0,0 +1,8 @@
+
+test_that("test_url", {
+
+ expect_message(test_url(link = "https://httpbin.org/status/404", 
+ output = output))
+
+})
+