tests/testthat.R

In irtQ: Unidimensional Item Response Theory Modeling

# Limit BLAS/OpenMP thread usage before loading testthat/irtQ, so that the
# environment variables take effect before the underlying BLAS/OpenMP
# libraries are loaded into the session.
Sys.setenv(OMP_NUM_THREADS = "1")
Sys.setenv(OMP_THREAD_LIMIT = "1")
Sys.setenv(OPENBLAS_NUM_THREADS = "1")
Sys.setenv(MKL_NUM_THREADS = "1")
Sys.setenv(BLIS_NUM_THREADS = "1")
Sys.setenv(VECLIB_MAXIMUM_THREADS = "1")

library(testthat)
library(irtQ)

# Directly call the BLAS/OpenMP C-level thread control APIs at runtime, so the
# thread count is forced to 1 regardless of when the libraries were loaded
# (the Sys.setenv() calls above only take effect at load time).
if (requireNamespace("RhpcBLASctl", quietly = TRUE)) {
  RhpcBLASctl::omp_set_num_threads(1)   # OpenMP 스레드를 런타임에 직접 1로 강제
  RhpcBLASctl::blas_set_num_threads(1)  # BLAS 스레드를 런타임에 직접 1로 강제
}

test_check("irtQ")