tests/testthat/test-scaps.R

In gederajeg/happyr: The Accompanying R Package for Rajeg's (2019) PhD Thesis Titled "Metaphorical Profiles and Near Synonyms: A Corpus-based Study of Indonesian Words for Happiness"

context("test-scaps.R")

strings <- c("concept1", "concept2")
test_that("multiple string-input produces output of length greater than 1L", {
  expect_equal(length(scaps(strings)), length(strings))
})

test_that("unidentified object input returns error", {
  expect_error(scaps(x), "^object.+?not found$", perl = TRUE)
})