tests/testthat/test-str.R

In zipangu: Japanese Utility Functions and Data

test_that("convert jstr works", {
  expect_equal(
    str_jconv("\u30a2\u30a4\u30a6\u30a8\u30aa", str_conv_hirakana, to = "hiragana"),
    "\u3042\u3044\u3046\u3048\u304a"
  )
  expect_equal(
    str_jconv("\u3042\u3044\u3046\u3048\u304a", str_conv_hirakana, to = "katakana"),
    "\u30a2\u30a4\u30a6\u30a8\u30aa"
  )
  expect_equal(
    str_jconv("\uff41\uff10", str_conv_zenhan, "hankaku"),
    "a0"
  )
  expect_equal(
    str_jconv("\uff76\uff9e\uff6f", str_conv_zenhan, "zenkaku"),
    "\u30ac\u30c3"
  )
  expect_equal(
    str_jconv("\u3042\u3044\u3046\u3048\u304a", str_conv_romanhira, "roman"),
    "aiueo"
  )
  expect_equal(
    str_jconv("\u2460", str_conv_normalize, "nfkc"),
    "1"
  )
  expect_equal(
    str_conv_hirakana("\u30a2\u30a4\u30a6\u30a8\u30aa", to = "hiragana"),
    "\u3042\u3044\u3046\u3048\u304a"
  )
  expect_equal(
    str_conv_hirakana("\u3042\u3044\u3046\u3048\u304a", to = "katakana"),
    "\u30a2\u30a4\u30a6\u30a8\u30aa"
  )
  expect_equal(
    str_conv_zenhan("\uff41\uff10", "hankaku"),
    "a0"
  )
  expect_equal(
    str_conv_zenhan("\uff76\uff9e\uff6f", "zenkaku"),
    "\u30ac\u30c3"
  )
  expect_equal(
    str_conv_romanhira("\u3042\u3044\u3046\u3048\u304a", "roman"),
    "aiueo"
  )
  expect_equal(
    str_conv_romanhira("hiragana", "hiragana"),
    "\u3072\u3089\u304c\u306a"
  )
  expect_equal(
    str_conv_normalize("\u2460", "nfkc"),
    "1"
  )
})