test_that("Solutions is 1", {
  expect_equal(load_test_ds_cf()$solutions, 3)
})

test_that("Result table are correct", {
  expect_snapshot(load_test_ds_cf()$out)
})

test_that("Residual tables are correct", {
  ds_cf <- load_test_ds_cf()
  expect_snapshot(ds_cf$residual0, 1)
  expect_snapshot(ds_cf$residual[, , 1], 1)
})

test_that("Normed and projected weights are correct", {
  ds_cf <- load_test_ds_cf()
  expect_snapshot(ds_cf$norm_sub)
  expect_snapshot(ds_cf$proj_sub)
  expect_snapshot(ds_cf$norm_opt)
  expect_snapshot(ds_cf$proj_opt)
})