tests/testthat/test.badnex.R

In rncl: An Interface to the Nexus Class Library

#
# --- Test badnex.R ---
#

test_that("Malformed Nexus File should not work.", {
    if (Sys.getenv("RCMDCHECK") == FALSE) {
        pth <- file.path(getwd(), "..", "inst", "nexusfiles")
    } else {
        pth <- system.file(package="rncl", "nexusfiles")
    }
    badFile <- file.path(pth, "badnex.nex")
    stopifnot(file.exists(badFile))
    expect_error(read_nexus_phylo(file=badFile))
})