Add tests for thread throttling management added in 0.12.6.6.0

eddelbuettel · eddelbuettel · commit 471542b241c9 · 2023-12-09T09:40:06.000-06:00
diff --git a/ChangeLog b/ChangeLog
@@ -1,3 +1,7 @@
+2023-12-09  Dirk Eddelbuettel  <edd@debian.org>
+
+	* inst/tinytest/test_misc.R: Add tests for thread throttling
+
 2023-12-03  Dirk Eddelbuettel  <edd@debian.org>
 
 	* DESCRIPTION (Version, Date): RcppArmadillo 0.12.6.6.1
diff --git a/inst/tinytest/test_misc.R b/inst/tinytest/test_misc.R
@@ -1,6 +1,6 @@
 #!/usr/bin/r -t
 #
-# Copyright (C) 2021         Dirk Eddelbuettel
+# Copyright (C) 2021-2023  Dirk Eddelbuettel
 #
 # This file is part of RcppArmadillo.
 #
@@ -36,3 +36,10 @@ armadillo_set_seed(42L)                 # no test as we have no (current) access
 cxxflags <- RcppArmadillo:::RcppArmadilloCxxFlags()
 expect_true(is.character(cxxflags))
 expect_stdout(RcppArmadillo:::CxxFlags())
+
+## 'set number of threads' helper -- adding simple test
+expect_true(is.integer(armadillo_get_number_of_omp_threads()))
+expect_silent(armadillo_set_number_of_omp_threads(2))
+## startup throttle/restore helpers
+expect_silent(armadillo_throttle_cores())
+expect_silent(armadillo_reset_cores())

-Original file line number
+Diff line change
@@ @@ -1,3 +1,7 @@ @@
 +2023-12-09  Dirk Eddelbuettel  <[email protected]>
++
 +	* inst/tinytest/test_misc.R: Add tests for thread throttling
++
 -12-03  Dirk Eddelbuettel  <[email protected]>
 	* DESCRIPTION (Version, Date): RcppArmadillo 0.12.6.6.1
Original file line number	Diff line number	Diff line change
`@@ -1,6 +1,6 @@`
`1`	`1`	`#!/usr/bin/r -t`
`2`	`2`	`#`
`3`		`-# Copyright (C) 2021 Dirk Eddelbuettel`
	`3`	`+# Copyright (C) 2021-2023 Dirk Eddelbuettel`
`4`	`4`	`#`
`5`	`5`	`# This file is part of RcppArmadillo.`
`6`	`6`	`#`
`@@ -36,3 +36,10 @@ armadillo_set_seed(42L) # no test as we have no (current) access`
`36`	`36`	`cxxflags <- RcppArmadillo:::RcppArmadilloCxxFlags()`
`37`	`37`	`expect_true(is.character(cxxflags))`
`38`	`38`	`expect_stdout(RcppArmadillo:::CxxFlags())`
	`39`	`+`
	`40`	`+## 'set number of threads' helper -- adding simple test`
	`41`	`+expect_true(is.integer(armadillo_get_number_of_omp_threads()))`
	`42`	`+expect_silent(armadillo_set_number_of_omp_threads(2))`
	`43`	`+## startup throttle/restore helpers`
	`44`	`+expect_silent(armadillo_throttle_cores())`
	`45`	`+expect_silent(armadillo_reset_cores())`