tests/testthat/test_getTissue.R

context("Testing getTissue()")
library(tispec)

test_that('Check output of getTissue', {
    
    expect_identical(getTissue('tissueA', qnExp, tauAnno), tissueA)
    expect_equal(getTissue('tissueA', qnExp, tauAnno), tissueA)
    
})
roonysgalbi/tispec documentation built on May 26, 2019, 1:33 a.m.