tests/testthat/test_error_handling.R

In Bart6114/jug: A Simple Web Framework for R

library(jug)

context("testing get requests")


test_req<-RawTestRequest$new()

test_that("A status 404 is returned for a request to an undefined path",{
  res<-jug() %>%
    simple_error_handler() %>%
    process_test_request(test_req$req)
  expect_equal(res$status, 404)

})


test_that("A status 500 is returned for a request with an error in processing",{
  res<-jug() %>%
    get('/', function(req, res, err){
      stop("an error occurred")
    }) %>%
    simple_error_handler() %>%
    process_test_request(test_req$req)

  expect_equal(res$status, 500)

})

test_that("A status 404 is returned for a request to an undefined path with json response",{

  res<-jug() %>%
    simple_error_handler_json() %>%
    process_test_request(test_req$req)

  expect_equal(res$headers$`Content-Type`, "application/json")

  expect_equal(res$status, 404)

})


test_that("A status 500 is returned for a request with an error in processing with json response",{
  res<-jug() %>%
    get('/', function(req, res, err){
      stop("an error occurred")
    }) %>%
    simple_error_handler_json() %>%
    process_test_request(test_req$req)

  expect_equal(res$headers$`Content-Type`, "application/json")
  expect_equal(res$status, 500)

})