test_that("bundled veteran data are ready for alpmixsurv", {
  data("veteran_alpmix", package = "ambs", envir = environment())
  expect_s3_class(veteran_alpmix, "data.frame")
  expect_equal(nrow(veteran_alpmix), 137)
  expect_named(veteran_alpmix,
               c("trt", "celltype", "time", "status", "karno",
                 "diagtime", "age", "prior"))
  expect_true(all(veteran_alpmix$time > 0))
  expect_true(all(veteran_alpmix$status %in% c(0, 1)))
  expect_equal(sum(veteran_alpmix$status), 128)
})