test_that("Transform data if NA values", {
  input <- readRDS(testthat::test_path("fixtures", "singaporean_na.rds"))
  check <- ds_mc_check(input, "rad")$t_data
  out <- ds_mcf(input, crit = 1) %>%
    suppressWarnings() %>%
    suppressMessages()
  expect_equal(out$orig_data, check)
})

test_that("Solutions is 2", {
  ds_mcf <- load_test_ds_mcf()
  expect_equal(ds_mcf$solutions_mcf, 2)
})

test_that("Results tables are correct", {
  ds_mcf <- load_test_ds_mcf()
  out_a <- ds_mcf$out_a
  out_b <- ds_mcf$out_b
  out_c <- ds_mcf$out_c
  expect_snapshot(out_a)
  expect_snapshot(out_b)
  expect_snapshot(out_c)
})

test_that("Normed and projected weights are correct", {
  ds_mcf <- load_test_ds_mcf()
  expect_snapshot(ds_mcf$norm_sub_a)
  expect_snapshot(ds_mcf$proj_sub_a)
  expect_snapshot(ds_mcf$norm_opt_a)
  expect_snapshot(ds_mcf$proj_opt_a)
  expect_snapshot(ds_mcf$norm_sub_b)
  expect_snapshot(ds_mcf$proj_sub_b)
  expect_snapshot(ds_mcf$norm_opt_b)
  expect_snapshot(ds_mcf$proj_opt_b)
  expect_snapshot(ds_mcf$norm_sub_c)
  expect_snapshot(ds_mcf$proj_sub_c)
  expect_snapshot(ds_mcf$norm_opt_c)
  expect_snapshot(ds_mcf$proj_opt_c)
})