tests/testthat/test-PackageDataStorage.R

In frehbach/EventDetectGUI: Graphical User Interface for the 'EventDetectR' Package

context("Test package data storage")

test_that("packageDataStorage", {
    skip_on_appveyor()
    skip_on_cran()
    strName <- "someTestVariable"
    setEnvData(strName,77)
    expect_equal(getEnvData(strName),77)

    setEnvData(strName,TRUE)
    expect_equal(getEnvData(strName),TRUE)

    setEnvData(strName,list("a",77,TRUE))
    expect_equal(getEnvData(strName),list("a",77,TRUE))
})