tests/testthat/test-handlers.R

In qryflow: Execute Multi-Step 'SQL' Workflows

test_that("qryflow_handler_exists() returns logical", {
  expect_true(qryflow_handler_exists("query"))
})

test_that("ls_qryflow_handlers() returns supported types", {
  x <- ls_qryflow_handlers()
  expect_in(x, c("query", "exec"))
})

test_that("validate_qryflow_handler() passes valid function", {
  x <- function(chunk, con, ...){}
  expect_true(validate_qryflow_handler(x))
})

test_that("validate_qryflow_handler() errors on improper order", {
  x <- function(con, chunk, ...){}
  expect_error(validate_qryflow_handler(x))
})

test_that("validate_qryflow_handler() errors if not function", {
  x <- list()
  expect_error(validate_qryflow_handler(x))
})