test_that("`nullcat_batch` works", {
      set.seed(123)
      m <- matrix(sample(1:4, 100, replace = TRUE), nrow = 10)

      # single core
      expect_no_error(nullcat_batch(m, n_reps = 10, n_iter = 50,
                                    method = "curvecat"))

      # multicore
      expect_no_error(nullcat_batch(m, n_reps = 10, n_iter = 50,
                                    n_cores = 2, method = "curvecat"))
})