Nothing
test_that("course_convert_works 100 fly", {
converted_time <- course_convert(
time = 53.89,
event = "100 Fly",
course = "SCY",
course_to = "LCM"
)
expect_equivalent(converted_time,
"1:01.22")
})
test_that("course_convert_works 400-500", {
converted_time <- course_convert(
time = "4:45.00",
event = "500 Free",
course = "SCY",
course_to = "LCM"
)
expect_equivalent(converted_time,
"4:14.36")
})
test_that("course_convert_works 800-1000", {
converted_time <- course_convert(
time = "8:12.57",
event = "Womens 800m Freestyle",
course = "LCM",
course_to = "SCY"
)
expect_equivalent(converted_time,
"9:11.90")
})
test_that("course_convert_works 1500", {
converted_time <- course_convert(
time = "15:37.34",
event = "1500m Freestyle",
course = "LCM",
course_to = "SCM"
)
expect_equivalent(converted_time,
"15:13.34")
})
test_that("course_convert_works 1500-1650", {
converted_time <- course_convert(
time = "15:03.31",
event = "Women's 1650y Free",
course = "SCY",
course_to = "LCM"
)
expect_equivalent(converted_time,
"15:21.38")
})
test_that("course_convert verbose works", {
df_test <- course_convert(
time = 53.89,
event = "100 Fly",
course = "SCY",
course_to = "LCM",
verbose = TRUE
)
df_standard <- data.frame(
Time = c("53.89"),
Course = c("SCY"),
Course_To = c("LCM"),
Event = c("100 Fly"),
Time_Converted_sec = c(61.20),
Time_Converted_mmss = c("1:01.22")
)
expect_equal(df_test, df_standard, 0.001)
})
test_that("course_convert verbose works 200 breast", {
df_test <- course_convert(
time = "2:31.31",
event = "200 Breast",
course = "LCM",
course_to = "SCY",
verbose = TRUE
)
df_standard <- data.frame(
Time = c("2:31.31"),
Course = c("LCM"),
Course_To = c("SCY"),
Event = c("200 Breast"),
Time_Converted_sec = c(132.71),
Time_Converted_mmss = c("2:12.71")
)
expect_equal(df_test, df_standard, 0.001)
})
# testthat::test_file("tests/testthat/test-course_convert.R")
Any scripts or data that you put into this service are public.
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.