test_that("`cd_ens()` works as expected", {
  
  data("cd_train", package = "viruslearner")
  outcome <- "cd_2023"
  traindata <- cd_train
  viralvars <- c("vl_2019", "vl_2021", "vl_2022", "vl_2023")
  logbase <- 10
  seed <- 1501
  repetitions <- 2
  gridsize <- 1
  set.seed(123)
  expect_snapshot(
  print(
    cd_ens(outcome, traindata, viralvars, logbase, seed, repetitions, gridsize,
           mode = TRUE, type = FALSE, get_models = TRUE) 
  )
)
})