tests/testthat/test-enumerate.R

In trestletech/plumber: An API Generator for R

context("Verb enumeration")

test_that("enumerate returns all on 'use'", {
  expect_equal(enumerateVerbs("use"), c("GET", "PUT", "POST", "DELETE", "HEAD", "OPTIONS", "PATCH"))
})

test_that("regular verbs return themselves", {
  expect_equal(enumerateVerbs("get"), "GET")
  expect_equal(enumerateVerbs("post"), "POST")
})