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