tests/testthat/test-Transcript.R

In pram: Pooling RNA-seq datasets for assembling transcript models

main <- function() {
    context('Transcript')

    ftgt = system.file('extdata/benchmark/tgt.tsv', package='pram')
    tgtdt = fread(ftgt, header=TRUE, sep="\t")
    tgttr = Transcript(tgtdt)

    test_that('Transcript', {
          expect_true(validObject(tgttr))
    } )
}

main()