tests/testthat/test_time_series.R

library(vtools)
context("Usage of time series")

test_that("basic thing", {
  expect_equal(1+1, 2)
})

test_that("kw_to_kwh and kwh_to_kw act in reverse", {
  expect_true(exists("qhour"))
  expect_equivalent(qhour, kwh_to_kw(kw_to_kwh(qhour)))
})
# Bug with expect_equal?
cvmartin/vtools documentation built on May 26, 2019, 3:35 p.m.