tests/testthat/test-moranajp.R

In matutosi/moranajp: Morphological Analysis for Japanese

test_that("add_text_id() work", {
    times <- 2:4
    tbl <-
      tibble::tibble(col=c(rep("a", times[1]), "EOS", rep("b", times[2]), "EOS", rep("c", times[3]), "EOS"))
    res <- c(rep(1, times[1]), rep(2, times[2] + 1), rep(3, times[3] + 1), 4)       # "+ 1": because of EOS
      # add_text_id()
    expect_equal(add_text_id(tbl, method = "mecab", brk = "EOS")$text_id, res)
})

test_that("text_id of moranajp matches text number", {
    bin_dir <- c("d:/pf/mecab/bin", "/opt/local/mecab/bin")
    bin_dir <- bin_dir[file.exists(bin_dir)]
    if(length(bin_dir) == 1){
      res <-
          neko |>
          dplyr::mutate(text = stringi::stri_unescape_unicode(text)) |>
          dplyr::mutate(cols = dplyr::row_number()) |>
          moranajp_all(text_col = "text", bin_dir = bin_dir, iconv = "CP932_UTF-8")
    }
    skip_if(length(bin_dir) != 1)
        expect_equal(res$cols, res$text_id)
})