tests/testthat/test-sec_format.R

test_that("sec_format", {
  sec_list_test <- sec_format(c("1:35.93", "16:45.19", NA, "25.43", ":55.62", "`1:35.93"))
  sec_list_standard <- c(95.93, 1005.19, NA, 25.43, 55.62, 95.93)

  expect_equivalent(sec_list_test, sec_list_standard)

})

# testthat::test_file("tests/testthat/test-sec_format.R")

Try the SwimmeR package in your browser

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

SwimmeR documentation built on March 31, 2023, 8:27 p.m.