tests/testthat/test-serocalculator_example.R

In serocalculator: Estimating Infection Rates from Serological Data

test_that("`serocalculator_example()` works", {
  path1 <- serocalculator_example("example_pop_data.csv")
  path2 <- fs::path_package(
    package = "serocalculator",
    "extdata/example_pop_data.csv"
  )
  expect_equal(path1, path2)


  files1 <- serocalculator_example()
  files2 <- c("example_curve_params.csv", "example_curve_params.rds", "example_noise_params.csv", "example_noise_params.rds", "example_pop_data.csv", "example_pop_data.rds")

  expect_equal(files1, files2)
})