tests/testthat/test_changeTime_subtract.R

library(BigginsTime)

context("Time")

test_that("Subtracting one hour", {
  time <- as.Time(1000)
  expect_equal(change.Time(time, -1, -15), time - 4500)
})
sarotter/BigginsTime documentation built on May 29, 2019, 2 p.m.