tests/testthat/test-niters.R

In universals: S3 Generics for Bayesian Analyses

test_that("niters nlist", {
  expect_identical(niters(nlist::nlist()), 1L)
  expect_identical(niters(nlist::nlist(x = 1)), 1L)
})

test_that("", {
  expect_identical(niters(nlist::nlists()), 0L)
  expect_identical(nsims(nlist::nlists(nlist::nlist())), 1L)
  expect_identical(nsims(nlist::nlists(nlist::nlist(), nlist::nlist())), 2L)
})