tests/testthat/test_NMgenPNM.R

context("NMgenPNM")

test_that("basic",{

    fileRef <- "testReference/NMgenPNM_01.rds"

    fn <- tempfile()
    NMgenPNM(nc=16,file=fn)

    lines <- readLines(fn)

    expect_equal_to_reference(lines,fileRef)

})

Try the NMsim package in your browser

Any scripts or data that you put into this service are public.

NMsim documentation built on Nov. 2, 2024, 9:06 a.m.