tests/testthat/test-unaccent-traduction_caracteres.R

In guiboucher/INESSS-inesss: INESSS

test_that(
  "unaccent : convertir le bon caractère à partir d'un dictionnaire de traduction.",
  {
    dictio_test <- list("À" = "A", "à" = "a", "É" = "E", "é" = "e")  # dictionnaire de test

    # Convertir caractères appartenant au dictionnaire
    actual <- unaccent(text = "ÀàÉé", dictionnaire = dictio_test)
    expect_equal(actual, "AaEe")

    # Avec d'autres caractères n'appartenant pas au dictionnaire
    actual <- unaccent(text = "Àa", dictionnaire = dictio_test)
    expect_equal(actual, "Aa")

    # Avec des ponctuations
    actual <- unaccent("Àa!?", dictio_test)
    expect_equal(actual, "Aa!?")

    # Des espaces?
    actual <- unaccent("À a", dictio_test)
    expect_equal(actual, "A a")
  }
)


test_that(
  "add_caracteres : ajout d'un caractère à convertir/traduire.",
  {
    dictio_test <- list("À" = "A", "à" = "a", "É" = "E", "é" = "e")  # dictionnaire de test

    # Ajouter È et è
    dictio_test <- add_caracteres(char = "È", traduc = "E", dictio_test)
    dictio_test <- add_caracteres(char = "è", traduc = "e", dictio_test)
    expect_equal(dictio_test, list("À" = "A", "à" = "a", "É" = "E", "é" = "e", "È" = "E", "è" = "e"))
  }
)


test_that(
  "search_caracteres : Chercher une valeur dans un dictionnaire (avec ou sans correspondance).",
  {
    dictio_test <- list("À" = "A", "à" = "a", "É" = "E", "é" = "e")  # dictionnaire de test

    # Avec correspondance
    actual <- search_caracteres("À", dictio_test)
    expect_equal(actual, "A")

    # Sans correspondance
    expect_null(search_caracteres("Ô", dictio_test))
  }
)