tests/testthat/test-ping.R

In sckott/httping: 'Ping' 'URLs' to Time 'Requests'

context("ping")

test_that("ping works", {
  skip_on_cran()

  aa1 <- "https://mockbin.com/request" %>% ping()
  aa2 <- ping("https://mockbin.com/request")
  bb1 <- "https://mockbin.com/request" %>% ping(config = timeout(1))
  bb2 <- ping("https://mockbin.com/request", config = timeout(1))
  cc <- "https://mockbin.com/request" %>% ping(config = accept_json())

  expect_is(aa1, "http_ping")
  expect_is(aa2, "http_ping")
  expect_named(aa1$request$request$options, c('useragent', 'httpget'))

  aa1req <- httr::content(aa1$request)
  aa1req$headers$`x-forwarded-for` <- NULL
  aa1req$headers$`connect-time` <- NULL
  aa1req$headers$`x-request-id` <- NULL
  aa1req$headers$`cf-ray` <- NULL
  aa1req$headers$`x-request-start` <- NULL
  aa1req$headers$cookie <- NULL
  aa1req$cookies <- NULL
  aa1req$startedDateTime <- NULL
  aa1req$headersSize <- NULL

  aa2req <- httr::content(aa2$request)
  aa2req$headers$`x-forwarded-for` <- NULL
  aa2req$headers$`connect-time` <- NULL
  aa2req$headers$`x-request-id` <- NULL
  aa2req$headers$`cf-ray` <- NULL
  aa2req$headers$`x-request-start` <- NULL
  aa2req$headers$cookie <- NULL
  aa2req$cookies <- NULL
  aa2req$startedDateTime <- NULL
  aa2req$headersSize <- NULL

  expect_identical(aa1req, aa2req)



  expect_is(bb1, "http_ping")
  expect_is(bb2, "http_ping")
  expect_named(bb1$request$request$options, c('useragent', 'timeout_ms', 'httpget'))

  bb1req <- httr::content(bb1$request)
  bb1req$headers$`x-forwarded-for` <- NULL
  bb1req$headers$`connect-time` <- NULL
  bb1req$headers$`x-request-id` <- NULL
  bb1req$headers$`cookie` <- NULL
  bb1req$headers$`cf-ray` <- NULL
  bb1req$headers$`x-request-start` <- NULL
  bb1req$startedDateTime <- NULL

  bb2req <- httr::content(bb2$request)
  bb2req$headers$`x-forwarded-for` <- NULL
  bb2req$headers$`connect-time` <- NULL
  bb2req$headers$`x-request-id` <- NULL
  bb2req$headers$`cookie` <- NULL
  bb2req$headers$`cf-ray` <- NULL
  bb2req$headers$`x-request-start` <- NULL
  bb2req$startedDateTime <- NULL

  expect_identical(bb1req, bb2req)
})

test_that("ping - different HTTP verbse work", {
  skip_on_cran()

  mb <- "https://mockbin.com/request"

  aa <- mb %>% ping(verb = GET)
  bb <- mb %>% ping(verb = HEAD)
  cc <- mb %>% ping(verb = PUT)
  dd <- mb %>% ping(verb = DELETE)
  ee <- mb %>% ping(verb = PATCH)
  ff <- mb %>% ping(verb = POST)

  expect_is(aa, "http_ping")
  expect_is(aa$request, "response")

  expect_is(bb, "http_ping")
  expect_is(bb$request, "response")
  expect_equal(length(bb$request$content), 0)

  expect_is(cc, "http_ping")
  expect_is(cc$request, "response")
  expect_equal(content(cc$request)$url, mb)

  expect_is(dd, "http_ping")
  expect_is(dd$request, "response")
  expect_equal(dd$status, 200)

  expect_is(ee, "http_ping")
  expect_is(ee$request, "response")
  expect_equal(ee$status, 200)

  expect_is(ff, "http_ping")
  expect_is(ff$request, "response")
  expect_equal(ff$status, 200)
})

test_that("ping fails well", {
  skip_on_cran()

  expect_error(ping(), "argument \"url\" is missing")
  expect_error(ping("hello"), "url or port not detected")
})