tests/testthat/test-listParams.R

In blebedenko/impatience: Estimation of impatience in queues with balking

test_that("Ouput works", {
  expect_equal(listParams(
    gamma = 2L,
    lambda_0 = 3L,
    theta = 4L,
    eta = 1L,
    mu = 1L,
    s = 3L
  ),
  listParams(
    gamma = 2L,
    lambda_0 = 3L,
    theta = 4L,
    eta = 1L,
    mu = 1L,
    s = 3L
  ))
})