tests/testthat/test-preanalyze.R

In elbird: Blazing Fast Morphological Analyzer Based on Kiwi(Korean Intelligent Word Identifier)

test_that("pre analyze words df", {
  skip_if_offline()
  skip_on_os(os = "windows", arch = "i386")
  if (!model_works("small"))
    get_model("small")

  anl <- tibble::tibble(
    morphs = c("팅기", "었", "어"),
    pos = c("vv", "ep", "ef"),
    start = c(0L, 1L, 2L),
    end = c(1L, 2L, 3L)
  )

  kb <- kiwi_builder_init_(kiwi_model_path_full("small"), 0, BuildOpt$DEFAULT)

  res <- kiwi_builder_add_pre_analyzed_word_(kb, "팅겼어", anl, 0)
  expect_equal(res, -1)

  kiwi_builder_add_alias_word_(kb, "팅기","vv", -1, "튕기")

  res <- kiwi_builder_add_pre_analyzed_word_(kb, "팅겼어", anl, 0)
  expect_equal(res, 0)
  kw <- kiwi_builder_build_(kb)
  res <- kiwi_analyze_wrap(kw, text = "팅겼어...", 1, Match$ALL_WITH_NORMALIZING)
  expect_equal(res[[1]]$Token[[1]]$form, "팅기")
  expect_equal(res[[1]]$Token[[1]]$tag, "VV")
})