tests/testthat/test-fye.R

In gederajeg/collogetr: Collocates Retriever and Collocation Association Measure for the Indonesian Leipzig Corpora

context("test-fye.R")

# prepare data
out <- colloc_leipzig(leipzig_corpus_list = demo_corpus_leipzig,
                                            pattern = "mengatakan",
                                            window = "r",
                                            span = 3L,
                                            save_interim = FALSE)
assoc_tb <- assoc_prepare(colloc_out = out, stopword_list = stopwords)
am_fye <- collex_fye(df = assoc_tb, collstr_digit = 3L)

test_that("collex_fye produces tibble", {
  expect_output(str(am_fye), "tbl_df")
})

test_that("collex_fye produces tibble of 9 columns", {
  expect_equal(dim(am_fye)[2], 9L)
})

test_that("collstr and the dPs measures are of the type 'double'", {
  expect_type(am_fye$collstr, "double")
  expect_type(am_fye$dP_collex_cue_cxn, "double")
  expect_type(am_fye$dP_cxn_cue_collex, "double")
})

collstr_vals <- c(Inf, 12.2, 5.42)
test_that("'Inf' and non-infinite collstr are of the type 'double'", {
  expect_type(collstr_vals, "double")
})