tests/testthat/test_bootLR.R

In bootLR: Bootstrapped Confidence Intervals for (Negative) Likelihood Ratio Tests

# Tests for package bootLR


# Options
# expect_that(x, is_true())   expect_true(x)
# expect_that(x, is_false()) 	expect_false(x)
# expect_that(x, is_a(y)) 	expect_is(x, y)
# expect_that(x, equals(y)) 	expect_equal(x, y)
# expect_that(x, is_equivalent_to(y)) 	expect_equivalent(x, y)
# expect_that(x, is_identical_to(y)) 	expect_identical(x, y)
# expect_that(x, matches(y)) 	expect_match(x, y)
# expect_that(x, prints_text(y)) 	expect_output(x, y)
# expect_that(x, shows_message(y)) 	expect_message(x, y)
# expect_that(x, gives_warning(y)) 	expect_warning(x, y)
# expect_that(x, throws_error(y)) 	expect_error(x, y)

context( "Inputs are validated" )

test_that( "totalNeg or totalPos == 0", {
  expect_error( BayesianLR.test( truePos=98, totalDzPos=0, trueNeg=60, totalDzNeg=100 ) )
  expect_error( BayesianLR.test( truePos=98, totalDzPos=100, trueNeg=60, totalDzNeg=0 ) )
} )


test_that( "trueNeg or truePos greater than than totalNeg or totalPos", {
  expect_error( BayesianLR.test( truePos=98, totalDzPos=95, trueNeg=60, totalDzNeg=100 ) )
  expect_error( BayesianLR.test( truePos=98, totalDzPos=100, trueNeg=60, totalDzNeg=55 ) )
} )



context( "Output is as expected" )

test_that( "Sens 100/100 and Spec 60/100", {
  set.seed(1235425)
  res <- BayesianLR.test( truePos=100, totalDzPos=100, trueNeg=60, totalDzNeg=100 )
  expect_true( res$negLR.ci[2] < 0.0564 & res$negLR.ci[2] >0.0404 )
} )