https://github.com/ctlab/phantasus
Tip revision: 80c7b427b73eabcf1cbf64adf47708e2640d3ffb authored by Nitesh Turaga on 29 October 2019, 17:11:02 UTC
bump x.y.z version to even y prior to creation of RELEASE_3_10 branch
bump x.y.z version to even y prior to creation of RELEASE_3_10 branch
Tip revision: 80c7b42
testloadPreloaded.R
context("Load preloaded datasets")
library(Biobase)
test_that("loadPreloaded throws errors correctly", {
expect_error(loadPreloaded("aa"), regexp = "Specify the directory")
options(phantasusPreloadedDir = "falseDirectory")
expect_error(loadPreloaded("aa"), regexp = "No such directory")
options(phantasusPreloadedDir = system.file("testdata", package="phantasus"))
expect_error(loadPreloaded("falseFile"), regexp = "No such dataset")
expect_error(loadPreloaded("wrongFormatFile"), regexp = "Wrong format")
expect_error(loadPreloaded("wrapped_wrongFormat"), regexp = "Wrong format")
options(phantasusPreloadedDir = NULL)
})
test_that("loadPreloaded loads file with just one ExpressionSet", {
options(phantasusPreloadedDir = system.file("testdata", package="phantasus"))
expect_is(loadPreloaded("aa"), "json")
options(phantasusPreloadedDir = NULL)
})