tests/testthat/test-critical-power.R

In fmmattioni/cyclingtools: Tools for Manipulating Cycling Data

test_that("critical power functions work", {
  expect_s3_class(
    object = critical_power(
      .data = demo_critical_power,
      power_output_column = "PO",
      time_to_exhaustion_column = "TTE",
      plot = FALSE
    ),
    class = "tbl_df"
  )
})