tests/testthat/test-diagram.R

In eplusr: A Toolkit for Using Whole Building Simulation Program 'EnergyPlus'

test_that("HVAC Diagram", {
    skip_on_cran()

    example <- copy_example()

    expect_s3_class(job <- eplus_job(example$idf, example$epw), "EplusJob")

    expect_warning(res <- hvac_diagram(job$version(), tempfile()))

    expect_s3_class(job$run(wait = TRUE, echo = FALSE), "EplusJob")

    expect_warning(res <- hvac_diagram(job$version(), job$locate_output(".bnd")))
    expect_type(res, "character")
})