test_that("multiplication works", {
  expect_equal(2 * 2, 4)
})

test_that("plot_qmatrix returns a ggplot object", {
  Q <- sim_qmatrix(5, 3)
  p <- plot_qmatrix(Q)
  expect_s3_class(p, "ggplot")
})