Merge pull request #106 from lmullen/fix-skip-grams-test

Fix tests for corrected tokenize_skip_ngrams()
juliasilge · Mar 21, 2018 · 517da8e · 517da8e
2 parents 4a62919 + 5dc82ad
commit 517da8e
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/tests/testthat/test-unnest-tokens.R b/tests/testthat/test-unnest-tokens.R
@@ -83,8 +83,8 @@ test_that("tokenizing by ngram and skip ngram works", {
   d <- d2 %>% unnest_tokens(ngram, txt, token = "skip_ngrams", n = 4, k = 2)
   #expect_equal(nrow(d), 189) does not pass on appveyor
   expect_equal(ncol(d), 1)
-  expect_equal(d$ngram[1], "hope thing that the")
-  expect_equal(d$ngram[10], "the sings without and")
+  expect_equal(d$ngram[40], "hope thing that the")
+  expect_equal(d$ngram[400], "the sings without and")
 
 })