set.seed(0)
x <- rnorm(1000)
y <- cos(x) + rt(1000, df=3)
data <- data.frame(X=x, Y=y)

test_that("outrigger works for fixed bandwidth", {
  tst <- outrigger(Y~X, data, 0, bandwidth=0.1, lambda=6, scoregranality=1)
  expect_type(tst, "list")
})

test_that("outrigger works for ROT bandwidth", {
  tst <- outrigger(Y~X, data, 0)
  expect_type(tst, "list")
})

test_that("outrigger works for multiple test points", {
  tst <- outrigger(Y~X, data, c(-1,0,1), bandwidth=0.1, lambda=6, scoregranality=1)
  expect_type(tst, "list")
})