test(idx_*)

dimfalk · Feb 28, 2024 · 7d558fb · 7d558fb
1 parent 6b0d0eb
commit 7d558fb
Show file tree

Hide file tree

Showing 5 changed files with 15 additions and 9 deletions.
diff --git a/R/idx_exists.R b/R/idx_exists.R
@@ -7,7 +7,6 @@
 #'
 #' @examples
 #' idx_exists("49125")
-#' idx_exists("40477")
 idx_exists <- function(x = NULL) {
 
   # debugging ------------------------------------------------------------------

diff --git a/man/idx_exists.Rd b/man/idx_exists.Rd
diff --git a/tests/testthat/test-get_idx.R b/tests/testthat/test-get_idx.R
@@ -4,7 +4,7 @@ test_that("Extraction of 'INDEX_RC' based on WGS84 coordinates works.", {
     sf::st_point(
       c(6.104606, 50.768626)
     ),
-    crs = 4326
+    crs = "epsg:4326"
   )
 
   expect_equal(get_idx(p1), "143089")
@@ -16,7 +16,7 @@ test_that("Extraction of 'INDEX_RC' based on ETRS89/UTM32N coordinates works.",
     sf::st_point(
       c(295840, 5628093)
     ),
-    crs = 25832
+    crs = "epsg:25832"
   )
 
   expect_equal(get_idx(p2), "143089")
@@ -28,7 +28,7 @@ test_that("Extraction of 'INDEX_RC' based on DHDN/GK3 coordinates works.", {
     sf::st_point(
       c(2507425, 5625914)
     ),
-    crs = 31466
+    crs = "epsg:31466"
   )
 
   expect_equal(get_idx(p3), "143089")

diff --git a/tests/testthat/test-idx_build.R b/tests/testthat/test-idx_build.R
@@ -1,10 +1,12 @@
 test_that("Building of 'INDEX_RC' out of X and Y information works.", {
 
-  expect_equal(idx_build(col = 125, row = 49), "49125")
+  expect_equal(idx_build(col = 0, row = 0), "0")
 
-  expect_equal(idx_build(col = 1, row = 0), "1")
+  expect_equal(idx_build(col = 1, row = 2), "2001")
 
-  expect_equal(idx_build(col = 34, row = 36), "36034")
+  expect_equal(idx_build(col = 125, row = 49), "49125")
 
   expect_equal(idx_build(col = 5, row = 102), "102005")
+
+  expect_equal(idx_build(col = 299, row = 299), "299299")
 })
diff --git a/tests/testthat/test-idx_exists.R b/tests/testthat/test-idx_exists.R
@@ -1,9 +1,15 @@
 test_that("Sample grid cell is available in the dataset.", {
 
+  expect_true(idx_exists("48122"))
+
   expect_true(idx_exists("49125"))
+
+  expect_true(idx_exists("224148"))
 })
 
 test_that("Random grid cell is not available in the dataset.", {
 
-  expect_false(idx_exists("foobar"))
+  expect_false(idx_exists("0"))
+
+  expect_false(idx_exists("40477"))
 })