library(testthat)

cat("Starting tests for 'msce' package ...")

omp_thread_limit <- Sys.getenv("OMP_THREAD_LIMIT")
Sys.setenv("OMP_THREAD_LIMIT" = 2) # nice to CRAN

test_check("msce")

Sys.setenv("OMP_THREAD_LIMIT" = omp_thread_limit)