test_that("Solutions is 3", {
  ds_pc <- load_test_ds_pc()
  expect_equal(ds_pc$solutions, 3)
})

test_that("Matrix E is correct", {
  expect_snapshot(load_test_ds_pc()$mat_e)
})

test_that("Marginals of Matrix E are zero", {
  expect_equal(rowSums(load_test_ds_pc()$mat_e), integer(10))
})

test_that("Result table is correct", {
  expect_snapshot(load_test_ds_pc()$out)
})

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