tests/testthat/test-test-ic_event.R

context("test-test-ic_event")

test_that("error if start or end is NA", {
  expect_warning(ic_event(start_time = NA, end_time = NA))
})

test_that("error if start or end is empty string", {
  expect_warning(ic_event(start_time = Sys.time(), end_time = ""))
})

test_that("default values work", {
  expect_equal(class(ic_event()), c("ical", "tbl_df", "tbl", "data.frame"))
})

test_that("2018-10-12 15:00, end_time = 2018-10-13 15:00 matches default format", {
  expect_equal(class(ic_event()), c("ical", "tbl_df", "tbl", "data.frame"))
})

test_that("error if start or end is empty string", {
  expect_warning(ic_event(start_time = Sys.time(), end_time = ""))
})

Try the calendar package in your browser

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

calendar documentation built on May 2, 2019, 10:17 a.m.