Add test

ncss-tech · Feb 24, 2024 · a5c22e3 · a5c22e3
1 parent ee45cf2
commit a5c22e3
Showing 1 changed file with 10 additions and 0 deletions.
diff --git a/tests/testthat/test-collapseHz.R b/tests/testthat/test-collapseHz.R
@@ -0,0 +1,10 @@
+test_that("collapseHz works", {
+  data("jacobs2000", package = "aqp")
+  x <- collapseHz(jacobs2000, c(`A` = "^A",
+                                `E` = "E", 
+                                `Bt` = "[ABC]+t", 
+                                `C` = "^C", 
+                                `foo` = "bar"))
+  expect_equal(length(jacobs2000), length(x))
+  expect_equal(nrow(x), 29)
+})