CGroups: Add mixed-CGroups v1 & v2 tests [#125]

futureverse · Jan 19, 2025 · 14bd581 · 14bd581
1 parent 2ba2b4a
commit 14bd581
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 2 deletions.
diff --git a/DESCRIPTION b/DESCRIPTION
@@ -1,5 +1,5 @@
 Package: parallelly
-Version: 1.41.0-9007
+Version: 1.41.0-9008
 Title: Enhancing the 'parallel' Package
 Imports:
     parallel,

diff --git a/inst/test-data/mixed-cgroups/slurm-cgroups.tar.gz b/inst/test-data/mixed-cgroups/slurm-cgroups.tar.gz
diff --git a/inst/test-data/mixed-cgroups/slurm.R b/inst/test-data/mixed-cgroups/slurm.R
@@ -0,0 +1,7 @@
+ncores <- parallelly::availableCores(which = "all")
+print(ncores)
+
+stopifnot(
+  "cgroups.cpuset" %in% names(ncores),
+  ncores[["cgroups.cpuset"]] == 1L
+)
diff --git a/tests/cgroups.R b/tests/cgroups.R
@@ -92,7 +92,7 @@ stopifnot(
 message("*** cgroups ... DONE")
 
 root <- system.file(package = "parallelly", "test-data", mustWork = TRUE)
-for (dir in c("no-cgroups", "cgroups1", "cgroups2")) {
+for (dir in c("no-cgroups", "mixed-cgroups", "cgroups1", "cgroups2")) {
   message(sprintf("%s - real-world ...", dir))
   path <- file.path(root, dir)
   stopifnot(file_test("-d", path))