tests/testthat/test-checkValidStartLife.R

test_that("checkValidStartLife works correctly", {
  M <- matrix(1:4, nrow = 2)

  startLife <- 1
  expect_silent(checkValidStartLife(startLife, M))

  startLife <- c(3, 4)
  expect_error(checkValidStartLife(startLife, M))

  startLife <- 5
  expect_error(checkValidStartLife(startLife, M))

  startLife <- c(0.4, 0.6)
  expect_silent(checkValidStartLife(startLife, M, start_vec = TRUE))

  startLife <- c(0, 0.4, 0.6)
  expect_error(checkValidStartLife(startLife, M, start_vec = TRUE))
})

Try the Rage package in your browser

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

Rage documentation built on Sept. 30, 2023, 1:06 a.m.