Nothing
testthat::context("MeasureLengthPipe")
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("initialize",{
propertyName <- "length"
alwaysBeforeDeps <- list()
notAfterDeps <- list()
nchar_conf <- TRUE
testthat::expect_silent(MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf))
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("initialize propertyName type error",{
propertyName <- NULL
alwaysBeforeDeps <- list()
notAfterDeps <- list()
nchar_conf <- TRUE
testthat::expect_error(MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf),
"[MeasureLengthPipe][initialize][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("initialize alwaysBeforeDeps type error",{
propertyName <- "length"
alwaysBeforeDeps <- NULL
notAfterDeps <- list()
nchar_conf <- TRUE
testthat::expect_error(MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf),
"[MeasureLengthPipe][initialize][FATAL] Checking the type of the 'alwaysBeforeDeps' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("initialize notAfterDeps type error",{
propertyName <- "length"
alwaysBeforeDeps <- list()
notAfterDeps <- NULL
nchar_conf <- TRUE
testthat::expect_error(MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf),
"[MeasureLengthPipe][initialize][FATAL] Checking the type of the 'notAfterDeps' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("initialize nchar_conf type error",{
propertyName <- "length"
alwaysBeforeDeps <- list()
notAfterDeps <- list()
nchar_conf <- NULL
testthat::expect_error(MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf),
"[MeasureLengthPipe][initialize][FATAL] Checking the type of the 'nchar_conf' variable: NULL",
fixed = TRUE)
})
if (Sys.info()[['sysname']] %in% "Windows") {
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("pipe",{
propertyName <- "length"
alwaysBeforeDeps <- list()
notAfterDeps <- list()
nchar_conf <- TRUE
pipe <- MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf)
path <- file.path("testFiles",
"testMeasureLengthPipe",
"testFile.tsms")
instance <- ExtractorSms$new(path)
instance$obtainSource()
instance <- pipe$pipe(instance)
testthat::expect_equal(instance$getSpecificProperty("length"),
130)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
}
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("pipe instance type error",{
propertyName <- "length"
alwaysBeforeDeps <- list()
notAfterDeps <- list()
nchar_conf <- TRUE
pipe <- MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf)
instance <- NULL
testthat::expect_error(pipe$pipe(instance),
"[MeasureLengthPipe][pipe][FATAL] Checking the type of the 'instance' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
if (Sys.info()[['sysname']] %in% "Windows") {
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getLength nchar <- TRUE",{
propertyName <- "length"
alwaysBeforeDeps <- list()
notAfterDeps <- list()
nchar_conf <- TRUE
pipe <- MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf)
data <- "example"
nchar_conf <- TRUE
testthat::expect_equal(pipe$getLength(data,
nchar_conf),
7)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
}
# if (Sys.info()[['sysname']] %in% "Windows") {
# testthat::test_that("getLength nchar <- FALSE",{
#
# propertyName <- "length"
# alwaysBeforeDeps <- list()
# notAfterDeps <- list()
# pipe <- MeasureLengthPipe$new(propertyName, alwaysBeforeDeps, notAfterDeps)
#
# data <- "example"
# nchar_conf <- FALSE
#
# testthat::expect_equal(pipe$getLength(data, nchar_conf), 112)
#
# })
# }
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getLength data type error",{
propertyName <- "length"
alwaysBeforeDeps <- list()
notAfterDeps <- list()
nchar_conf <- TRUE
pipe <- MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf)
data <- NULL
nchar_conf <- TRUE
testthat::expect_error(pipe$getLength(data,
nchar_conf),
"[MeasureLengthPipe][getLength][FATAL] Checking the type of the 'data' variable: NULL",
fixed = TRUE)
})
testthat::teardown({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::setup({
bdpar.Options$reset()
bdpar.Options$configureLog()
})
testthat::test_that("getLength nchar_conf type error",{
propertyName <- "length"
alwaysBeforeDeps <- list()
notAfterDeps <- list()
nchar_conf <- TRUE
pipe <- MeasureLengthPipe$new(propertyName,
alwaysBeforeDeps,
notAfterDeps,
nchar_conf)
data <- "example"
nchar_conf <- NULL
testthat::expect_error(pipe$getLength(data,
nchar_conf),
"[MeasureLengthPipe][getLength][FATAL] Checking the type of the 'nchar_conf' variable: NULL",
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.