tests/testthat/test-MeCab.R

In yamano357/rJaNLP: Japanese NLP package for R

context("MeCab")

test_that("MeCab result test", {
  example <- JaNLP$new(text = "すもももももももものうち")
  expect_equal(
    object = as.character(example$mecab()$surface),
    expected = c("すもも", "も", "もも", "も", "もも", "の", "うち")
  )
})