1context("Preempts")
2
3test_that("preempts work", {
4  r <- plumber$new("files/preempt.R")
5  expect_equal(length(r$endpoints), 3)
6
7  expect_length(r$endpoints[["testFun"]], 1)
8  expect_length(r$endpoints[["testFun2"]], 1)
9  expect_length(r$endpoints[["testFun3"]], 1)
10})
11
12test_that("Redundant preempts fail", {
13  expect_error(plumber$new("files/preempt-redundant.R"), regexp="Multiple @preempts")
14})
15
16test_that("Empty preempts fail", {
17  expect_error(plumber$new("files/preempt-empty.R"), regexp="No @preempt specified")
18})
19
20test_that("Non-existant preempts fail", {
21  expect_error(plumber$new("files/preempt-nonexistent.R"), regexp="The given @preempt")
22})
23