Running ‘testthat.R’ [6s/97s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(RColetum)
  > 
  > test_check("RColetum")
  ── 1. Failure: error by wrong token (@test-GetAnswers.R#630)  ──────────────────
  `GetAnswers("notexisttoken", 5705)` threw an error with unexpected message.
  Expected match: "Error 401: O token informado não é válido para o acesso."
  Actual message: "Recv failure: Connection reset by peer"
  
  ── 2. Failure: error by wrong token (@test-GetAnswers.R#634)  ──────────────────
  `GetAnswers("", 5705)` threw an error with unexpected message.
  Expected match: "Error 401: Unauthorized"
  Actual message: "Failed to connect to www.coletum.com port 80: Connection refused"
  
  ── 3. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#641)  ─────
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5715)` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Failed to connect to www.coletum.com port 80: Connection refused"
  
  ── 4. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#646)  ─────
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", nameForm = "RColetum Test - NaN")` threw an error with unexpected message.
  Expected match: "Name not found."
  Actual message: "Error 503: \n"
  
  ── 5. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#652)  ─────
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5841, "RColetum Test - NaN")` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Error 503: \n"
  
  ── 6. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#661)  ─────
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5715, "RColetum Test - Iris")` threw an error with unexpected message.
  Expected match: "Form not found."
  Actual message: "Error 503: \n"
  
  ── 7. Failure: errors in the bad use of filters parameters (@test-GetAnswers.R#6
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5705, source = "web")` threw an error with unexpected message.
  Expected match: "The option 'web' are not avaliable for the filter 'source'. The avaliable options to this filter are: 'web_public' or 'web_private' or 'mobile'."
  Actual message: "Error 503: \n"
  
  ── 8. Failure: errors in the bad use of filters parameters (@test-GetAnswers.R#6
  `GetAnswers("cizio7xeohwgc8k4g4koo008kkoocwg", 5705, source = "private")` threw an error with unexpected message.
  Expected match: "The option 'private' are not avaliable for the filter 'source'. The avaliable options to this filter are: 'web_public' or 'web_private' or 'mobile'."
  Actual message: "Error 503: \n"
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  [ OK: 67 | SKIPPED: 0 | WARNINGS: 7 | FAILED: 8 ]
  1. Failure: error by wrong token (@test-GetAnswers.R#630) 
  2. Failure: error by wrong token (@test-GetAnswers.R#634) 
  3. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#641) 
  4. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#646) 
  5. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#652) 
  6. Failure: error by wrong idForm or nameForm (@test-GetAnswers.R#661) 
  7. Failure: errors in the bad use of filters parameters (@test-GetAnswers.R#685) 
  8. Failure: errors in the bad use of filters parameters (@test-GetAnswers.R#694) 
  
  Error: testthat unit tests failed
  Execution halted