tests/testthat/test_multiple_mw_function.R

In jug: A Simple Web Framework for R

library(jug)

context("testing get requests")

test_req<-RawTestRequest$new()

test_that("The multiple middlewares set up for one GET path by annotating the request",{

  set_user_id<-function(req, res, err){
    req$set_header("userId", "test")
  }

  res<-jug() %>%
    get("/",
        set_user_id,
        function(req,res,err) req$get_header("userId")
    ) %>%
    process_test_request(test_req$req)

  expect_equal(res$body, "test")

})


test_that("The multiple middlewares set up for one GET path by annotating the response",{

  set_user_id<-function(req, res, err){
    res$set_header("userId", "test")
  }

  res<-jug() %>%
    get("/",
        set_user_id,
        function(req,res,err) req$get_header("userId")
    ) %>%
    process_test_request(test_req$req)

  expect_equal(res$headers$userId, "test")

})