unit test using sample runs under R 3.5.0 RNG setting

eddelbuettel · eddelbuettel · commit 61f1ea583ea0 · 2019-03-16T10:18:55.000-05:00
diff --git a/ChangeLog b/ChangeLog
@@ -2,6 +2,9 @@
 
 	* DESCRIPTION (Version, Date): Roll minor version
 
+	* inst/unitTests/runit.sugar.R: Set the sample() behaviour to R 3.5.0
+	as R 3.6.0 has a breaking change (for the better)
+
 2019-03-13  Romain François <romain@purrple.cat>
 
 	* inst/include/Rcpp/macros/macros.h: Add UNPROTECT to please rchk
diff --git a/inst/unitTests/runit.sugar.R b/inst/unitTests/runit.sugar.R
@@ -1,7 +1,7 @@
 #!/usr/bin/env r
 #                     -*- mode: R; ess-indent-level: 4; indent-tabs-mode: nil; -*-
 #
-# Copyright (C) 2010 - 2015  Dirk Eddelbuettel and Romain Francois
+# Copyright (C) 2010 - 2019  Dirk Eddelbuettel and Romain Francois
 #
 # This file is part of Rcpp.
 #
@@ -22,6 +22,9 @@
 
 if (.runThisTest) {
 
+    ## Needed for a change in R 3.6.0 reducing a bias in very large samples
+    suppressWarnings(RNGversion("3.5.0"))
+
     .setUp <- Rcpp:::unitTestSetup("sugar.cpp")
 
     test.sugar.abs <- function( ){

Original file line number	Diff line number	Diff line change
`@@ -1,7 +1,7 @@`
`1`	`1`	`#!/usr/bin/env r`
`2`	`2`	`# -- mode: R; ess-indent-level: 4; indent-tabs-mode: nil; --`
`3`	`3`	`#`
`4`		`-# Copyright (C) 2010 - 2015 Dirk Eddelbuettel and Romain Francois`
	`4`	`+# Copyright (C) 2010 - 2019 Dirk Eddelbuettel and Romain Francois`
`5`	`5`	`#`
`6`	`6`	`# This file is part of Rcpp.`
`7`	`7`	`#`
`@@ -22,6 +22,9 @@`
`22`	`22`
`23`	`23`	`if (.runThisTest) {`
`24`	`24`
	`25`	`+ ## Needed for a change in R 3.6.0 reducing a bias in very large samples`
	`26`	`+ suppressWarnings(RNGversion("3.5.0"))`
	`27`	`+`
`25`	`28`	`.setUp <- Rcpp:::unitTestSetup("sugar.cpp")`
`26`	`29`
`27`	`30`	`test.sugar.abs <- function( ){`