tests/testthat/test-timingUtils.R

context("TimingUtils")

test_that("Weeks are counted correctly", {
	days <- seq(8,365,7)
	week <- jul2Week(days)
	expect_equal(week, 1:52)
})
sidjai/biosplit documentation built on May 29, 2019, 9:59 p.m.