another test

traitecoevo · Nov 19, 2024 · 0482835 · 0482835
1 parent 1a8c663
commit 0482835
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-field_diversity.R b/tests/testthat/test-field_diversity.R
@@ -0,0 +1,10 @@
+ausplot.pi.data <- ausplotsR::get_ausplots(my.Plot_IDs=
+                                             c("NTASTU0002"), veg.PI=TRUE)$veg.PI
+
+test_that('field_diversity works', {
+field_diversity <- calculate_field_diversity(ausplot.pi.data)
+expect_true(
+field_diversity$field_diversity$species_richness==
+  length(na.omit(unique(ausplot.pi.data$standardised_name)))
+)
+})