Running 'testthat.R' [2s]
Running the tests in 'tests/testthat.R' failed.
Complete output:
  > library(testthat)
  > library(hypothesisr)
  > 
  > test_check("hypothesisr")
  [ FAIL 3 | WARN 0 | SKIP 1 | PASS 7 ]
  
  ══ Skipped tests ═══════════════════════════════════════════════════════════════
  • On CRAN (1)
  
  ══ Failed tests ════════════════════════════════════════════════════════════════
  ── Error (test_search.R:17:3): hs_search returns a list of the expected format. ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─hypothesisr::hs_search(text = "ulysses", limit = 5) at test_search.R:17:2
   2.   └─hypothesisr:::hs_search_results(query_response)
   3.     └─hypothesisr:::list_results(hs_search_response)
   4.       └─jsonlite::fromJSON(hs_content(hs_response), flatten = TRUE)
   5.         └─jsonlite:::parse_and_simplify(...)
   6.           └─jsonlite:::parseJSON(txt, bigint_as_char)
   7.             └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error (test_search.R:31:3): custom fields in hs_search are correctly added to URL. ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
      ▆
   1. └─hypothesisr::hs_search(limit = 5, custom = list(tags = "todo")) at test_search.R:31:2
   2.   └─hypothesisr:::hs_search_results(query_response)
   3.     └─hypothesisr:::list_results(hs_search_response)
   4.       └─jsonlite::fromJSON(hs_content(hs_response), flatten = TRUE)
   5.         └─jsonlite:::parse_and_simplify(...)
   6.           └─jsonlite:::parseJSON(txt, bigint_as_char)
   7.             └─jsonlite:::parse_string(txt, bigint_as_char)
  ── Error (test_search.R:36:3): Truncated results generate a message and table attribute. ──
  Error: lexical error: invalid char in json text.
                                         <!DOCTYPE html> <!--[if lt IE 7
                       (right here) ------^
  
  Backtrace:
       ▆
    1. ├─testthat::expect_message(hs_todo <- hs_search(text = "todo")) at test_search.R:36:2
    2. │ └─testthat:::quasi_capture(enquo(object), label, capture_messages)
    3. │   ├─testthat (local) .capture(...)
    4. │   │ └─base::withCallingHandlers(...)
    5. │   └─rlang::eval_bare(quo_get_expr(.quo), quo_get_env(.quo))
    6. └─hypothesisr::hs_search(text = "todo")
    7.   └─hypothesisr:::hs_search_results(query_response)
    8.     └─hypothesisr:::list_results(hs_search_response)
    9.       └─jsonlite::fromJSON(hs_content(hs_response), flatten = TRUE)
   10.         └─jsonlite:::parse_and_simplify(...)
   11.           └─jsonlite:::parseJSON(txt, bigint_as_char)
   12.             └─jsonlite:::parse_string(txt, bigint_as_char)
  
  [ FAIL 3 | WARN 0 | SKIP 1 | PASS 7 ]
  Error: Test failures
  Execution halted