aboutsummaryrefslogtreecommitdiff
path: root/tests/testthat
diff options
context:
space:
mode:
Diffstat (limited to 'tests/testthat')
-rw-r--r--tests/testthat/test_geomean.R4
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/testthat/test_geomean.R b/tests/testthat/test_geomean.R
index 0cc3416..bf298c2 100644
--- a/tests/testthat/test_geomean.R
+++ b/tests/testthat/test_geomean.R
@@ -4,8 +4,8 @@ context("Geometric mean calculation")
test_that("The geometric mean is correctly calculated", {
expect_equal(geomean(c(1, 3, 9)), 3)
expect_equal(geomean(c(0, 3, 9)), 0)
- expect_error(geomean(c(1, 3, NA, 9), na.rm = FALSE), "NA")
+ expect_equal(geomean(c(1, 3, NA, 9), na.rm = FALSE), NA)
expect_equal(geomean(c(1, 3, NA, 9), na.rm = TRUE), 3)
expect_error(geomean(c(1, -3, 9)), "positive")
- expect_error(geomean(c(1, -3, NA, 9)), "positive")
+ expect_equal(geomean(c(1, -3, NA, 9)), NA)
})

Contact - Imprint