tests/testthat/test_0.r

In jefferys/fusionExpressionPlot: Plot Expression Profiles for Fused Genes

context("Testing the test infrastructure")

test_that( "Testing works?", {
   succeed( "Testing with testthat" )
})

test_that( "Test data is available?", {
   expect_true(  dir.exists(  'data' ))
   expect_true(  file.exists( 'data/mock.gaf' ))
   expect_true(  file.exists( 'data/mock.gaf.extract.geneModels' ))
   expect_true(  file.exists( 'data/mock.gaf.extract.dupNoUnk.geneModels' ))
   expect_true(  file.exists( 'data/mock.gaf.extract.dup.geneModels' ))
   expect_true(  file.exists( 'data/mock.gaf.extract.transcriptModels' ))
})