tests/testthat/test-singleGAMSfile.R

context("singleGAMSfile test")

test_that("GAMS file merge is working", {
  tmpfile <- tempfile()
  expect_silent(singleGAMSfile(system.file("dummymodel",package="gms"),output = tmpfile))
  expect_identical(readLines(tmpfile), readLines(system.file("extdata/full.gms",package="gms")))
})

Try the gms package in your browser

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

gms documentation built on July 2, 2020, 2:36 a.m.