stRoke/tests/testthat/test-write_ical.R
2023-01-25 19:51:58 +01:00

44 lines
1.4 KiB
R

test_that("write_ical() returns a ical object", {
df <- data.frame(
date = c("2020-02-10", "2020-02-11"),
date.end = c("2020-02-13",NA),
title = c("Conference", "Lunch"),
start = c("12:00:00", NA),
end = c("13:00:00", NA),
note = c("Hi there","Remember to come"),
link = c("https://icalendar.org","https://agdamsbo.github.io/stRoke/")
)
expect_s3_class(write_ical(df,
date.end = "date.end"), "ical")
})
test_that("write_ical() returns error", {
df <- data.frame(
date = c("2020-02-10", "2020-02-11"),
title = c("Conference", "Lunch"),
start = c("12:00:00", NA),
end = c("13:00:00", NA),
note = c("Hi there","Remember to come"),
link = c("https://icalendar.org","https://agdamsbo.github.io/stRoke/")
)
expect_error(write_ical(df, date = "wrong"))
expect_error(write_ical(df, place = "wrong"))
expect_error(write_ical(df, title = "wrong"))
expect_error(write_ical(df, time.start = "wrong"))
expect_error(write_ical(df, time.end = "wrong"))
})
test_that("write_ical() returns error", {
df <- data.frame(
date = c("2020-02-10", "2020-02-11"),
date.end = c(NA,"2020-02-13"),
title = c("Conference", "Lunch"),
start = c("12:00:00", NA),
end = c("13:00:00", NA),
note = c("Hi there","Remember to come"),
link = c("https://icalendar.org","https://agdamsbo.github.io/stRoke/")
)
expect_error(write_ical(df,
date.end = "date.end"))
})