Nothing
#*****************************************
#
# (C) Copyright IBM Corp. 2017, 2020
# Author: Ernesto Arandia & Bradley J Eck
#
#*****************************************
context("get pattern id")
test_that("no crash calling on closed toolkit",{
expect_error( x <- ENgetpatternid(1) )
})
test_that("works for single input",{
ENopen("Net3.inp","Net3.rpt")
pid <- ENgetpatternid(1)
ENclose()
expect_equal(pid,"1")
})
test_that("works for multiple input",{
ENopen("Net3.inp","Net3.rpt")
expect_error(pid <- ENgetpatternid(1:3))
ENclose()
})
test_that("get error 205 on no pattern",{
ENopen("Net3.inp","Net3.rpt")
expect_error(ENgetpatternid(12),"205")
ENclose()
})
context("get pattern index")
test_that("no crash calling on closed toolkit",{
expect_error( x <- ENgetpatternindex("1") )
})
test_that("works for single input",{
ENopen("Net3.inp","Net3.rpt")
pidx <- ENgetpatternindex("1")
ENclose()
expect_equal(pidx,1)
})
test_that("works for multiple input",{
ENopen("Net3.inp","Net3.rpt")
expect_error(pidx <- ENgetpatternindex(c("1","2","3")))
ENclose()
})
test_that("get error 205 on no pattern",{
ENopen("Net3.inp","Net3.rpt")
expect_error(ENgetpatternindex("12"),"205")
ENclose()
})
context("get pattern length")
test_that("no crash calling on closed toolkit",{
expect_error( x <- ENgetpatternlen(1) )
})
test_that("works for single input",{
ENopen("Net3.inp","Net3.rpt")
x <- ENgetpatternlen(1)
ENclose()
expect_equal(x,24)
})
test_that("works for multiple input",{
ENopen("Net3.inp","Net3.rpt")
expect_error(x <- ENgetpatternlen(1:4))
ENclose()
})
test_that("get error 205 on no pattern",{
ENopen("Net3.inp","Net3.rpt")
expect_error(ENgetpatternlen(12),"205")
ENclose()
})
context("get pattern value")
test_that("no crash calling on closed toolkit",{
expect_error(x <- ENgetpatternvalue(1,1) )
})
test_that("works for single input",{
ENopen("Net3.inp","Net3.rpt")
x <- ENgetpatternvalue(5,5)
ENclose()
expect_equal(x,4531)
})
test_that("works for multiple input",{
ENopen("Net3.inp","Net3.rpt")
expect_error(x <- ENgetpatternvalue(5,5:7))
ENclose()
})
test_that("get error 205 on no pattern",{
ENopen("Net3.inp","Net3.rpt")
expect_error(ENgetpatternvalue(12,1),"205")
ENclose()
})
test_that("get error 251 on wrong period",{
ENopen("Net3.inp","Net3.rpt")
expect_error(ENgetpatternvalue(1,100),"251")
ENclose()
})
context("set pattern")
test_that("no crash calling on closed toolkit",{
expect_error( ENsetpattern(1,1) )
})
test_that("works on simple input",{
ENopen("Net3.inp","Net3.rpt")
ENsetpattern(1, 1:10)
x <- ENgetpatternvalue(1,10)
ENclose()
expect_equal(x,10)
})
test_that("error on multiple input",{
ENopen("Net3.inp","Net3.rpt")
expect_error( ENsetpattern(2, 3:4, 1:10) )
ENclose()
})
test_that("get error 205 on no pattern",{
ENopen("Net3.inp","Net3.rpt")
expect_error(ENsetpattern(12,1:10),"205")
ENclose()
})
test_that("returns NULL invisibly on success",{
ENopen("Net1.inp", "Net1.rpt")
x <- withVisible( ENsetpattern(1, 1:10) )
ENclose()
expect_null( x$value )
expect_false( x$visible )
})
context("set pattern value")
test_that("no crash calling on closed toolkit",{
expect_error( ENsetpatternvalue(1,1, 1.5) )
})
test_that("works on single input",{
ENopen("Net3.inp","Net3.rpt")
ENsetpatternvalue(2, 3, 1.33)
x <- ENgetpatternvalue(2,3)
ENclose()
expect_equal(x,1.33, tolerance = 1e-6)
})
test_that("error on multiple input",{
ENopen("Net3.inp","Net3.rpt")
expect_error( ENsetpatternvalue(2, 3:4, c(1.33,1.50)) )
ENclose()
})
test_that("get error 205 on no pattern",{
ENopen("Net3.inp","Net3.rpt")
expect_error(ENsetpatternvalue(12,1,1.5),"205")
ENclose()
})
test_that("get error 251 on wrong period",{
ENopen("Net3.inp","Net3.rpt")
expect_error(ENsetpatternvalue(1,100,1.5),"251")
ENclose()
})
test_that("returns NULL invisibly on success",{
ENopen("Net3.inp","Net3.rpt")
x <- withVisible( ENsetpatternvalue(2, 3, 1.33) )
ENclose()
expect_null( x$value )
expect_false( x$visible )
})
context("pattern CRUD")
test_that("net 3 pattern CRUD",{
suffix <- paste0( sample(letters, 4), collapse="")
rptFile <- paste0("pattern-tests-", suffix,".rpt")
ENopen("Net3.inp", rptFile)
ENaddpattern(suffix)
idx <- ENgetpatternindex(suffix)
expect_true(idx > 0)
plen <- ENgetpatternlen(idx)
expect_equal(plen, 1)
suffix2 <- paste0( sample(letters, 4), collapse="")
ENsetpatternid(idx, suffix2)
idx2 <- ENgetpatternindex(suffix2)
expect_equal(idx, idx2)
ENdeletepattern(idx)
ENclose()
file.remove(rptFile)
})
context("pattern avg")
test_that("net 3 get pattern avg",{
suffix <- paste0( sample(letters, 4), collapse="")
rptFile <- paste0("pattern-tests-", suffix,".rpt")
ENopen("Net3.inp", rptFile)
a1 <- ENgetaveragepatternvalue(1)
expect_false( as.integer(a1) == 0 )
a2 <- ENgetaveragepatternvalue(2)
expect_false( as.integer(a2) == 0 )
ENclose()
})
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.