tests/testthat/test-generate_data_lfc.R

test_that("draw_data_lfc: general tests", {
  data <- draw_data_lfc()
  expect_equal(length(data), 2)

  data <- draw_data_lfc(random = TRUE)
  expect_equal(length(data), 2)
})

Try the cases package in your browser

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

cases documentation built on April 3, 2025, 9:24 p.m.