tests/testthat/test-get_work.R

In dblodgett-cycling/dualR: Dual Cycling Power Analysis for eRacing

test_that("examples", {
  m1 <- get_work_summary(read_fit_file(file.path(tmp_fit_dir, "fit/fit1.fit")))
  
  m2 <- get_work_summary(read_fit_file(file.path(tmp_fit_dir, "fit/fit1.fit")),
                         read_fit_file(file.path(tmp_fit_dir, "fit/fit2.fit")))
  
  expect_equal(m1[1], m2[1])
  
  expect_true(nrow(m2) == nrow(m2))
})