Running ‘testthat.R’ [0m/38m]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rcongresso)
  > 
  > test_check("rcongresso")
  ── 1. Error: (unknown) (@test_deputados.R#81)  ─────────────────────────────────
  argument "message" is missing, with no default
  1: skip() at testthat/test_deputados.R:81
  2: structure(list(message = message), class = c("skip", "condition"))
  
  ── 2. Error: Warnings de siglas incorretas (@test_partidos.R#28)  ──────────────
  Falha na requisicao a API dos Dados Abertos. Erro 504 ao tentar acessar: https://dadosabertos.camara.leg.br/api/v2/partidos?sigla=PT
  1: expect_that(fetch_id_partido(PARTIDOS_ERRO), gives_warning(.WARNING_SIGLA_PARTIDO)) at testthat/test_partidos.R:28
  2: condition(object)
  3: expect_warning(x, regexp = regexp, all = all, ...)
  4: quasi_capture(enquo(object), capture_warnings, label = label)
  5: capture(act$val <- eval_bare(get_expr(quo), get_env(quo)))
  6: withCallingHandlers(code, warning = function(condition) {
         out$push(condition)
         invokeRestart("muffleWarning")
     })
  7: eval_bare(get_expr(quo), get_env(quo))
  8: fetch_id_partido(PARTIDOS_ERRO)
  9: tibble::tibble(sigla) %>% dplyr::rowwise() %>% dplyr::do(fetch_partido(sigla = .$sigla)$id %>% 
         .verifica_id(.WARNING_SIGLA_PARTIDO) %>% .to_tibble()) %>% unlist() %>% as.vector()
  10: withVisible(eval(quote(`_fseq`(`_lhs`)), env, env))
  ...
  42: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  43: .get_from_api(path, query, final_timeout, tentativa)
  44: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  45: .get_from_api(path, query, final_timeout, tentativa)
  46: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  47: .get_from_api(path, query, final_timeout, tentativa)
  48: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  49: .get_from_api(path, query, final_timeout, tentativa)
  50: .MENSAGEM_ERRO_REQ(httr::status_code(resp), api_url)
  51: stop(sprintf("Falha na requisicao a API dos Dados Abertos. Erro %s ao tentar acessar: %s", 
         error_code, api_url), call. = FALSE)
  
  ── 3. Error: Quantidade default por requisição, atualmente 15 (@test_partidos.R#
  Falha na requisicao a API dos Dados Abertos. Erro 504 ao tentar acessar: https://dadosabertos.camara.leg.br/api/v2/partidos
  1: expect_equal(dim(fetch_partido()), TAM_DF_DEFAULT) at testthat/test_partidos.R:58
  2: quasi_label(enquo(object), label)
  3: eval_bare(get_expr(quo), get_env(quo))
  4: fetch_partido()
  5: .congresso_api(.PARTIDOS_PATH) %>% .assert_dataframe_completo(.COLNAMES_PARTIDOS) %>% 
         .coerce_types(.COLNAMES_PARTIDOS)
  6: eval(lhs, parent, parent)
  7: eval(lhs, parent, parent)
  8: .congresso_api(.PARTIDOS_PATH)
  9: .get_from_api(path, query)
  10: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  11: .get_from_api(path, query, final_timeout, tentativa)
  12: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  13: .get_from_api(path, query, final_timeout, tentativa)
  14: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  15: .get_from_api(path, query, final_timeout, tentativa)
  16: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  17: .get_from_api(path, query, final_timeout, tentativa)
  18: .use_backoff_exponencial(path, query, timeout, tentativa + 1)
  19: .get_from_api(path, query, final_timeout, tentativa)
  20: .MENSAGEM_ERRO_REQ(httr::status_code(resp), api_url)
  21: stop(sprintf("Falha na requisicao a API dos Dados Abertos. Erro %s ao tentar acessar: %s", 
         error_code, api_url), call. = FALSE)
  
  ── 4. Error: (unknown) (@test_proposicoes.R#91)  ───────────────────────────────
  Falha na requisicao a API dos Dados Abertos. Erro 504 ao tentar acessar: https://dadosabertos.camara.leg.br/api/v2/proposicoes?siglaTipo=PEC&numero=241&ano=2016&dataInicio=2016-01-01
  1: check_api() at testthat/test_proposicoes.R:91
  2: tryCatch(setup(), error = function(e) {
         message(e)
         return(FALSE)
     }) at testthat/test_proposicoes.R:15
  3: tryCatchList(expr, classes, parentenv, handlers)
  4: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  5: value[[3L]](cond)
  6: message(e) at testthat/test_proposicoes.R:16
  7: withRestarts({
         signalCondition(cond)
         defaultHandler(cond)
     }, muffleMessage = function() NULL)
  8: withOneRestart(expr, restarts[[1L]])
  9: doWithOneRestart(return(expr), restart)
  
  ── 5. Error: (unknown) (@test_votacoes.R#70)  ──────────────────────────────────
  argument "message" is missing, with no default
  1: skip() at testthat/test_votacoes.R:70
  2: structure(list(message = message), class = c("skip", "condition"))
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 10 SKIPPED: 0 FAILED: 5
  1. Error: (unknown) (@test_deputados.R#81) 
  2. Error: Warnings de siglas incorretas (@test_partidos.R#28) 
  3. Error: Quantidade default por requisição, atualmente 15 (@test_partidos.R#58) 
  4. Error: (unknown) (@test_proposicoes.R#91) 
  5. Error: (unknown) (@test_votacoes.R#70) 
  
  Error: testthat unit tests failed
  Execution halted