test_that("Package loads without error", {
  expect_silent(library(alpmixBayes))
})

test_that("Exported functions exist", {
  expect_true(is.function(demo_run))
  expect_true(is.function(alpmixBayes))
})

test_that("Dataset is available", {
  # Dataset should be available after package load
  data(ewg.100, package = "alpmixBayes")
  expect_true(exists("ewg.100"))
  expect_true(is.list(ewg.100))
  expect_true(length(ewg.100) > 0)
})