tests/testthat/test_handler_adding.R

In Bart6114/jug: A Simple Web Framework for R

library(jug)

context("testing handler adding")

test_that("handlers are correctly added to the jug instance",{
  j<-
    jug() %>%
    get("/", function(req, res){"test"})

  expect_equal(length(j$request_handler$middlewares), 1)
})