tests/testthat/test_metaInput.R

In Liubuntu/SeqSQC: A bioconductor package for sample quality check with next generation sequencing data

context("sample meta info")

test_that("population input is correct", {
    sample.annot <- system.file("extdata", "sampleAnnotation.txt", package="SeqSQC")
    meta <- read.table(sample.annot, header=T)
    expect_true(all(meta[,2] %in% c("AFR", "EUR", "EAS", "SAS", "ASN")))
})