Running ‘testthat.R’ [2s/100s]
Running the tests in ‘tests/testthat.R’ failed.
Complete output:
  > library(testthat)
  > test_check("httr")
  Loading required package: httr
  ── 1. Error: NULL body gives empty data element (@test-body.r#11)  ─────────────
  Timeout was reached: Connection timed out after 10000 milliseconds
  1: round_trip(body = NULL) at testthat/test-body.r:11
  2: content(POST("http://httpbin.org/post", ...)) at testthat/test-body.r:4
  3: stopifnot(is.response(x))
  4: withCallingHandlers(tryCatch(if (missE) ...elt(i) else eval(cl.i, envir = envir), 
         error = function(e) {
             e$call <- cl.i
             stop(e)
         }), warning = function(w) {
         w$call <- cl.i
         w
     })
  5: tryCatch(if (missE) ...elt(i) else eval(cl.i, envir = envir), error = function(e) {
         e$call <- cl.i
         stop(e)
     })
  6: tryCatchList(expr, classes, parentenv, handlers)
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  ── 2. Error: FALSE body doesn't send body (@test-body.r#16)  ───────────────────
  Recv failure: Connection reset by peer
  1: round_trip(body = FALSE) at testthat/test-body.r:16
  2: content(POST("http://httpbin.org/post", ...)) at testthat/test-body.r:4
  3: stopifnot(is.response(x))
  4: withCallingHandlers(tryCatch(if (missE) ...elt(i) else eval(cl.i, envir = envir), 
         error = function(e) {
             e$call <- cl.i
             stop(e)
         }), warning = function(w) {
         w$call <- cl.i
         w
     })
  5: tryCatch(if (missE) ...elt(i) else eval(cl.i, envir = envir), error = function(e) {
         e$call <- cl.i
         stop(e)
     })
  6: tryCatchList(expr, classes, parentenv, handlers)
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  ── 3. Error: string/raw in body gives same string in data element (@test-body.r#
  Recv failure: Connection reset by peer
  1: round_trip(body = "test") at testthat/test-body.r:21
  2: content(POST("http://httpbin.org/post", ...)) at testthat/test-body.r:4
  3: stopifnot(is.response(x))
  4: withCallingHandlers(tryCatch(if (missE) ...elt(i) else eval(cl.i, envir = envir), 
         error = function(e) {
             e$call <- cl.i
             stop(e)
         }), warning = function(w) {
         w$call <- cl.i
         w
     })
  5: tryCatch(if (missE) ...elt(i) else eval(cl.i, envir = envir), error = function(e) {
         e$call <- cl.i
         stop(e)
     })
  6: tryCatchList(expr, classes, parentenv, handlers)
  7: tryCatchOne(expr, names, parentenv, handlers[[1L]])
  8: value[[3L]](cond)
  
  ══ testthat results  ═══════════════════════════════════════════════════════════
  OK: 135 SKIPPED: 2 FAILED: 3
  1. Error: NULL body gives empty data element (@test-body.r#11) 
  2. Error: FALSE body doesn't send body (@test-body.r#16) 
  3. Error: string/raw in body gives same string in data element (@test-body.r#21) 
  
  Error: testthat unit tests failed
  Execution halted