Nothing
testthat::context("Instance")
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("initialize",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$.__enclos_env__$private$path,
path)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("initialize path type error",{
path <- NULL
testthat::expect_error(Instance$new(path),
"[Instance][initialize][FATAL] Checking the type of the 'path' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("obtainDate",{
path <- "example.tsms"
testthat::expect_error(Instance$new(path)$obtainDate(),
"[Instance][obtainDate][FATAL] I am an abstract interface method",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("obtainSource",{
path <- "example.tsms"
testthat::expect_error(Instance$new(path)$obtainSource(),
"[Instance][obtainSource][FATAL] I am an abstract interface method",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getDate",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$getDate(),
"")
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getSource",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$getSource(),
"")
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getPath",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$getPath(),
path)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getData",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$getData(),
"")
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getProperties",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$getProperties(),
list())
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("setSource",{
path <- "example.tsms"
instance <- Instance$new(path)
sourceExpected <- "exampleExpected"
instance$setSource(sourceExpected)
testthat::expect_equal(instance$getSource(),
sourceExpected)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("setDate",{
path <- "example.tsms"
instance <- Instance$new(path)
dateExpected <- "exampleExpected"
instance$setDate(dateExpected)
testthat::expect_equal(instance$getDate(),
dateExpected)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("setDate source type error",{
path <- "example.tsms"
instance <- Instance$new(path)
dateExpected <- NULL
testthat::expect_error(instance$setDate(dateExpected),
"[Instance][setDate][FATAL] Checking the type of the 'date' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("setProperties",{
path <- "example.tsms"
instance <- Instance$new(path)
propertiesExpected <- list(example = "example")
instance$setProperties(propertiesExpected)
testthat::expect_equal(instance$getProperties(),
propertiesExpected)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("setProperties source type error",{
path <- "example.tsms"
instance <- Instance$new(path)
propertiesExpected <- NULL
testthat::expect_error(instance$setProperties(propertiesExpected),
"[Instance][setProperties][FATAL] Checking the type of the 'properties' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("addProperties",{
path <- "example.tsms"
instance <- Instance$new(path)
valueExpected <- "valueExpected"
nameExpected <- "nameExpected"
instance$addProperties(valueExpected, nameExpected)
testthat::expect_equal(instance$getProperties(),
list(nameExpected = valueExpected))
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("addProperties propertyName type error",{
path <- "example.tsms"
instance <- Instance$new(path)
valueExpected <- "valueExpected"
nameExpected <- NULL
testthat::expect_error(instance$addProperties(valueExpected, nameExpected),
"[Instance][addProperties][FATAL] Checking the type of the 'propertyName' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getSpecificProperty",{
path <- "example.tsms"
instance <- Instance$new(path)
valueExpected <- "valueExpected"
nameExpected <- "nameExpected"
instance$addProperties(valueExpected, nameExpected)
testthat::expect_equal(instance$getSpecificProperty(nameExpected),
valueExpected)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getSpecificProperty propertyName type error",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- NULL
testthat::expect_error(instance$getSpecificProperty(nameExpected),
"[Instance][getSpecificProperty][FATAL] Checking the type of the 'propertyName' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("isSpecificProperty TRUE",{
path <- "example.tsms"
instance <- Instance$new(path)
valueExpected <- "valueExpected"
nameExpected <- "nameExpected"
instance$addProperties(valueExpected, nameExpected)
testthat::expect_equal(instance$isSpecificProperty(nameExpected),
TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("isSpecificProperty FALSE",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- "example"
testthat::expect_equal(instance$isSpecificProperty(nameExpected),
FALSE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("setSpecificProperty",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- "nameExpected"
valueExpected <- "valueExpected"
instance$setSpecificProperty(nameExpected, valueExpected)
testthat::expect_equal(instance$getSpecificProperty(nameExpected),
valueExpected)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("setSpecificProperty propertyName type error",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- NULL
valueExpected <- "valueExpected"
testthat::expect_error(instance$setSpecificProperty(nameExpected, valueExpected),
"[Instance][setSpecificProperty][FATAL] Checking the type of the 'propertyName' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getNamesOfProperties",{
path <- "example.tsms"
instance <- Instance$new(path)
valueExpected <- "valueExpected"
nameExpected <- "nameExpected"
instance$addProperties(valueExpected, nameExpected)
testthat::expect_equal(instance$getNamesOfProperties(),
c(nameExpected))
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("setData",{
path <- "example.tsms"
instance <- Instance$new(path)
dataExpected <- "exampleExpected"
instance$setData(dataExpected)
testthat::expect_equal(instance$getData(),
dataExpected)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("isInstanceValid",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$isInstanceValid(),
TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("invalidate",{
path <- "example.tsms"
instance <- Instance$new(path)
instance$invalidate()
testthat::expect_equal(instance$isInstanceValid(),
FALSE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getFlowPipes",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$getFlowPipes(),
list())
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("addFlowPipes",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- "pipe"
instance$addFlowPipes(nameExpected)
testthat::expect_equal(instance$getFlowPipes(),
list(nameExpected))
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("addFlowPipes namePipe type error",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- NULL
testthat::expect_error(instance$addFlowPipes(nameExpected),
"[Instance][addFlowPipes][FATAL] Checking the type of the 'namePipe' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getBanPipes",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$getBanPipes(),
c())
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("addBanPipes",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- "pipe"
instance$addBanPipes(nameExpected)
testthat::expect_equal(instance$getBanPipes(),
c(nameExpected))
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("addBanPipes namePipe type error",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- 1
testthat::expect_error(instance$addBanPipes(nameExpected),
"[Instance][addBanPipes][FATAL] Checking the type of the 'namePipe' variable: numeric",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("checkCompatibility TRUE",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- "pipeExample"
alwaysBefore <- list()
testthat::expect_equal(instance$checkCompatibility(nameExpected, alwaysBefore),
TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("checkCompatibility FALSE alwaysBefore",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- "pipeExample"
alwaysBefore <- list("pipeExample")
testthat::expect_equal(instance$checkCompatibility(nameExpected, alwaysBefore),
FALSE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("checkCompatibility FALSE banAfter",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- "pipeExample"
alwaysBefore <- list()
instance$addBanPipes("pipeExample")
testthat::expect_equal(instance$checkCompatibility(nameExpected, alwaysBefore),
FALSE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("checkCompatibility namePipe type error",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- NULL
alwaysBefore <- list()
testthat::expect_error(instance$checkCompatibility(nameExpected, alwaysBefore),
"[Instance][checkCompatibility][FATAL] Checking the type of the 'namePipe' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("checkCompatibility namePipe type error",{
path <- "example.tsms"
instance <- Instance$new(path)
nameExpected <- "pipeExample"
alwaysBefore <- NULL
testthat::expect_error(instance$checkCompatibility(nameExpected, alwaysBefore),
"[Instance][checkCompatibility][FATAL] Checking the type of the 'alwaysBefore' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("toString basic works",{
path <- "example.tsms"
instance <- Instance$new(path)
testthat::expect_equal(instance$toString(),
"",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.