tests/testthat/test-valid_validation_rules.R

In jason-p-pickering/datim-validation: External Validation Routines for Data Payloads in DATIM

test_that("Can pass a valid validation rule expression", {

  inds <- "#{AppEXdI1dhS}"
  parsed_inds <- lapply(inds, function(x) lex(x, vr_regexes))
  is_valid <- isValidExpression(parsed_inds)
  expect_true(is_valid)

})

test_that("Can fail a valid validation rule expression", {

  inds <- "foo"
  parsed_inds <- lapply(inds, function(x) lex(x, vr_regexes))
  is_valid <- isValidExpression(parsed_inds)
  expect_false(is_valid)


  inds <- "#{AppEXdI1dhS} + foo"
  parsed_inds <- lapply(inds, function(x) lex(x, vr_regexes))
  is_valid <- isValidExpression(parsed_inds)
  expect_false(is_valid)
})


test_that("Can filter invalid validation rule expression", {

  inds <- c("#{AppEXdI1dhS}", "foo")
  parsed_inds <- lapply(inds, function(x) lex(x, vr_regexes))
  is_valid <- isValidExpression(parsed_inds)
  expect_identical(is_valid, c(TRUE, FALSE))
  expect_true(parsed_inds[is_valid][[1]] == inds[1])

})