test_that("ds_cf summary show correct output", {
  expect_snapshot(summary(load_test_ds_cf()) %>% capture.output())
})

test_that("ds_mc summary show correct output", {
  expect_snapshot(summary(load_test_ds_mc()) %>% capture.output())
})

test_that("ds_mcf summary show correct output", {
  expect_snapshot(summary(load_test_ds_mcf()) %>% capture.output())
})

test_that("ds_pc summary show correct output", {
  expect_snapshot(summary(load_test_ds_pc()) %>% capture.output())
})

test_that("ds_ro summary show correct output", {
  expect_snapshot(summary(load_test_ds_ro()) %>% capture.output())
})