tests/testthat/tests.R

In nicolaroberts/nrmisc: Nicola Roberts miscellaneous functions

library(nrmisc)

if (requireNamespace("lintr", quietly = TRUE)) {
    context("lints")
    # note: this doesn't seem to run properly in devtools::check(),
    # but does run in devtools::test()
    test_that("Package style conforms to linters", {
        lintr::expect_lint_free()
    })
}


context("Interleave function")

test_that("Output matches expected value", {
    expect_equal(interleave(rep(TRUE, 3), rep(FALSE, 3)), c(T, F, T, F, T, F))
    expect_equal(interleave(c(1,3), c(2,4)), 1:4)
    expect_equal(interleave(letters[1:2], letters[3:4]), c("a", "c", "b", "d"))
})

test_that("Erroneous input triggers error", {
    expect_error(interleave(data.frame(1), data.frame(3)), "vectors")
    expect_error(interleave(1:2, c("a", "b")), "mode")
    expect_error(interleave(1:2, 1), "length")
})