tests/testthat/test-validate_odds_ratio.R

In iAM-AMR/sawmill: Process Queries from the CEDAR Database

test_that("odds_ratio: Missing odds", {
  odds <- NA
  odds_lo <- 2
  odds_up <- 3

  expect_identical(
    validate_odds_ratio(odds, odds_lo, odds_up)[[1]],
    FALSE
  )

  expect_identical(
    validate_odds_ratio(odds, odds_lo, odds_up)[[2]],
    "Error: missing parameter(s) for odds ratio."
  )
})

test_that("odds_ratio: One parameter is non-numeric", {
  odds <- 1
  odds_lo <- "Two"
  odds_up <- 3

  expect_identical(
    validate_odds_ratio(odds, odds_lo, odds_up)[[1]],
    FALSE
  )

  expect_identical(
    validate_odds_ratio(odds, odds_lo, odds_up)[[2]],
    "Error: parameter(s) are not of type 'numeric'."
  )
})

test_that("odds_ratio: Good odds ratio", {
  odds <- 1
  odds_lo <- 2
  odds_up <- 3

  expect_identical(
    validate_odds_ratio(odds, odds_lo, odds_up)[[1]],
    TRUE
  )

  expect_identical(
    validate_odds_ratio(odds, odds_lo, odds_up)[[2]],
    "OK: parameters pass checks for odds ratio."
  )
})