tests/testthat/test-cleansing_corpus.R

In eworx-org/labourR: Classify Multilingual Labour Market Free-Text to Standardized Hierarchical Occupations

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))

})