tests/testthat/test-time.R

context("Transit Time")

test_that("Times past midnight parse", {
  expect_equal(structure(c(as.ITime('1:00'), as.ITime('1:00') + 86400L), class = 'ITime'), as.TransitTime(c('1:00', '25:00')))
})
metrotransit/speedrt documentation built on June 13, 2019, 5:09 p.m.