tests/testthat/test-cleansing_corpus.R

context("Testing cleansing corpus function")

test_that("Is cleansing_corpus Ok", {

  txt <- "It has roots in a piece of classical Latin literature from 45 BC"

  y <- cleansing_corpus(txt)
  expect_type(y, "character")

  expect_error(cleansing_corpus(100))

})

Try the labourR package in your browser

Any scripts or data that you put into this service are public.

labourR documentation built on July 18, 2020, 5:06 p.m.