tests/testthat/test-mw-log.R
In gaborcsardi/pressr: Fake Web Apps for HTTP Testing
app <- new_app()$use(mw_log())$get("/txt", function(req, res) {
res$set_type("text/plain")$send("textual")
})$get("/html", function(req, res) {
res$set_type("text/html")$send("<html><head></head><body>hello</body></html>")
})$get("/raw", function(req, res) {
res$set_type("applicartion/octet-stream")$send(charToRaw("raw"))
})
web <- local_app_process(app, callr_opts = list(stdout = "|"))
test_that("text/plain response", {
url <- web$url("/txt")
resp <- curl::curl_fetch_memory(url)
plr <- web$.process$poll_io(1000)
expect_equal(plr[["output"]], "ready")
log <- web$.process$read_output_lines()
expect_match(log, "GET http://127\\.0\\.0\\.1:[0-9]*/txt 200 [0-9]+ ms - 7")
})
test_that("text/html response", {
url <- web$url("/html")
resp <- curl::curl_fetch_memory(url)
plr <- web$.process$poll_io(1000)
expect_equal(plr[["output"]], "ready")
log <- web$.process$read_output_lines()
expect_match(log, "GET http://127\\.0\\.0\\.1:[0-9]+/html 200 [0-9]+ ms - 44")
})
test_that("application/octet-stream response", {
url <- web$url("/raw")
resp <- curl::curl_fetch_memory(url)
plr <- web$.process$poll_io(1000)
expect_equal(plr[["output"]], "ready")
log <- web$.process$read_output_lines()
expect_match(log, "GET http://127\\.0\\.0\\.1:[0-9]+/raw 200 [0-9]+ ms - 3")
})
gaborcsardi/pressr documentation built on June 2, 2025, 2:10 a.m.
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
app <- new_app()$use(mw_log())$get("/txt", function(req, res) {
res$set_type("text/plain")$send("textual")
})$get("/html", function(req, res) {
res$set_type("text/html")$send("<html><head></head><body>hello</body></html>")
})$get("/raw", function(req, res) {
res$set_type("applicartion/octet-stream")$send(charToRaw("raw"))
})
web <- local_app_process(app, callr_opts = list(stdout = "|"))
test_that("text/plain response", {
url <- web$url("/txt")
resp <- curl::curl_fetch_memory(url)
plr <- web$.process$poll_io(1000)
expect_equal(plr[["output"]], "ready")
log <- web$.process$read_output_lines()
expect_match(log, "GET http://127\\.0\\.0\\.1:[0-9]*/txt 200 [0-9]+ ms - 7")
})
test_that("text/html response", {
url <- web$url("/html")
resp <- curl::curl_fetch_memory(url)
plr <- web$.process$poll_io(1000)
expect_equal(plr[["output"]], "ready")
log <- web$.process$read_output_lines()
expect_match(log, "GET http://127\\.0\\.0\\.1:[0-9]+/html 200 [0-9]+ ms - 44")
})
test_that("application/octet-stream response", {
url <- web$url("/raw")
resp <- curl::curl_fetch_memory(url)
plr <- web$.process$poll_io(1000)
expect_equal(plr[["output"]], "ready")
log <- web$.process$read_output_lines()
expect_match(log, "GET http://127\\.0\\.0\\.1:[0-9]+/raw 200 [0-9]+ ms - 3")
})
R Package Documentation
Browse R Packages
We want your feedback!
Note that we can't provide technical support on individual packages. You should contact the package authors for that.
Embedding an R snippet on your website
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.