Running ‘testthat.R’ [2s/8s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > library(rzentra)
  > 
  > test_check("rzentra")
  [ FAIL 3 | WARN 0 | SKIP 7 | PASS 3 ]
  
  ══ Skipped tests (7) ═══════════════════════════════════════════════════════════
  • token == "" is TRUE (7): 'test-parser.R:3:1', 'test-zc_readings.R:7:3',
    'test-zc_readings.R:12:1', 'test-zc_settings.R:7:3',
    'test-zc_settings.R:13:1', 'test-zc_statuses.R:7:3',
    'test-zc_statuses.R:13:1'
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Failure ('test-zc_readings.R:5:3'): zc_statuses returns errors ──────────────
  `zc_readings(token = "aaa", sn = "z6-00033")` threw an error with unexpected message.
  Expected match: "Invalid token."
  Actual message: "lexical error: invalid char in json text.\n                                       <!DOCTYPE HTML PUBLIC \"-//IETF/\n                     (right here) ------^\n"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-zc_readings.R:5:3
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─rzentra::zc_readings(token = "aaa", sn = "z6-00033")
    7. │ └─... %>% jsonlite::fromJSON(simplifyVector = FALSE)
    8. └─jsonlite::fromJSON(., simplifyVector = FALSE)
    9.   └─jsonlite:::parse_and_simplify(...)
   10.     └─jsonlite:::parseJSON(txt, bigint_as_char)
   11.       └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Failure ('test-zc_settings.R:5:3'): zc_settings returns errors ──────────────
  `zc_settings(token = "aaa", sn = "z6-00033")` threw an error with unexpected message.
  Expected match: "Invalid token."
  Actual message: "lexical error: invalid char in json text.\n                                       <!DOCTYPE HTML PUBLIC \"-//IETF/\n                     (right here) ------^\n"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-zc_settings.R:5:3
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─rzentra::zc_settings(token = "aaa", sn = "z6-00033")
    7. │ └─... %>% jsonlite::fromJSON(simplifyVector = FALSE)
    8. └─jsonlite::fromJSON(., simplifyVector = FALSE)
    9.   └─jsonlite:::parse_and_simplify(...)
   10.     └─jsonlite:::parseJSON(txt, bigint_as_char)
   11.       └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Failure ('test-zc_statuses.R:5:3'): zc_statuses returns errors ──────────────
  `zc_statuses(token = "aaa", sn = "z6-00033")` threw an error with unexpected message.
  Expected match: "Invalid token."
  Actual message: "lexical error: invalid char in json text.\n                                       <!DOCTYPE HTML PUBLIC \"-//IETF/\n                     (right here) ------^\n"
  Backtrace:
       ▆
    1. ├─testthat::expect_error(...) at test-zc_statuses.R:5:3
    2. │ └─testthat:::quasi_capture(...)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. ├─rzentra::zc_statuses(token = "aaa", sn = "z6-00033")
    7. │ └─... %>% jsonlite::fromJSON(simplifyVector = FALSE)
    8. └─jsonlite::fromJSON(., simplifyVector = FALSE)
    9.   └─jsonlite:::parse_and_simplify(...)
   10.     └─jsonlite:::parseJSON(txt, bigint_as_char)
   11.       └─jsonlite:::parse_string(txt, bigint_as_char)
  
  [ FAIL 3 | WARN 0 | SKIP 7 | PASS 3 ]
  Error: Test failures
  Execution halted