R Under development (unstable) (2024-08-17 r87027 ucrt) -- "Unsuffered Consequences"
Copyright (C) 2024 The R Foundation for Statistical Computing
Platform: x86_64-w64-mingw32/x64

R is free software and comes with ABSOLUTELY NO WARRANTY.
You are welcome to redistribute it under certain conditions.
Type 'license()' or 'licence()' for distribution details.

R is a collaborative project with many contributors.
Type 'contributors()' for more information and
'citation()' on how to cite R or R packages in publications.

Type 'demo()' for some demos, 'help()' for on-line help, or
'help.start()' for an HTML browser interface to help.
Type 'q()' to quit R.

> stopifnot(require(RUnit, quietly = TRUE))
> stopifnot(require(Rcpp, quietly = TRUE))
> stopifnot(require(RcppParallel, quietly = TRUE))

Attaching package: 'RcppParallel'

The following object is masked from 'package:Rcpp':

    LdFlags

> 
> ## Set a seed to make the test deterministic
> set.seed(42)
> 
> ## Set a default backend
> backend <- Sys.getenv("RCPP_PARALLEL_BACKEND", unset = NA)
> if (is.na(backend))
+    Sys.setenv(RCPP_PARALLEL_BACKEND = "tinythread")
> 
> writeLines(paste("Using backend:", Sys.getenv("RCPP_PARALLEL_BACKEND")))
Using backend: tinythread
> 
> ## Define tests
> suite <- defineTestSuite(
+    name = "RcppParallel Unit Tests",
+    dirs = system.file("tests", package = "RcppParallel")
+ )
> 
> ## Based on practice in Rcpp to avoid some test failures
> Sys.setenv("R_TESTS" = "")
> 
> ## Run tests
> tests <- runTestSuite(suite)


Executing test function test.distance  ...  done successfully.



Executing test function test.innerproduct  ...  done successfully.



Executing test function test.sum  ...  done successfully.



Executing test function test.transform  ...  done successfully.

Warning messages:
1: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: Marsaglia-Multicarry has poor statistical properties
2: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
3: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: Marsaglia-Multicarry has poor statistical properties
4: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
5: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: Marsaglia-Multicarry has poor statistical properties
6: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
7: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: Marsaglia-Multicarry has poor statistical properties
8: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
9: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: Marsaglia-Multicarry has poor statistical properties
10: In RNGkind(kind = testSuite$rngKind, normal.kind = testSuite$rngNormalKind) :
  RNGkind: severe deviations from normality for Kinderman-Ramage + Marsaglia-Multicarry
> 
> ## Print results
> printTextProtocol(tests)
RUNIT TEST PROTOCOL -- Mon Aug 19 21:24:50 2024 
*********************************************** 
Number of test functions: 4 
Number of errors: 0 
Number of failures: 0 

 
1 Test Suite : 
RcppParallel Unit Tests - 4 test functions, 0 errors, 0 failures



Details 
*************************** 
Test Suite: RcppParallel Unit Tests 
Test function regexp: ^test.+ 
Test file regexp: ^runit.+\.[rR]$ 
Involved directory: 
D:/RCompile/CRANincoming/R-devel/lib/RcppParallel/tests 
--------------------------- 
Test file: D:/RCompile/CRANincoming/R-devel/lib/RcppParallel/tests/runit.distance.R 
test.distance: (1 checks) ... OK (0.96 seconds)
--------------------------- 
Test file: D:/RCompile/CRANincoming/R-devel/lib/RcppParallel/tests/runit.innerproduct.R 
test.innerproduct: (1 checks) ... OK (0.03 seconds)
--------------------------- 
Test file: D:/RCompile/CRANincoming/R-devel/lib/RcppParallel/tests/runit.sum.R 
test.sum: (1 checks) ... OK (0.17 seconds)
--------------------------- 
Test file: D:/RCompile/CRANincoming/R-devel/lib/RcppParallel/tests/runit.transform.R 
test.transform: (1 checks) ... OK (0.04 seconds)
> 
> ## Return success or failure to R CMD CHECK
> if (getErrors(tests)$nFail > 0) {
+    stop("TEST FAILED!")
+ }
> 
> if (getErrors(tests)$nErr > 0) {
+    stop("TEST HAD ERRORS!")
+ }
> 
> if (getErrors(tests)$nTestFunc < 1) {
+    stop("NO TEST FUNCTIONS RUN!")
+ }
> 
> proc.time()
   user  system elapsed 
   2.56    0.21   28.98