tests/testthat/test-translink_expected_links_true_mtsl.R

In HopkinsIDD/phylosamp: Sample Size Calculations for Molecular and Phylogenetic Studies

test_that("translink_expected_links_true_mtsl returns M*rho when sensitivity perfect", {

    expect_equal(translink_expected_links_true_mtsl(sensitivity = 1, rho = 1, M = 10,
        R = 1), 10)

    expect_equal(translink_expected_links_true_mtsl(sensitivity = 1, rho = 0.5, M = 10,
        R = 1), 5)
})

test_that("translink_expected_links_true_mtsl returns 0 when sensitivity 0", {

    expect_equal(translink_expected_links_true_mtsl(sensitivity = 0, rho = 1, M = 10,
        R = 1), 0)

})

test_that("translink_expected_links_true_mtsl fails when parameters invalid", {

    expect_error(translink_expected_links_true_mtsl(sensitivity = 5, rho = 1, M = 10,
        R = 1))

    expect_error(translink_expected_links_true_mtsl(sensitivity = 1, rho = 5, M = 10,
        R = 1))

    expect_error(translink_expected_links_true_mtsl(sensitivity = 1, rho = 0.5, M = -1,
        R = 1))

    expect_error(translink_expected_links_true_mtsl(sensitivity = 0.99, rho = 0,
        M = 10, R = 1))

    expect_warning(translink_expected_links_true_mtsl(sensitivity = 0.99, rho = 0.5,
        M = 10, R = 2))
})