tests/testthat/test-str_limpiar.R

test_that("str_limpiar funciona", {
    expect_equal(str_limpiar("un\t\tavión"), "UN AVION")
    expect_equal(str_limpiar("universidad de   huánuco"), "UNIVERSIDAD DE HUANUCO")
    expect_true(is.na(str_limpiar(NA)))
})
calderonsamuel/casemisc documentation built on Aug. 4, 2022, 2:17 p.m.