Nothing
#*****************************************
#
# (C) Copyright IBM Corp. 2017, 2020
# Author: Ernesto Arandia & Bradley J Eck
#
#*****************************************
context("ENopen")
test_that("open w good inputs",{
expect_silent( ENopen("Net1.inp", "Net1.rpt"))
ENclose()
})
test_that("error if it's already open",{
ENopen("Net1.inp", "Net1.rpt", "")
expect_false( suppressWarnings( is.null(ENgetflowunits() ) ) )
expect_error(ENopen("Net3.inp", "Net3.rpt") )
ENclose()
expect_true( suppressWarnings( is.null(ENgetflowunits() ) ) )
})
test_that("returns NULL invisibly on success",{
x <- withVisible( ENopen("Net1.inp", "Net1.rpt") )
ENclose()
expect_null( x$value)
expect_false( x$visible)
})
test_that("returns error code",{
expect_error( ENopen("Net55.inp", "Net55.rpt"), "302")
})
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.