tests/testthat/test_BearhausEnrollmentClean.R

context("BearhausEnrollmentClean")

df <- simEnrollment(1)

test_that("BearhausEnrollmentClean converts data.frame", {
  expect_equal(BearhausEnrollmentClean(df), BearhausEnrollmentClean(df))
})

test_that("BearhausEnrollmentClean converts data.frame", {
  expect_equal(BearhausEnrollmentClean(list(df, df)), BearhausEnrollmentClean(list(df, df)))
})
BenBarnard/GradSchoolReport documentation built on Dec. 31, 2017, 12:11 p.m.