test_that("Solutions is 3", {
  ds_ro <- load_test_ds_ro()
  expect_equal(ds_ro$solutions, 3)
})

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

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

test_that("Results tables are correct", {
  expect_snapshot(load_test_ds_ro()$out)
  expect_snapshot(load_test_ds_ro()$out_rank)
})

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

test_that("Normed and projected ranks weights are correct", {
  ds_ro <- load_test_ds_ro()
  expect_snapshot(ds_ro$norm_opt_rank)
  expect_snapshot(ds_ro$norm_sub_rank)
  expect_snapshot(ds_ro$proj_opt_rank)
  expect_snapshot(ds_ro$proj_sub_rank)
})