tests/testthat/test_LA-class.R

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

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

test_that("LoanAcquisitionDataset constructor", {
  acq_txt <- system.file("extdata", "acquisition-sample-file.txt", package = "loanroll")
  # cat(acq_txt, file.size(acq_txt), "bytes\n")

  expect_equal(
     nrow(LoanAcquisitionDataset(acq_txt=acq_txt)),
    8L)
})