test_that("sugm.generator random graph works", {
  sim <- sugm.generator(n = 50, d = 10, graph = "random", seed = 1, verbose = FALSE)
  expect_s3_class(sim, "sim")
  expect_equal(nrow(sim$data), 50L)
  expect_equal(ncol(sim$data), 10L)
  expect_equal(sim$graph.type, "random")
  expect_true(sim$sparsity >= 0 && sim$sparsity <= 1)
})

test_that("sugm.generator hub graph works", {
  sim <- sugm.generator(n = 50, d = 10, graph = "hub", seed = 2, verbose = FALSE)
  expect_s3_class(sim, "sim")
  expect_equal(sim$graph.type, "hub")
  expect_true(sim$sparsity > 0)
})

test_that("sugm.generator band graph works", {
  sim <- sugm.generator(n = 50, d = 10, graph = "band", seed = 3, verbose = FALSE)
  expect_s3_class(sim, "sim")
  expect_equal(sim$graph.type, "band")
  expect_true(sim$sparsity > 0)
})