tests/testthat/test-headers.R

In kos59125/shadowy: RESTful API Framework for R

context("headers")

test_that("set header", {
   env <- new.env()
   context <- createContext(env)

   result <- setHeader("X-Shadow-Response", "shadow")(context)

   expect_true(is.some(result))
   expect_equal(get.option(result)$response$headers$"X-Shadow-Response", "shadow")
})

test_that("set content-type with charset", {
   env <- new.env()
   context <- createContext(env)

   result <- CONTENT_TYPE("text/plain", "utf-8")(context)

   expect_true(is.some(result))
   expect_equal(get.option(result)$response$headers$"Content-Type", "text/plain; charset=utf-8")
})

test_that("set content-type without charset", {
   env <- new.env()
   context <- createContext(env)

   result <- CONTENT_TYPE("application/json")(context)

   expect_true(is.some(result))
   expect_equal(get.option(result)$response$headers$"Content-Type", "application/json")
})