tests/testthat/test-remove_whitespace.R

In paulhendricks/queryr: Tools for Querying SQL Databases from R

library(queryr)
context("remove_whitespace()")

test_that("Produces the correct output.", {
  expect_equal(remove_whitespace("  this is  \n  too  much\t white \t\t  \n\n\n  space    "), "this is too much white space")
})

test_that("Produces the correct output type.", {
  expect_is(remove_whitespace("  this is    too  much   white  space    "), "character")
})

test_that("Produces the correct errors.", {
})