tests/testthat/_problems/test-tokens-word4-279.R

In quanteda: Quantitative Analysis of Textual Data

# Extracted from test-tokens-word4.R:279

# setup ------------------------------------------------------------------------
library(testthat)
test_env <- simulate_test_env(package = "quanteda", path = "..")
attach(test_env, warn.conflicts = FALSE)

# prequel ----------------------------------------------------------------------
quanteda_options("tokens_tokenizer_word" = "word4")

# test -------------------------------------------------------------------------
expect_equal(unlist(tokens(c(doc1 = "aaa bbb cccc", doc2 = "aaa bbb dddd"))),
                 c(doc11 = "aaa", doc12 = "bbb", doc13 = "cccc",
                   doc21 = "aaa", doc22 = "bbb", doc23 = "dddd"))