Adding first trivial test for newCommunityParams(). Need many more.

sizespectrum · Aug 20, 2024 · 0ae7d04 · 0ae7d04
1 parent dc305b4
commit 0ae7d04
Showing 1 changed file with 6 additions and 0 deletions.
diff --git a/tests/testthat/test-wrapper_functions.R b/tests/testthat/test-wrapper_functions.R
@@ -122,3 +122,9 @@ test_that("Scaling model is set up correctly", {
     bm <- getBiomass(sim)
     expect_lt(max(abs(bm[1, ] - bm[6, ])), 1.3e-4)
 })
+
+# Community ----
+test_that("newCommunityParams works", {
+    newCommunityParams(z0 = 0.05, f0 = 0.5) |>
+        expect_warning(NA)
+})