test: reorganize and complete test-info.R

EMODnet · Feb 28, 2024 · a240fad · a240fad
1 parent db36e14
commit a240fad
Show file tree

Hide file tree

Showing 2 changed files with 16 additions and 3 deletions.
diff --git a/tests/testthat/_snaps/info.md b/tests/testthat/_snaps/info.md
@@ -0,0 +1,9 @@
+# emodnet_get_wfs_info() errors well
+
+    Code
+      emodnet_get_wfs_info()
+    Condition
+      Error:
+      ! Please provide a valid service name or wfs object.
+      x Both cannot be "NULL" at the same time.
+
diff --git a/tests/testthat/test-info.R b/tests/testthat/test-info.R
@@ -1,4 +1,4 @@
-test_that("wfs all info works", {
+test_that("emodnet_get_all_wfs_info() works", {
   forget_all()
   skip_if_offline()
   all_info <- emodnet_get_all_wfs_info()
@@ -7,7 +7,7 @@ test_that("wfs all info works", {
   expect_setequal(unique(all_info$service_name), emodnet_wfs()$service_name)
 })
 
-test_that("wfs info works on wfs object", {
+test_that("emodnet_get_wfs_info() works on wfs object", {
   forget_all()
   skip_if_offline()
   wfs <- create_biology_wfs()
@@ -21,7 +21,7 @@ test_that("wfs info works on wfs object", {
   expect_identical(unique(layer_info_all$service_url), "https://geo.vliz.be/geoserver/Emodnetbio/wfs") # nolint
 })
 
-test_that("emodnet_get_layer_info works", {
+test_that("emodnet_get_layer_info() works", {
   skip_if_offline()
   wfs <- create_biology_wfs()
   with_mock_dir("biology-info", {
@@ -37,3 +37,7 @@ test_that("emodnet_get_layer_info works", {
     class = c("tbl_df", "tbl", "data.frame")
   )
 })
+
+test_that("emodnet_get_wfs_info() errors well", {
+	expect_snapshot(emodnet_get_wfs_info(), error = TRUE)
+})