tests/testthat/testParseMainInput.R

In PhyloProfile: PhyloProfile

context("test parsing main input file into long dataframe")

test_that("test fasta input", {
    a <- createLongMatrix("mainFastaTest.txt")
    expect_true(ncol(a) == 5)
})

test_that("test wide input", {
    a <- createLongMatrix("mainWideTest.txt")
    expect_true(nrow(a) == 20)
})

test_that("test xml input", {
    a <- createLongMatrix("mainOrthoxmlTest.xml")
    expect_true(ncol(a) == 5)
})