1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
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 file")

    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)
})

test_that("loadPreloaded loads file with list of ExpressionSets", {
    options(phantasusPreloadedDir = system.file("testdata", package="phantasus"))

    expect_is(loadPreloaded("wrapped_aa"), "json")

    options(phantasusPreloadedDir = NULL)
})

test_that("checkPreloadedNames", {
    options(phantasusPreloadedDir = system.file("testdata", package="phantasus"))

    expect_equal(fromJSON(checkPreloadedNames("wrapped_aa")), c("wrapped_aa_1", "wrapped_aa_2"))
    expect_equal(fromJSON(checkPreloadedNames("aa")), c("aa"))

    expect_error(checkPreloadedNames("falseFile"), regexp = "No such file")

    options(phantasusPreloadedDir = NULL)

    expect_error(checkPreloadedNames("noDirectory"), regexp = "No such directory")

    options(phantasusPreloadedDir = "falseDirectory")

    expect_error(checkPreloadedNames("noDirectory"), regexp = "No such directory")

    options(phantasusPreloadedDir = NULL)
})