tests/testthat/test_getMart.R

context("Testing getMart()")
library(tispec)

test_that('Check output of getMart', {
    
    expect_identical(getMart(x = 'mouse', y = 79, z = tauExp), tauAnno)
    expect_equal(getMart(x = 'mouse', y = 79, z = tauExp), tauAnno)
    
})
roonysgalbi/tispec documentation built on May 26, 2019, 1:33 a.m.