tests/testthat/test-api_write.R

In sckott/request: High Level 'HTTP' Client

context("api_write")

test_that("api_write works", {
  skip_on_cran()

  expect_is(api_write(api("http://api.plos.org/search"), tempfile()), "req")

  aa <- api("http://httpbin.org/get") %>%
    api_write(tempfile()) %>%
    peep

  bb <- api("http://httpbin.org/get") %>%
    api_write(tempfile(), overwrite = TRUE) %>%
    peep

  expect_is(aa, "req")
  expect_is(bb, "req")

  expect_is(aa$url, "rurl")
  expect_is(bb$config$output$path, "character")

  expect_is(aa %>% http, "character")
  expect_is(bb %>% http, "character")
})

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

  expect_error(api_write(), "argument \".data\" is missing")
})