tests/testthat/test-translink_expected_links_true.R

In phylosamp: Sample Size Calculations for Molecular and Phylogenetic Studies

test_that("translink_expected_links_true returns M*rho or M/2 * rho when sensitivity perfect", {

    expect_equal(translink_expected_links_true(sensitivity = 1, rho = 1, M = 10,
        R = NULL, assumption = "stsl"), 5)

    expect_equal(translink_expected_links_true(sensitivity = 1, rho = 1, M = 10,
        R = 1, assumption = "mtsl"), 10)

    expect_equal(translink_expected_links_true(sensitivity = 1, rho = 1, M = 10,
        R = 1, assumption = "mtml"), 10)
})

test_that("translink_expected_links_true fails when parameters invalid", {

    expect_error(translink_expected_links_true(sensitivity = 1, rho = 1, M = 10,
        R = 1, assumption = "bananas"))

})