1
2make_req <- function(verb, path, qs="", body=""){
3  req <- new.env()
4  req$REQUEST_METHOD <- toupper(verb)
5  req$PATH_INFO <- path
6  req$QUERY_STRING <- qs
7  req$rook.input <- list(read_lines = function(){ body })
8  req
9}
10