tests/testthat/test-get_cic_meta_lu.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-get_cic_meta_lu.R")

test_that("`get_cic_meta_lu()` throws error message when `df_ttr_out` argument is NULL", {
  expect_error(get_cic_meta_lu("possessable object"), "The `df_ttr_out` argument is NULL")
})

ttr_metaphor <- ttr(df = phd_data_metaphor,
                    schema_var = "metaphors",
                    lexunit_var = "lu",
                    float_digits = 2)
cic <- get_cic_meta_lu("desired goal", df_ttr_out = ttr_metaphor)

test_that("the correct columns output of `get_cic_meta_lu()`", {
  expect_equal(object = dim(cic)[2], expected = 4L)
  expect_output(str(cic), "\\$ (Lexical_units|Gloss|N|Perc_overall)", all = TRUE, perl = TRUE)
})