test_that("Bootstrap function computes Boot-S and Boot-P intervals", {
  data("burr_data", package = "BivTrigBurr")

  set.seed(42)
  boot_out <- boot_sps_bxii(x = burr_data$x, y = burr_data$y, B = 20)

  expect_s3_class(boot_out, "sps_bxii_boot")
  expect_equal(nrow(boot_out$boot_s), 5)
  expect_equal(nrow(boot_out$boot_p), 5)
  expect_true(all(boot_out$boot_s$AW >= 0))
  expect_true(all(boot_out$boot_p$AW >= 0))
  expect_true(all(boot_out$boot_s$Upper >= boot_out$boot_s$Lower))
  expect_true(all(boot_out$boot_p$Upper >= boot_out$boot_p$Lower))

  expect_output(print(boot_out))
})