tests/testthat/test_validators.R

context("validators")

thisIsIris = isThisDFOk(schema_iris)
test_that("makeItPassIf returns df if used correctly", {
  df = makeItPassIf(thisIsIris)(iris)
  expect_is(df, "data.frame")
  expect_true(all(df == iris))
})
fcyprowski/schemar documentation built on July 15, 2020, 1:03 p.m.