tests/testthat/test-is.R

test_that("is false", {
  expect_false(is.POSIXct(1))
  expect_false(is.Date(1))
  expect_false(is.hms(1))
  expect_false(is_date_time(1))
  expect_false(is_date(1))
  expect_false(is_time(1))
})


test_that("is true", {
  expect_true(is.POSIXct(as.POSIXct("2001-01-01", tz = "UTC")))
  expect_true(is.Date(as.Date("2000-01-01")))
  expect_true(is.hms(hms::as_hms("00:00:01")))
  expect_true(is_date_time(as.POSIXct("2001-01-01", tz = "UTC")))
  expect_true(is_date(as.Date("2000-01-01")))
  expect_true(is_time(hms::as_hms("00:00:01")))
})

Try the dttr2 package in your browser

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

dttr2 documentation built on Sept. 19, 2021, 9:06 a.m.