From 9a7f3edd43520a4fe1ab29fd298906603ade3785 Mon Sep 17 00:00:00 2001 From: Daniel Herszenhut Date: Thu, 25 Jan 2024 13:29:47 -0300 Subject: [PATCH] testes da padronizar_numeros() --- tests/testthat/test-padronizar_numeros.R | 28 ++++++++++++++++++++++++ 1 file changed, 28 insertions(+) create mode 100644 tests/testthat/test-padronizar_numeros.R diff --git a/tests/testthat/test-padronizar_numeros.R b/tests/testthat/test-padronizar_numeros.R new file mode 100644 index 0000000..bf65123 --- /dev/null +++ b/tests/testthat/test-padronizar_numeros.R @@ -0,0 +1,28 @@ +test_that("da erro com inputs != de caracteres e numeros", { + expect_error(padronizar_numeros(as.factor(22290140))) +}) + +test_that("padroniza corretamente", { + expect_equal(padronizar_numeros("00001"), "1") + expect_equal(padronizar_numeros("0000"), "0") + expect_equal(padronizar_numeros("01 02"), "1 2") + expect_equal(padronizar_numeros(""), "S/N") + expect_equal(padronizar_numeros("SN"), "S/N") + expect_equal(padronizar_numeros("S N"), "S/N") + expect_equal(padronizar_numeros("S.N."), "S/N") + expect_equal(padronizar_numeros("S. N."), "S/N") + expect_equal(padronizar_numeros("S/N"), "S/N") + expect_equal(padronizar_numeros("S./N."), "S/N") + expect_equal(padronizar_numeros("S./N. S N"), "S/N S/N") + expect_equal(padronizar_numeros(NA_character_), "S/N") + + expect_equal(padronizar_numeros(1), "1") + expect_equal(padronizar_numeros(NA_integer_), "S/N") + expect_equal(padronizar_numeros(c(1, 2000, NA)), c("1", "2000", "S/N")) +}) + +test_that("lida com vetores vazios corretamente", { + expect_equal(padronizar_numeros(character(0)), character(0)) + expect_equal(padronizar_numeros(integer(0)), character(0)) + expect_equal(padronizar_numeros(numeric(0)), character(0)) +})