tests/testthat/test_run_glm.R

context("run example simulation")

test_that("running glm simulation", {
  sim_folder <- system.file('extdata', package = 'GLMr')
  status = run_glm(sim_folder)
  
  expect_equivalent(status, 0)
  
  expect_true(file.exists(file.path(sim_folder, 'output.nc')))
  
})
GLEON/GLMr documentation built on June 4, 2020, 7:14 a.m.