tests/testthat/test-case.R

In hunspell: High-Performance Stemmer, Tokenizer, and Spell Checker

context("Test Case Sensitivity")

# By default, only 'JavaScript' is correct case

test_that("Words have proper casing", {
  expect_true(hunspell_check("JavaScript", dict = 'en_GB'))
  expect_true(hunspell_check("JavaScript", dict = 'en_US'))
  expect_false(hunspell_check("Javascript", dict = 'en_GB'))
  expect_false(hunspell_check("Javascript", dict = 'en_US'))

  # Add the word
  expect_true(hunspell_check("JavaScript", dict = dictionary(lang = 'en_GB', add_words = "Javascript")))
  expect_true(hunspell_check("JavaScript", dict = dictionary(lang = 'en_US', add_words = "Javascript")))
  expect_true(hunspell_check("Javascript", dict = dictionary(lang = 'en_GB', add_words = "Javascript")))
  expect_true(hunspell_check("Javascript", dict = dictionary(lang = 'en_US', add_words = "Javascript")))

  # This is still false
  expect_false(hunspell_check("JAVAScript", dict = dictionary(lang = 'en_GB')))
  expect_false(hunspell_check("JAVAScript", dict = dictionary(lang = 'en_US')))
  expect_false(hunspell_check("JAVAScript", dict = dictionary(lang = 'en_GB', add_words = "Javascript")))
  expect_false(hunspell_check("JAVAScript", dict = dictionary(lang = 'en_US', add_words = "Javascript")))

})


test_that("Fancy quote is converted to apostrophe", {
  x = "foo\u2019bar"
  y = "foo'bar"
  for(lang in c("en_US", "en_GB")){
    expect_false(hunspell_check(x, dict = dictionary(lang = lang)))
    expect_true(hunspell_check(x, dict = dictionary(lang = lang, add_words = x)))
    expect_true(hunspell_check(x, dict = dictionary(lang = lang, add_words = y)))
    expect_true(hunspell_check(y, dict = dictionary(lang = lang, add_words = x)))
    expect_true(hunspell_check(y, dict = dictionary(lang = lang, add_words = y)))
  }
})