tests/testthat/test-correspondencia_campos.R

In enderecobr: Padronizador de Endereços Brasileiros (Brazilian Addresses Standardizer)

test_that("da erro com inputs != de caracteres", {
  expect_error(correspondencia_campos(tipo_de_logradouro = 1))
  expect_error(correspondencia_campos(tipo_de_logradouro = c("oi", "ola")))
  expect_error(correspondencia_campos(logradouro = 1))
  expect_error(correspondencia_campos(logradouro = c("oi", "ola")))
  expect_error(correspondencia_campos(numero = 1))
  expect_error(correspondencia_campos(numero = c("oi", "ola")))
  expect_error(correspondencia_campos(complemento = 1))
  expect_error(correspondencia_campos(complemento = c("oi", "ola")))
  expect_error(correspondencia_campos(cep = 1))
  expect_error(correspondencia_campos(cep = c("oi", "ola")))
  expect_error(correspondencia_campos(bairro = 1))
  expect_error(correspondencia_campos(bairro = c("oi", "ola")))
  expect_error(correspondencia_campos(municipio = 1))
  expect_error(correspondencia_campos(municipio = c("oi", "ola")))
  expect_error(correspondencia_campos(estado = 1))
  expect_error(correspondencia_campos(estado = c("oi", "ola")))
})

test_that("da erro quando todos os inputs sao nulos", {
  expect_snapshot(correspondencia_campos(), error = TRUE, cnd_class = TRUE)
})

test_that("retorna vetor de caracteres", {
  expect_identical(
    correspondencia_campos(
      tipo_de_logradouro = "nihao",
      logradouro = "oi",
      numero = "ola",
      complemento = "hola",
      cep = "hi",
      bairro = "hello",
      municipio = "shalom",
      estado = "salaam"
    ),
    c(
      tipo_de_logradouro = "nihao",
      logradouro = "oi",
      numero = "ola",
      complemento = "hola",
      cep = "hi",
      bairro = "hello",
      municipio = "shalom",
      estado = "salaam"
    )
  )

  expect_identical(
    correspondencia_campos(logradouro = "oi", numero = "ola"),
    c(logradouro = "oi", numero = "ola")
  )
})