tests/testthat/test_file_loading_and_checking.R

context("")

write.table(DNABarcodeCompatibility::IlluminaIndexesRaw ,
            textfile <- tempfile(),
            row.names = FALSE, col.names = FALSE, quote=FALSE)

test_that("file_loading_and_checking loads file", {
    expect_is(file_loading_and_checking(textfile), "data.frame")
})
comoto-pasteur-fr/DNABarcodeCompatibility documentation built on June 21, 2019, 9:21 a.m.