tests/testthat/test_LP-class.R

In canarionyc/loanroll: Routines for Parsing and Doing Analysis on Loan Data Files from Fannie Mae

context("Loan Performance Dataset")
library(loanroll)

test_that("LoanPerformanceDataset constructor", {
  perf_txt <- system.file("extdata", "performance-sample-file.txt", package = "loanroll")
  # cat(perf_txt, file.size(perf_txt), "bytes\n")
  expect_equal(
    nrow(LoanPerformanceDataset(perf_txt=perf_txt)),
    124L)
})