Minor testthat

r-spatialecology · Oct 23, 2023 · 670a942 · 670a942
1 parent 7a5a0c4
commit 670a942
Show file tree

Hide file tree

Showing 2 changed files with 13 additions and 12 deletions.
diff --git a/tests/testthat/test-reconstruct_pattern.R b/tests/testthat/test-reconstruct_pattern.R
@@ -95,13 +95,14 @@ testthat::test_that("reconstruct_pattern returns errors", {
 
 testthat::test_that("reconstruct_pattern returns warnings", {
 
-  testthat::expect_warning(reconstruct_pattern(pattern = species_a,
-                                               n_random = 2, max_runs = 1,
-                                               return_input = FALSE, simplify = TRUE),
+  testthat::expect_warning(reconstruct_pattern(pattern = species_a, n_random = 2,
+                                               max_runs = 1, return_input = FALSE,
+                                               simplify = TRUE, verbose = FALSE),
                            regexp = "'simplify = TRUE' not possible for 'n_random > 1'.")
 
-  testthat::expect_warning(reconstruct_pattern(pattern = species_a,
-                                               n_random = 1, max_runs = 1,
-                                               simplify = TRUE),
+  testthat::expect_warning(reconstruct_pattern(pattern = species_a, n_random = 1,
+                                               max_runs = 1, simplify = TRUE,
+                                               verbose = FALSE),
                            regexp = "'simplify = TRUE' not possible for 'return_input = TRUE'.")
 })
+
diff --git a/tests/testthat/test-results_habitat_association.R b/tests/testthat/test-results_habitat_association.R
@@ -80,20 +80,20 @@ testthat::test_that("results_habitat_association returns breaks", {
 testthat::test_that("results_habitat_association returns warning if significance_threshold is not meaningful", {
 
   testthat::expect_warning(results_habitat_association(raster = landscape_classified$raster,
-                                                       pattern = random_a,
-                                                       significance_level = 0.75),
+                                                       pattern = random_a, significance_level = 0.75,
+                                                       verbose = FALSE),
                            regexp = "Make sure 'signifcance_level' is meaningful (e.g. 'significance_level = 0.05').",
                            fixed = TRUE)
 })
 
 testthat::test_that("results_habitat_association returns warning if more than 25 classes are present", {
 
-  testthat::expect_warning(results_habitat_association(raster = terra::rast(landscape),
-                                                       pattern = random_a),
+  testthat::expect_warning(results_habitat_association(raster = terra::rast(landscape), pattern = random_a,
+                                                       verbose = FALSE),
                            regexp = "The raster has more than 25 classes. You can ignore this warning if your raster data is discrete.")
 
-  testthat::expect_warning(results_habitat_association(raster = raster_random_cont,
-                                                       pattern = species_a),
+  testthat::expect_warning(results_habitat_association(raster = raster_random_cont, pattern = species_a,
+                                                       verbose = FALSE),
                            regexp = "The raster has more than 25 classes. You can ignore this warning if your raster data is discrete.")
 })