tests/test-utils.R

In Global-TIES-for-Children/test-data-project: A test data project using Drake, Github, and OSF

test_that("Default functions work", {
  expect_error(c(1, 2) %if_empty_string% NULL)
  expect_error(c("", "") %if_empty_string% NULL)
  
  expect_identical("hi" %if_empty_string% "bye", "hi")
  expect_identical("" %if_empty_string% "bye", "bye")
})