diff --git a/tests/testthat/test-wrapper_functions.R b/tests/testthat/test-wrapper_functions.R
index 17f9682b..906a2785 100644
--- 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)
+})