inst/tests/test-OnLevel.R

In PirateGrunt/OnLevel: On Level

context("SomeContext")

# Test data
# startDates = seq(as.Date("2001/01/01"), as.Date("2010/12/31"), by="1 year")
# endDates = startDates + as.period(1, "year") - days(1)
# period = as.period(1, "year")
# moniker =  paste0("AY ", as.character(year(startDates)))
# type = "Accident"

# Dummy data
# GenericTestOP = function(){
#   op = OriginPeriod(startDates, endDates, period, moniker, type)
#   op
# }

# test_that("Construction", {
#   x = OriginPeriod(startDates)
#   
#   
# })