test: switching from testthat to tinytest. Closes #4

DESCRIPTION

@@ -12,16 +12,15 @@ Language: en-US
 Roxygen: list(markdown = TRUE)
 RoxygenNote: 7.3.2
 Imports: 
+    cli,
     checkmate,
-    graphics,
-    grDevices,
     reticulate,
     S7 (>= 0.2.0),
-    stats,
-    cli
+    graphics,
+    grDevices,
+    stats
 Suggests: 
-    terra (>= 1.7),
-    testthat (>= 3.0.0)
-Config/testthat/edition: 3
+    tinytest,
+    terra
 SystemRequirements: Python (>= 3.8.0), numpy, whitebox-workflows (>= v1.3.3)
 Config/Needs/website: rmarkdown, waldo, bench, whitebox, ggplot2, tidyr

NAMESPACE

@@ -18,6 +18,7 @@ export(as_matrix)
 export(as_rast)
 export(as_vector)
 export(as_wbw_raster)
+export(expect_snapshot)
 export(num_cells)
 export(print_geotiff_tags)
 export(stdev)

R/checks.R

@@ -48,12 +48,4 @@ check_input_file <-
     }
   }
 
-#' Skip tests if we don't have the 'wbw' module
-#' @rdname checks
-#' @keywords internal
-skip_if_no_wbw <- function() {
-  have_wbw <- reticulate::py_module_available("whitebox_workflows")
-  if (!have_wbw) {
-    testthat::skip("WbW is not available for testing")
-  }
-}
+

R/utils_documentation.R

@@ -56,3 +56,29 @@ rd_example <-
       sep = "\n"
     )
   }
+
+#' Tinytest Snapshot
+#' https://github.com/etiennebacher/astgrepr/
+#' blob/ea91137bdb10d22c7a988a8cb1b0bc896935fb0d/R/tinytest.R
+#'
+#' @keywords internal
+#' @export
+expect_snapshot <- function(label, current) {
+  snapshot_file <- file.path("_snapshots", paste0(label, ".txt"))
+  current2 <- paste(utils::capture.output(print(current)), collapse = "\n")
+
+  if (!dir.exists(dirname(snapshot_file))) {
+    dir.create(dirname(snapshot_file), showWarnings = FALSE, recursive = TRUE)
+  }
+  if (!file.exists(snapshot_file)) {
+    cat(current2, file = snapshot_file, sep = "\n")
+    message("Creating file ", snapshot_file)
+    return(invisible())
+  }
+  target <- paste(readLines(snapshot_file, warn = FALSE), collapse = "\n")
+  tinytest::tinytest(
+    result = identical(current2, target),
+    call = sys.call(sys.parent(1)),
+    diff = paste0("Check content of ", snapshot_file)
+  )
+}

tests/test.R

@@ -0,0 +1,11 @@
+# Run package tests
+if (requireNamespace("tinytest", quietly = TRUE)) {
+  # Initialize session
+  have_wbw <- reticulate::py_module_available("whitebox_workflows")
+  have_numpy <- reticulate::py_module_available("numpy")
+  if (!have_wbw & !have_numpy) {
+    wbw_install(system = TRUE)
+  }
+
+  tinytest::test_package("wbw", pattern = "^test_.*\\.[rR]$")
+}