normal can go outside range

b-cubed-eu · Sep 9, 2024 · de1dbac · de1dbac
1 parent a63530b
commit de1dbac
Show file tree

Hide file tree

Showing 3 changed files with 5 additions and 3 deletions.
diff --git a/tests/testthat/test-grid_designation.R b/tests/testthat/test-grid_designation.R
@@ -322,7 +322,8 @@ test_that("number of observations be the same as output if aggregate = FALSE", {
   })
   expect_equal(grid_designation(observations_sf2, grid = grid_df1,
                                 randomisation = "normal",
-                                aggregate = FALSE) %>%
+                                aggregate = FALSE,
+                                seed = 123) %>%
                  nrow(),
                nrow(observations_sf2))
 })

diff --git a/tests/testthat/test-sample_from_binormal_circle.R b/tests/testthat/test-sample_from_binormal_circle.R
@@ -211,8 +211,6 @@ test_that("distance to new point falls within coordinate uncertainty", {
   })
 
   # in case of provided initial coordinateUncertaintyInMeters column
-  ## no seed
-  expect_true(test_smaller_distances(observations_sf2))
   ## different seeds
   expect_true(test_smaller_distances(observations_sf2, seed = 123))
   expect_true(test_smaller_distances(observations_sf2, seed = 456))

diff --git a/tests/testthat/test-sample_from_uniform_circle.R b/tests/testthat/test-sample_from_uniform_circle.R
@@ -187,6 +187,9 @@ test_that("distance to new point falls within coordinate uncertainty", {
   })
 
   # in case of provided initial coordinateUncertaintyInMeters column
+  ## no seed
+  expect_true(test_smaller_distances(observations_sf2))
+  ## different seeds
   expect_true(test_smaller_distances(observations_sf2, seed = 123))
   expect_true(test_smaller_distances(observations_sf2, seed = 456))
 })