tests/testthat/test_deputados.R

In rcongresso: Wraps the API for the Brazilian Chamber of Deputies

context("Deputados")

# Setup
setup <- function(){
  dep_info <<- fetch_deputado(siglaUf = "RR", siglaSexo = "M")
  dep_info_por_id <<- fetch_deputado(178957)
  dep_gastos <<- fetch_despesas_deputado(178957)
  dep_ativos <<- fetch_deputado(itens = -1)

  return(TRUE)
}

check_api <- function(){
  tryCatch(setup(), error = function(e){return(FALSE)})
}

test <- function(){
  # Testa erros
  test_that("GET deputado inexistente", {
    expect_error(fetch_deputado(-1))
  })

  # Constantes
  ABEL_MESQUITA_ID <- 178957
  NOME_ESPERADO <- "ABEL SALVADOR MESQUITA JUNIOR"
  ABEL_MESQUITA_DN <- "1962-03-29"
  ABEL_MESQUITA_UF <-"RR"

  TAM_DF_DEFAULT <- c(15, 8)
  #TAM_DF_DEP_ATIVOS <- c(513, 8)

  # Testes
  # Os nomes das colunas e os tipos estão definidos em colunas_constants.R
  test_that("Is dataframe", {
    expect_true(is.data.frame(dep_info))
    expect_true(is.data.frame(dep_info_por_id))
    expect_true(is.data.frame(dep_gastos))
    expect_true(is.data.frame(dep_ativos))
  })

  test_that("Not Empty", {
    expect_true(nrow(dep_info) != 0)
    expect_true(nrow(dep_info_por_id) != 0)
    expect_true(nrow(dep_gastos) != 0)
    expect_true(nrow(dep_ativos) != 0)
  })

  test_that("fetch_deputado() usando ID", {
    expect_true(all(sapply(dep_info_por_id, class) %in% .COLNAMES_DEP_INFO_ID))
  })

  test_that("fetch_deputado() usando queries", {
    expect_true(all(sapply(dep_info, class) %in% .COLNAMES_DEP_INFO))
  })

  test_that("fetch_despesas_deputado()", {
    expect_true(all(sapply(dep_gastos, class) %in% .COLNAMES_DEP_GASTOS))
  })

  test_that("fetch_deputado() - Todos os deputados em exercício", {
    expect_true(all(sapply(dep_ativos, class) %in% .COLNAMES_DEP_INFO))
  })

  test_that("ID do deputado", {expect_equal(dep_info_por_id$id, ABEL_MESQUITA_ID)})
  test_that("Nome do deputado", {expect_equal(dep_info_por_id$nomeCivil, NOME_ESPERADO)})
  test_that("Data de nascimento do deputado", {expect_equal(dep_info_por_id$dataNascimento, ABEL_MESQUITA_DN)})
  test_that("UF de nascimento do deputado", {expect_equal(dep_info_por_id$ufNascimento, ABEL_MESQUITA_UF)})

  test_that("Quantidade default por requisição, atualmente 15",{
    expect_equal(dim(fetch_deputado()), TAM_DF_DEFAULT)
  })

  # Verificar um meio de testar melhor essa parte porque não necessariamente vão ter 513 deputados sempre.
  # Esse número varia entre 513 e 510, alguns podem se afastar e até o suplente assumir acho que não
  # aparece aqui, podendo quebrar os testes.
  # test_that("Quantidade de deputados em exercício, atualmente 513",{
  #   expect_equal(dim(dep_ativos), TAM_DF_DEP_ATIVOS)
  # })
}

if(check_api()){
  test()
} else skip()