tests/testthat/test-as_curve_params.R

In serocalculator: Estimating Infection Rates from Serological Data

test_that("`as_curve_params()` produces an error
          when non-curve data is provided", {
            library(magrittr)
            expect_error(
              object = curve_data <-
                serocalculator_example("example_pop_data.csv") %>% # pop data
                read.csv() %>%
                as_curve_params(),
              class = "not curve_params"
            )
          })

test_that("`as_curve_params()` produces an error
          when `data` is not a data.frame",
          {
            library(magrittr)
            expect_error(object =
                           "example_curve_params.csv" %>% # string (not data frame)
                           as_curve_params(), class = "not data.frame")
          })

test_that("`as_curve_params()` produces expected results", {
  library(dplyr)
  test_data <- serocalculator_example("example_curve_params.csv") %>%
    read.csv(row.names = 1) %>%
    slice_head(n = 100) %>%
    as_curve_params()

  expect_snapshot(test_data)

  expect_snapshot_value(x = test_data, style = "serialize")

  test_data %>% ssdtools:::expect_snapshot_data(name = "curve-data")


})