# tests/testthat.R
old <- getOption("Ncpus")
on.exit(options(Ncpus = old), add = TRUE)
options(Ncpus = 2L)

library(testthat)
library(ggmlR)

test_check("ggmlR")