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

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

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

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

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