tests/testthat/test-lifetime.R

In Displayr/flipRevenueMetrics: Analytics for subscription businesses

# context("lifetime")
# data(q.invoice.lines)
# d <- q.invoice.lines
# library(lubridate)
# end <-  ISOdate(2016, 6, 30, tz = tz(q.invoice.lines$ValidFrom))
# start <-  ISOdate(2012, 7, 1, tz = tz(q.invoice.lines$ValidFrom))
# by = "year"
# for (by in c("month", "year"))
#     test_that(paste("Creating RevenueData", by),
#           {
# #            expect_error(capture.output(
#                 
#                 
#                 capture.output(rd <- RevenueData(d$AUD, d$ValidFrom, d$ValidTo, end = end, id = d$name, subscription.length = by, subset = d$validInvoice == 1))
#                 # z = rd[rd$observation.within.period == 1,]
#                 # rd[364 > (z$to - z$from), ]
#                 # #)
#                 Lifetime(rd)
#                 
#                 
#  #               , NA)
#             expect_error(r <- Lifetime(rd), NA)
#             expect_error(capture.output(print(r)), NA)
# })
# 
#