Update tests

Author: steffilazerte

tests/testthat/_snaps/12_cosewic_tools/p-basic.svg

@@ -19,7 +19,7 @@ test_that("Get counts for collections", {
   expect_s3_class(c1, "data.frame")
   expect_gt(nrow(c1), 0)
   expect_true(all(c1$collection %in% c("CBC", "BBS")))
-  expect_true(all(c1$access %in% c("full", "no access")))
+  expect_true(all(c1$access %in% c("full", "by request")))
 
   expect_silent(
     c2 <- nc_count(
@@ -94,7 +94,7 @@ test_that("Counts return permissions", {
     sort(unique(c_sample_all[["access"]])),
     c("by request", "full", "no access")
   )
-  expect_equal(sort(unique(c_sample_all[["akn_level"]])), 2:5)
+  expect_true(all(c_sample_all[["akn_level"]] %in% c(NA, 2:5)))
 })
 
 test_that("Counts error when no data returned", {
@@ -171,7 +171,7 @@ test_that("Data filters work as expected", {
   expect_equal(min(as.numeric(d1$survey_year), na.rm = TRUE), 2000)
   expect_equal(max(as.numeric(d1$survey_year), na.rm = TRUE), 2000)
 
-  # mult species/year
+  # multiple species/year
   expect_silent(
     d2 <- nc_data_dl(
       collections = "ABBIRDRECS",
@@ -225,7 +225,7 @@ test_that("Filter region works as expected", {
   # IBA
   expect_silent(
     d <- nc_data_dl(
-      region = list(iba = "AB001"),
+      region = list(iba = "AB001"), years = 2000,
       username = "testuser",
       verbose = FALSE,
       info = "nc_test"

tests/testthat/_snaps/12_cosewic_tools/p-map.svg

@@ -15,6 +15,14 @@ test_that("prep_spatial() diff cols", {
   expect_equal(format(sf::st_crs(s)), "NAD83 / Statistics Canada Lambert")
 })
 
+test_that("prep_spatial() projected", {
+  b <- dplyr::rename(bcch, sp = species_id, rec = record_id)
+  expect_error(
+    prep_spatial(b, crs = 4326),
+    "CRS is unprojected, area calculations should use a projected CRS"
+  )
+})
+
 test_that("cosewic_eoo()", {
   # Lambert
   df <- prep_spatial(bcch, crs = 3347)
@@ -249,6 +257,27 @@ test_that("cosewic_iao() no cols", {
   expect_snapshot_value(a, style = "json2")
 })
 
+test_that("cosewic_iao() custom IAO grid", {
+  grid <- sf::st_read(
+    system.file(
+      "extdata",
+      "iao_bcch_grid.gpkg",
+      package = "naturecounts"
+    ),
+    quiet = TRUE
+  )
+  df <- prep_spatial(bcch, crs = "ESRI:102001")
+  expect_message(
+    a <- cosewic_iao(
+      df,
+      record = "record_id",
+      spatial = FALSE,
+      crs = "ESRI:102001",
+      grid = grid
+    ),
+    "User\\-provided grid has cell size of 2 \\[km\\]"
+  )
+})
 
 test_that("cosewic_ranges()", {
   # Lambert
@@ -516,6 +545,46 @@ test_that("cosewic_ranges() eoo clip", {
   expect_true(all(r0$eoo$eoo_p95 > r1$eoo$eoo_p95))
 })
 
+test_that("cosewic_ranges() either", {
+  expect_silent(s0 <- cosewic_ranges(bcch))
+  expect_silent(s1 <- cosewic_ranges(bcch, which = "eoo"))
+  expect_silent(s2 <- cosewic_ranges(bcch, which = "iao"))
+  expect_equal(s0$eoo, s1$eoo)
+  expect_equal(s0$iao, s2$iao)
+})
+
+test_that("cosewic_ranges() errors/warnings if using unprojected CRS", {
+  expect_error(
+    cosewic_ranges(bcch, crs = 4326),
+    "CRS is unprojected, area calculations should use a projected CRS"
+  )
+})
+
+
+test_that("cosewic_ranges() custom IAO grid", {
+  grid <- sf::st_read(
+    system.file(
+      "extdata",
+      "iao_bcch_grid.gpkg",
+      package = "naturecounts"
+    ),
+    quiet = TRUE
+  )
+  expect_message(
+    a <- cosewic_ranges(bcch, iao_grid = grid),
+    "User\\-provided grid has cell size of 2 \\[km\\]"
+  )
+  expect_type(a, "list")
+  expect_named(a, c("iao", "eoo"))
+  expect_s3_class(a$iao, "sf")
+
+  # Error when grid is wrong CRS
+  expect_error(
+    cosewic_ranges(bcch, crs = 3347, iao_grid = grid),
+    "`crs` must match the CRS of `iao\\_grid`"
+  )
+})
+
 
 test_that("cosewic_plot()", {
   expect_silent(r1 <- cosewic_ranges(bcch, crs = 3347))