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

test_that("plot_mastery returns a ggplot object", {
  alpha <- sim_students(20, 4)
  p <- plot_mastery(alpha)
  expect_s3_class(p, "ggplot")
})