Skip PCG64 tests on PPC MacOS

daqana · May 28, 2024 · ac8ebb3 · ac8ebb3
1 parent ba5be53
commit ac8ebb3
Show file tree

Hide file tree

Showing 4 changed files with 15 additions and 9 deletions.
diff --git a/tests/testthat/helper.R b/tests/testthat/helper.R
@@ -0,0 +1,10 @@
+powerpc_apple <- grepl("powerpc-apple-", R.version$platform)
+
+safe_expect_error <- function(..., msg) {
+  os.type <- Sys.info()["sysname"]
+  if (os.type == "Darwin") {
+    expect_error(...)
+  } else {
+    expect_error(..., msg)
+  }
+}
diff --git a/tests/testthat/test-convert.R b/tests/testthat/test-convert.R
@@ -1,14 +1,5 @@
 context("conversion")
 
-safe_expect_error <- function(..., msg) {
-  os.type <- Sys.info()["sysname"]
-  if (os.type == "Darwin") {
-    expect_error(...)
-  } else {
-    expect_error(..., msg)
-  }
-}
-
 Rcpp::sourceCpp("cpp/convert.cpp") # Warnings about shifts can be ignored.
 
 test_that("conversion to 16-bit integers works correctly", {

diff --git a/tests/testthat/test-external-generator.R b/tests/testthat/test-external-generator.R
@@ -70,6 +70,7 @@ test_that("cloned external Xoshiro256++ gives different result only when a diffe
 })
 
 test_that("cloned external PCG64 gives different result", {
+  skip_if(powerpc_apple)
   dqrng::dqRNGkind("PCG64")
   dqset.seed(use_seed)
   expect_true(cloned_calls(stream = 0))

diff --git a/tests/testthat/test-generators.R b/tests/testthat/test-generators.R
@@ -40,6 +40,7 @@ test_that("Default generator: setting same seed but different stream produces di
 })
 
 test_that("PCG64: setting seed produces identical uniformly distributed numbers", {
+  skip_if(powerpc_apple)
   dqRNGkind("pcg64")
   dqset.seed(seed)
   u1 <- dqrunif(10)
@@ -49,6 +50,7 @@ test_that("PCG64: setting seed produces identical uniformly distributed numbers"
 })
 
 test_that("PCG64: setting seed and stream produces identical uniformly distributed numbers", {
+  skip_if(powerpc_apple)
   dqRNGkind("pcg64")
   dqset.seed(seed, 1)
   u1 <- dqrunif(10)
@@ -58,6 +60,7 @@ test_that("PCG64: setting seed and stream produces identical uniformly distribut
 })
 
 test_that("PCG64: saving state produces identical uniformly distributed numbers", {
+  skip_if(powerpc_apple)
   dqRNGkind("pcg64")
   dqset.seed(seed, 1)
   state <- dqrng_get_state()
@@ -68,6 +71,7 @@ test_that("PCG64: saving state produces identical uniformly distributed numbers"
 })
 
 test_that("PCG64: setting same seed but different stream produces different uniformly distributed numbers", {
+  skip_if(powerpc_apple)
   dqRNGkind("pcg64")
   dqset.seed(seed, 1)
   u1 <- dqrunif(10)