tests/testthat/test-filter-gencode.r

In UW-GAC/genetable: Functions to Build a Gene Definitions Table in the GAC Database

context("test_filter_gencode - unit tests")

test_that("filter_gencode returns an error if the file path is not defined", {
            expect_error(filter_gencode(), "gtf not defined")
})

test_that("filter-gencode returns an error if disallowed feature is given", {
            load("imported_gtf.RData")
            err <- paste("feature must be one of gene, transcript, exon, ",
                         "CDS, UTR, start_codon, stop_codon, or ",
                         "Selenocysteine", sep = "")
            expect_error(filter_gencode(gtf, feature = "foo"), err)
})

test_that("filter-gencode returns a tibble", {
            load("imported_gtf.RData")
            expect_true(is.tibble(filter_gencode(gtf)))
})

test_that("filter-gencode returns the right size tibble for known input", {
            load("imported_gtf.RData")
            expect_equal(dim(filter_gencode(gtf,
                                    featurearg = "exon",
                                    tagarg = "basic")),
                         c(113, 30))
})