tests: add unit test for issue #63, containsElements should return FA…

…LSE for invalid elements
rformassspectrometry · Aug 8, 2023 · f73f002 · f73f002
1 parent 0888fa4
commit f73f002
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/tests/testthat/test_chemFormula.R b/tests/testthat/test_chemFormula.R
@@ -113,6 +113,8 @@ test_that("containsElements", {
     expect_true(containsElements("C6H12O6", "H2O"))
     expect_false(containsElements("C6H12O6", "NH3"))
     expect_identical(containsElements("C6H12O6", NA), NA)
+    expect_false(containsElements("C6H12O6", "Z"))
+    expect_false(containsElements("C6H12O6", ""))
     expect_identical(
         containsElements("C6H12O6", c("H2O", "NH3")),
         c(TRUE, FALSE)