tests: codecov fix

R/crs.R

@@ -3,20 +3,24 @@
 #'
 #' @eval rd_input_raster("x")
 #'
+#' @examples
+#' f <- system.file("extdata/dem.tif", package = "wbw")
+#' wbw_read_raster(f) |>
+#'   wbw_ext()
 #' @export
 wbw_ext <-
   S7::new_generic(
     name = "wbw_ext",
     dispatch_args = "x",
     fun = function(x) {
+      # Add some input validation
       S7::S7_dispatch()
     }
   )
 
 S7::method(wbw_ext, WhiteboxRaster) <-
   function(x) {
     # Checks
-    check_env(wbe)
     conf <- x@source$configs
     WhiteboxExtent(
       west = conf$west,

tests/test-setup.R

@@ -0,0 +1,5 @@
+library(wbw)
+
+raster_path <-
+  system.file("extdata/dem.tif", package = "wbw")
+x <- wbw_read_raster(raster_path)

tests/testthat.R

@@ -15,3 +15,5 @@ have_numpy <- reticulate::py_module_available("numpy")
 if (!have_wbw & !have_numpy) {
   wbw_install(system = TRUE)
 }
+
+test_check("wbw")

tests/testthat/_snaps/crs.md

@@ -0,0 +1,11 @@
+# WhiteboxExtent recognized correctly
+
+    Code
+      ext
+    Output
+      <wbw::WhiteboxExtent>
+       @ west : num 1925449
+       @ east : num 1929446
+       @ south: num 5582091
+       @ north: num 5585717
+

tests/testthat/test-checks.R

@@ -77,3 +77,22 @@ test_that("check_input_file works for raster files", {
     check_input_file(temp_wrong, "raster")
   )
 })
+
+test_that("check_input_file validates type argument", {
+  temp_file <- tempfile(fileext = ".tif")
+  file.create(temp_file)
+  on.exit(unlink(temp_file))
+
+  # Should error with invalid type
+  expect_error(
+    check_input_file(temp_file, "invalid_type")
+  )
+})
+
+test_that("check_env works with wbe environment", {
+  skip_if_no_wbw()
+
+  # Test with actual wbe environment
+  expect_no_error(check_env(wbe))
+
+})

tests/testthat/test-conversions.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source('../test-setup.R')
 
 test_that(
   "conversion to radians works",

tests/testthat/test-crs.R

@@ -0,0 +1,18 @@
+source("../test-setup.R")
+
+test_that("WhiteboxExtent recognized correctly", {
+  # Test the extent extraction
+  ext <- wbw_ext(x)
+  expect_s7_class(ext, WhiteboxExtent)
+  expect_snapshot(ext)
+
+  # Test individual components
+  expect_identical(ext@west, x@source$configs$west)
+  expect_identical(ext@east, x@source$configs$east)
+  expect_identical(ext@south, x@source$configs$south)
+  expect_identical(ext@north, x@source$configs$north)
+
+  # Test error cases
+  expect_error(wbw_ext("x"), class = "S7_error_method_not_found")
+  expect_error(wbw_ext(NULL), class = "S7_error_method_not_found")
+})

tests/testthat/test-dims.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source('../test-setup.R')
 
 test_that(
   "WhiteboxRaster dimensions detected correctly",

tests/testthat/test-filter.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source('../test-setup.R')
 
 test_that(
   "filter fails",

tests/testthat/test-geomorphometry.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source('../test-setup.R')
 
 test_that(
   "geomorphometry fails",

tests/testthat/test-io.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source('../test-setup.R')
 
 test_that(
   desc = "wbw_read function works",

tests/testthat/test-math.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source('../test-setup.R')
 
 test_that(
   "wbw_random_sample works",

tests/testthat/test-primitives.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source('../test-setup.R')
 
 test_that(
   "as_matrix converts WhiteboxRaster to matrix",
@@ -61,3 +59,50 @@ test_that(
     expect_equal(round(variance(x), 1), round(var(as.vector(m)), 1))
   }
 )
+
+test_that("summary function works correctly", {
+
+  # Test summary output
+  expect_output(summary(x), "minimum")
+  expect_output(summary(x), "maximum")
+  expect_output(summary(x), "average")
+  expect_output(summary(x), "standard deviation")
+})
+
+test_that("summary stats handle edge cases", {
+
+  # Test error cases with invalid raster
+  expect_error(max(invalid_raster))
+  expect_error(min(invalid_raster))
+  expect_error(median(invalid_raster))
+  expect_error(mean(invalid_raster))
+  expect_error(stdev(invalid_raster))
+  expect_error(variance(invalid_raster))
+
+  # Test with raster containing NA values
+  skip_if_not_installed("terra")
+  f <- system.file("ex/elev.tif", package="terra")
+  r <- wbw_read_raster(f)
+
+  # Test that summary stats handle NA values
+  expect_no_error(max(r))
+  expect_no_error(min(r))
+  expect_no_error(mean(r))
+  expect_no_error(median(r))
+  expect_no_error(stdev(r))
+  expect_no_error(variance(r))
+})
+
+test_that("summary stats are consistent with matrix calculations", {
+
+  m <- as_matrix(x)
+  v <- as.vector(m)
+
+  # More precise testing of summary statistics
+  expect_equal(max(x), max(m, na.rm = TRUE))
+  expect_equal(min(x), min(m, na.rm = TRUE))
+  expect_equal(mean(x), mean(m, na.rm = TRUE))
+  expect_equal(median(x), median(v, na.rm = TRUE), tolerance = 1e-5)
+  expect_equal(stdev(x), sd(v, na.rm = TRUE), tolerance = 1e-5)
+  expect_equal(variance(x), var(v, na.rm = TRUE), tolerance = 1e-5)
+})

tests/testthat/test-system.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source('../test-setup.R')
 
 test_that(
   "setting custom max_procs fails",

tests/testthat/test-terra.R

@@ -1,6 +1,4 @@
-raster_path <-
-  system.file("extdata/dem.tif", package = "wbw")
-x <- wbw_read_raster(raster_path)
+source("../test-setup.R")
 
 test_that(
   "WhiteboxRaster to SpatRaster conversion works",
@@ -111,4 +109,3 @@ test_that(
     )
   }
 )
-