tests/testthat/test-cq.R

In tjtnew/coffee: Stuff that helps me get going

test_that("cq works", {
  expected <- c("dale", "audrey", "laura", "hawk")
  expect_equal(ccq("  dale    audrey   laura hawk "), expected)
  expect_equal(cq(dale, audrey, laura, hawk), expected)
  expect_error(ccq("dale audrey laura", hawk))
})