tests/testthat/test-niters.R

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

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

Try the nlist package in your browser

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

nlist documentation built on Sept. 5, 2021, 6:05 p.m.