tests/testthat/test_parse.R

context("Parsing function accuracy")


test_that("Error codes", {
  resp <- httr:::response()
  resp$status_code <- 201
 expect_error(parse_response(resp))
})

Try the BMRSr package in your browser

Any scripts or data that you put into this service are public.

BMRSr documentation built on June 14, 2021, 5:09 p.m.