tests/testthat/test-grim-stats.R

In scrutiny: Error Detection in Science

test_that("`grim_total()` returns correct values", {
  grim_total("5.30", 20:30) %>% expect_equal(80:70)
})


test_that("`grim_total()` works with percentage conversion", {
  grim_total("87.50", 45:55, percent = TRUE) %>% expect_equal(9955:9945)
})



exp1 <- seq(from = 0.8, to = 0.7, by = -0.01)
exp2 <- c(
  0.1, 0.09, 0.08, 0.07, 0.06, 0.05, 0.04, 0.03, 0.02, 0.01,
  0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0
)
exp3 <- seq(from = 0.9955, to = 0.9945, by = -0.0001)

test_that("`grim_ratio()` returns correct values", {
  grim_ratio("5.30", 20:30) %>% expect_equal(exp1)
})

test_that("`grim_probability()` returns correct values", {
  grim_probability("5.30", 90:110) %>% expect_equal(exp2)
})


test_that("`grim_ratio()` works with percentage conversion", {
  grim_ratio("87.50", 45:55, percent = TRUE) %>% expect_equal(exp3)
})


# Errors ------------------------------------------------------------------

test_that("all functions error if `x` is not a string", {
  grim_probability(5.30, 20) %>% expect_error()
  grim_ratio(5.30, 20)       %>% expect_error()
  grim_total(5.30, 20:30)    %>% expect_error()
})