Verified Commit ba946cac authored by Cody L Marquart's avatar Cody L Marquart
Browse files

Fixed test

[check rub]
parent e4062ebc
Pipeline #64114 passed with stages
in 2 minutes and 1 second
......@@ -241,10 +241,10 @@ testthat::test_that("Verify unseen words with bad word as regex", {
newcode$touchableExcerpts <- 33:40;
newcode$touchedIndices <- NULL;
newcode$trainingSet <- data.frame(ID = c(6,2), X1 = c(0, 0))
unseen_indices <-unseen_words(newcode, unweighted = TRUE)
unseen_indices <- unseen_words(newcode, unweighted = TRUE)
testthat::expect_null(unseen_indices)
newcode$excerpts[40] <- "A (A A K"
unseen_indices <-unseen_words(newcode, unweighted = TRUE)
unseen_indices <- unseen_words(code = newcode, unweighted = TRUE, include_handcoded = TRUE, exclude_matched_by = c("word"))
testthat::expect_equal(unseen_indices, c(40))
})
\ No newline at end of file
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment