test_that("OVL.Delta.mix() returns a list", {
  set.seed(1)
  output_list <- OVL.Delta.mix(x = mixnorm_data$controls, y = mixnorm_data$cases, all_mix = FALSE, interv = c(-10, 10))
  expect_type(output_list, "list")
})

test_that("OVL.Delta.mix() returns a valid result", {
  set.seed(1)
  output_list <- OVL.Delta.mix(x = mixnorm_data$controls, y = mixnorm_data$cases, all_mix = FALSE, interv = c(-10, 10))
  if (any(is.na(output_list))) {expect_true(TRUE)
  } else {expect_true(output_list[[1]] <= output_list[[2]] && output_list[[1]] >= 0 && output_list[[2]] <= 1)}})

test_that("OVL.Delta.mix() returns a list", {
  set.seed(1)
  output_list <- OVL.Delta.mix(x = mixnorm_data$controls, y = mixnorm_data$cases, all_mix = TRUE, interv = c(-10, 10))
  expect_type(output_list, "list")
})

test_that("OVL.Delta.mix() returns a valid result", {
  set.seed(1)
  output_list <- OVL.Delta.mix(x = mixnorm_data$controls, y = mixnorm_data$cases, all_mix = TRUE, interv = c(-10, 10))
  if (any(is.na(output_list))) {expect_true(TRUE)
  } else {expect_true(output_list[[1]] <= output_list[[2]] && output_list[[1]] >= 0 && output_list[[2]] <= 1)}})