context("simulate")
test_that("working", {
  tmpParas <- parameterValues
  tmpParas[] <- c(0, 3, 0, 0, 0, 0.01)
  simData <- simulate(lgcm, parameterValues = tmpParas)
  yHat <- simData[, "t"] * tmpParas[2]
  expect_true(all.equal(yHat, simData[, "y"], tolerance = 6, scale = 1))
})

test_that("no GPPM model as input", {
  expect_error(simData <- simulate("muI", parameterValues = parameterValues), "no applicable method")
})

test_that("missing parameter values", {
  expect_error(simData <- simulate(lgcm, parameterValues = parameterValues[1:3]), "The parameters")
})

test_that("invalid parameter name", {
  names(parameterValues)[3] <- "Haha"
  expect_error(simData <- simulate(lgcm, parameterValues = parameterValues), "The parameters")
})