This is an automated email from the git hooks/post-receive script.

albac-guest pushed a commit to branch master
in repository r-cran-rngtools.

commit 0d0dabd8cd921918b01a66213d4c28496333bd82
Author: Alba Crespi <[email protected]>
Date:   Tue Jul 5 11:16:16 2016 +0200

    added debian/*
---
 debian/README.test                                 |   8 +
 debian/changelog                                   |   5 +
 debian/compat                                      |   1 +
 debian/control                                     |  26 ++++
 debian/copyright                                   |  36 +++++
 debian/docs                                        |   3 +
 debian/r-cran-rngtools.debhelper.log               |   4 +
 debian/r-cran-rngtools.substvars                   |   1 +
 .../usr/lib/R/site-library/rngtools/DESCRIPTION    |  25 ++++
 .../usr/lib/R/site-library/rngtools/INDEX          |   8 +
 .../usr/lib/R/site-library/rngtools/Meta/Rd.rds    | Bin 0 -> 625 bytes
 .../lib/R/site-library/rngtools/Meta/hsearch.rds   | Bin 0 -> 661 bytes
 .../usr/lib/R/site-library/rngtools/Meta/links.rds | Bin 0 -> 351 bytes
 .../lib/R/site-library/rngtools/Meta/nsInfo.rds    | Bin 0 -> 312 bytes
 .../lib/R/site-library/rngtools/Meta/package.rds   | Bin 0 -> 1057 bytes
 .../lib/R/site-library/rngtools/Meta/vignette.rds  | Bin 0 -> 209 bytes
 .../usr/lib/R/site-library/rngtools/NAMESPACE      |  23 +++
 .../usr/lib/R/site-library/rngtools/R/rngtools     |  27 ++++
 .../usr/lib/R/site-library/rngtools/R/rngtools.rdb | Bin 0 -> 19127 bytes
 .../usr/lib/R/site-library/rngtools/R/rngtools.rdx | Bin 0 -> 682 bytes
 .../usr/lib/R/site-library/rngtools/doc/index.html |  28 ++++
 .../site-library/rngtools/doc/rngtools-unitTests.R |   9 ++
 .../rngtools/doc/rngtools-unitTests.Rnw            |  80 ++++++++++
 .../rngtools/doc/rngtools-unitTests.pdf            | Bin 0 -> 99069 bytes
 .../usr/lib/R/site-library/rngtools/help/AnIndex   |  31 ++++
 .../lib/R/site-library/rngtools/help/aliases.rds   | Bin 0 -> 320 bytes
 .../usr/lib/R/site-library/rngtools/help/paths.rds | Bin 0 -> 168 bytes
 .../lib/R/site-library/rngtools/help/rngtools.rdb  | Bin 0 -> 23708 bytes
 .../lib/R/site-library/rngtools/help/rngtools.rdx  | Bin 0 -> 291 bytes
 .../lib/R/site-library/rngtools/html/00Index.html  |  79 ++++++++++
 .../usr/lib/R/site-library/rngtools/html/R.css     |  97 ++++++++++++
 .../lib/R/site-library/rngtools/tests/runit.RNG.r  | 133 +++++++++++++++++
 .../R/site-library/rngtools/tests/runit.RNGseq.r   | 162 +++++++++++++++++++++
 .../R/site-library/rngtools/tests/runit.format.r   | 103 +++++++++++++
 debian/rules                                       |   6 +
 debian/source/format                               |   1 +
 debian/tests/control                               |   3 +
 debian/tests/run-unit-test                         |  13 ++
 debian/watch                                       |   3 +
 39 files changed, 915 insertions(+)

diff --git a/debian/README.test b/debian/README.test
new file mode 100644
index 0000000..ef34ccc
--- /dev/null
+++ b/debian/README.test
@@ -0,0 +1,8 @@
+Notes on how this package can be tested.
+────────────────────────────────────────
+
+To run the unit tests provided by the package you can do
+
+   sh run-unit-test
+
+in this directory.
diff --git a/debian/changelog b/debian/changelog
new file mode 100644
index 0000000..24a07e5
--- /dev/null
+++ b/debian/changelog
@@ -0,0 +1,5 @@
+r-cran-rngtools (1.2.4-1) UNRELEASED; urgency=medium
+
+  * Initial release. (Closes: #829502)
+
+ -- Alba Crespi <[email protected]>  Sun, 03 Jul 2016 22:30:22 +0200
diff --git a/debian/compat b/debian/compat
new file mode 100644
index 0000000..ec63514
--- /dev/null
+++ b/debian/compat
@@ -0,0 +1 @@
+9
diff --git a/debian/control b/debian/control
new file mode 100644
index 0000000..cfb9ea3
--- /dev/null
+++ b/debian/control
@@ -0,0 +1,26 @@
+Source: r-cran-rngtools
+Maintainer: Debian Med Packaging Team 
<[email protected]>
+Uploaders: Alba Crespi <[email protected]>
+Section: gnu-r
+Priority: optional
+Build-Depends: debhelper (>= 9),
+               r-base-dev (>= 3.0.0),
+               cdbs
+Standards-Version: 3.9.8
+Vcs-Browser: https://anonscm.debian.org/cgit/debian-med/r-cran-rngtools.git
+Vcs-Git: https://anonscm.debian.org/git/debian-med/r-cran-rngtools.git
+Homepage: https://cran.r-project.org/web/packages/rngtools/
+
+Package: r-cran-rngtools
+Architecture: any
+Depends: ${shlibs:Depends},
+         ${misc:Depends},
+         ${R:Depends},
+         r-cran-pkgmaker (>= 0.20)
+Description: GNU R package for random number generators.
+    This package contains a set of functions
+    for working with Random Number Generators (RNGs). In particular, it
+    defines a generic S4 framework for getting/setting the current RNG,
+    or RNG data that are embedded into objects for reproducibility.
+    Notably, convenient default methods greatly facilitate the way current
+    RNG settings can be changed.
diff --git a/debian/copyright b/debian/copyright
new file mode 100644
index 0000000..239e732
--- /dev/null
+++ b/debian/copyright
@@ -0,0 +1,36 @@
+Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/
+Upstream-Name: rngtools
+Source: https://cran.r-project.org/web/packages/rngtools/
+
+Files: *
+Copyright: 2009-2012 Renaud Gaujoux <[email protected]>
+License: GPL-3.0+
+
+Files: vignettes/abbrvnat.bst
+Copyright: 1993-2005 Patrick W Daly
+License: LPPL-1+
+ This program can be redistributed and/or modified under the terms of the
+ LaTeX Project Public License Distributed from CTAN archives in directory
+ macros/latex/base/lppl.txt; either version 1 of the License, or any later
+ version.
+
+Files: debian/*
+Copyright: 2015 Alba Crespi <[email protected]>
+License: GPL-2.0+
+
+License: GPL-2.0+
+ This package is free software; you can redistribute it and/or modify
+ it under the terms of the GNU General Public License as published by
+ the Free Software Foundation; either version 2 of the License, or
+ (at your option) any later version.
+ .
+ This package is distributed in the hope that it will be useful,
+ but WITHOUT ANY WARRANTY; without even the implied warranty of
+ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ GNU General Public License for more details.
+ .
+ You should have received a copy of the GNU General Public License
+ along with this program. If not, see <http://www.gnu.org/licenses/>
+ .
+ On Debian systems, the complete text of the GNU General
+ Public License version 2 can be found in "/usr/share/common-licenses/GPL-2".
diff --git a/debian/docs b/debian/docs
new file mode 100644
index 0000000..960011c
--- /dev/null
+++ b/debian/docs
@@ -0,0 +1,3 @@
+tests
+debian/README.test
+debian/tests/run-unit-test
diff --git a/debian/r-cran-rngtools.debhelper.log 
b/debian/r-cran-rngtools.debhelper.log
new file mode 100644
index 0000000..2033868
--- /dev/null
+++ b/debian/r-cran-rngtools.debhelper.log
@@ -0,0 +1,4 @@
+dh_prep
+dh_installdirs
+dh_installdirs
+dh_installdirs
diff --git a/debian/r-cran-rngtools.substvars b/debian/r-cran-rngtools.substvars
new file mode 100644
index 0000000..d8ddfe3
--- /dev/null
+++ b/debian/r-cran-rngtools.substvars
@@ -0,0 +1 @@
+R:Depends=r-base-core (>= 3.1.1-1)
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/DESCRIPTION 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/DESCRIPTION
new file mode 100644
index 0000000..d61bf88
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/DESCRIPTION
@@ -0,0 +1,25 @@
+Package: rngtools
+Maintainer: Renaud Gaujoux <[email protected]>
+Author: Renaud Gaujoux
+Version: 1.2.4
+License: GPL-3
+Title: Utility functions for working with Random Number Generators
+Description: This package contains a set of functions for working with
+    Random Number Generators (RNGs). In particular, it defines a generic
+    S4 framework for getting/setting the current RNG, or RNG data
+    that are embedded into objects for reproducibility.
+    Notably, convenient default methods greatly facilitate the way current
+    RNG settings can be changed.
+URL: https://renozao.github.io/rngtools
+BugReports: http://github.com/renozao/rngtools/issues
+SCM: github:renozao, r-forge
+Depends: R (>= 3.0.0), methods, pkgmaker (>= 0.20)
+Imports: stringr, digest
+Suggests: parallel, RUnit, knitr
+Collate: 'rngtools-package.r' 'format.R' 'RNG.R' 'RNGseq.R'
+VignetteBuilder: knitr
+Packaged: 2014-03-06 13:11:11 UTC; renaud
+NeedsCompilation: no
+Repository: CRAN
+Date/Publication: 2014-03-06 22:18:10
+Built: R 3.3.0; ; 2016-07-04 18:20:17 UTC; unix
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/INDEX 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/INDEX
new file mode 100644
index 0000000..33481fb
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/INDEX
@@ -0,0 +1,8 @@
+RNGseed                 Directly Getting or Setting the RNG Seed
+RNGseq                  Generate Sequence of Random Streams
+RNGstr                  Formatting RNG Information
+checkRNG                Checking RNG Differences in Unit Tests
+getRNG                  Getting/Setting RNGs
+rng.equal               Comparing RNG Settings
+rngtools                Utility functions for working with Random
+                        Number Generators
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/Rd.rds 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/Rd.rds
new file mode 100644
index 0000000..c0ebb78
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/Rd.rds differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/hsearch.rds 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/hsearch.rds
new file mode 100644
index 0000000..3cc75b7
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/hsearch.rds differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/links.rds 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/links.rds
new file mode 100644
index 0000000..61d8a1f
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/links.rds differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/nsInfo.rds 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/nsInfo.rds
new file mode 100644
index 0000000..c483acf
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/nsInfo.rds differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/package.rds 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/package.rds
new file mode 100644
index 0000000..3c39793
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/package.rds differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/vignette.rds 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/vignette.rds
new file mode 100644
index 0000000..dd85a43
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/Meta/vignette.rds 
differ
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/NAMESPACE 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/NAMESPACE
new file mode 100644
index 0000000..0dc79ce
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/NAMESPACE
@@ -0,0 +1,23 @@
+export(.getRNG)
+export(.setRNG)
+export(RNGdigest)
+export(RNGinfo)
+export(RNGrecovery)
+export(RNGseed)
+export(RNGseq)
+export(RNGseq_seed)
+export(RNGstr)
+export(RNGtype)
+export(checkRNG)
+export(getRNG)
+export(getRNG1)
+export(hasRNG)
+export(nextRNG)
+export(rng.equal)
+export(rng1.equal)
+export(setRNG)
+export(showRNG)
+import(digest)
+import(methods)
+import(pkgmaker)
+import(stringr)
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools
new file mode 100644
index 0000000..3b65e3c
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools
@@ -0,0 +1,27 @@
+#  File share/R/nspackloader.R
+#  Part of the R package, http://www.R-project.org
+#
+#  Copyright (C) 1995-2012 The R Core Team
+#
+#  This program is free software; you can redistribute it and/or modify
+#  it under the terms of the GNU General Public License as published by
+#  the Free Software Foundation; either version 2 of the License, or
+#  (at your option) any later version.
+#
+#  This program is distributed in the hope that it will be useful,
+#  but WITHOUT ANY WARRANTY; without even the implied warranty of
+#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+#  GNU General Public License for more details.
+#
+#  A copy of the GNU General Public License is available at
+#  http://www.r-project.org/Licenses/
+
+local({
+    info <- loadingNamespaceInfo()
+    pkg <- info$pkgname
+    ns <- .getNamespace(as.name(pkg))
+    if (is.null(ns))
+        stop("cannot find namespace environment for ", pkg, domain = NA);
+    dbbase <- file.path(info$libname, pkg, "R", pkg)
+    lazyLoad(dbbase, ns, filter = function(n) n != ".__NAMESPACE__.")
+})
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdb 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdb
new file mode 100644
index 0000000..132599f
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdb differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdx 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdx
new file mode 100644
index 0000000..a7f5d12
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/R/rngtools.rdx differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/index.html 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/index.html
new file mode 100644
index 0000000..b30f527
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/index.html
@@ -0,0 +1,28 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd";>
+<html xmlns="http://www.w3.org/1999/xhtml";>
+<head><title>R: Vignettes and other documentation</title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+<link rel="stylesheet" type="text/css" href="/doc/html/R.css" />
+</head><body>
+<h1> Vignettes and other documentation
+<img class="toplogo" src="/doc/html/Rlogo.svg" alt="[R logo]" />
+</h1>
+<hr/>
+<div style="text-align: center;">
+<a href="/doc/html/index.html"><img class="arrow" src="/doc/html/up.jpg" 
alt="[Top]" /></a>
+</div>
+<h2>Vignettes from package 'rngtools'</h2>
+<table width="100%">
+<col style="width: 22%;" />
+<col style="width:  2%;" />
+<col style="width: 50%;" />
+<col style="width:  8%;" />
+<col style="width:  8%;" />
+<col style="width:  8%;" />
+<tr><td style="text-align: right; vertical-align: top;"><a 
href="../../../library/rngtools/doc/rngtools-unitTests.pdf">rngtools::rngtools-unitTests</a></td>
+<td></td><td valign="top">rngtools-unitTests</td>
+<td valign="top"><a 
href="../../../library/rngtools/doc/rngtools-unitTests.pdf">PDF</a></td>
+<td valign="top"><a 
href="../../../library/rngtools/doc/rngtools-unitTests.Rnw">source</a></td>
+<td valign="top" style="white-space: nowrap"><a 
href="../../../library/rngtools/doc/rngtools-unitTests.R">R code</a></td></tr>
+</table>
+</body></html>
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.R
 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.R
new file mode 100644
index 0000000..e66beab
--- /dev/null
+++ 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.R
@@ -0,0 +1,9 @@
+
+## ----setup, include=FALSE------------------------------------------------
+pkg <- 'rngtools'
+require( pkg, character.only=TRUE )
+prettyVersion <- packageDescription(pkg)$Version
+prettyDate <- format(Sys.Date(), '%B %e, %Y')
+authors <- packageDescription(pkg)$Author
+
+
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.Rnw
 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.Rnw
new file mode 100644
index 0000000..ff4e04d
--- /dev/null
+++ 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.Rnw
@@ -0,0 +1,80 @@
+
+\documentclass[10pt]{article}
+%\VignetteDepends{knitr}
+%\VignetteIndexEntry{rngtools-unitTests}
+%\VignetteCompiler{knitr}
+%\VignetteEngine{knitr::knitr}
+\usepackage{vmargin}
+\setmargrb{0.75in}{0.75in}{0.75in}{0.75in}
+
+<<setup, include=FALSE>>=
+pkg <- 'rngtools'
+require( pkg, character.only=TRUE )
+prettyVersion <- packageDescription(pkg)$Version
+prettyDate <- format(Sys.Date(), '%B %e, %Y')
+authors <- packageDescription(pkg)$Author
+@
+
+\usepackage[colorlinks]{hyperref}
+\author{\Sexpr{authors}}
+\title{\texttt{\Sexpr{pkg}}: Unit testing results\footnote{Vignette computed  
on Thu Mar  6 11:45:50 2014}}
+\date{\texttt{\Sexpr{pkg}} version \Sexpr{prettyVersion} as of 
\Sexpr{prettyDate}}
+\begin{document}
+\maketitle
+
+\section{Details}
+\begin{verbatim}
+
+RUNIT TEST PROTOCOL -- Thu Mar  6 11:45:50 2014 
+*********************************************** 
+Number of test functions: 6 
+Number of errors: 0 
+Number of failures: 0 
+
+ 
+1 Test Suite : 
+package:rngtools - 6 test functions, 0 errors, 0 failures
+
+
+
+Details 
+*************************** 
+Test Suite: package:rngtools 
+Test function regexp: ^test. 
+Test file regexp: ^runit.*.[rR]$ 
+Involved directory: 
+/tmp/Rpkglib_51e6234a85cc/rngtools/tests 
+--------------------------- 
+Test file: /tmp/Rpkglib_51e6234a85cc/rngtools/tests/runit.format.r 
+test.RNGdigest: (30 checks) ... OK (0.01 seconds)
+test.RNGtype: (22 checks) ... OK (0.01 seconds)
+--------------------------- 
+Test file: /tmp/Rpkglib_51e6234a85cc/rngtools/tests/runit.RNG.r 
+test.getRNG: (18 checks) ... OK (0 seconds)
+test.setRNG: (34 checks) ... OK (0.01 seconds)
+--------------------------- 
+Test file: /tmp/Rpkglib_51e6234a85cc/rngtools/tests/runit.RNGseq.r 
+test.RNGseq: (51 checks) ... OK (0.01 seconds)
+test.RNGseq_seed: (75 checks) ... OK (0 seconds)
+
+Total execution time
+***************************
+   user  system elapsed 
+  0.234   0.001   0.234 
+
+\end{verbatim}
+
+\section*{Session Information}
+\begin{itemize}\raggedright
+  \item R Under development (unstable) (2014-03-02 r65102), 
\verb|x86_64-unknown-linux-gnu|
+  \item Locale: \verb|LC_CTYPE=en_US.UTF-8|, \verb|LC_NUMERIC=C|, 
\verb|LC_TIME=en_US.UTF-8|, \verb|LC_COLLATE=en_US.UTF-8|, 
\verb|LC_MONETARY=en_US.UTF-8|, \verb|LC_MESSAGES=en_US.UTF-8|, 
\verb|LC_PAPER=en_US.UTF-8|, \verb|LC_NAME=C|, \verb|LC_ADDRESS=C|, 
\verb|LC_TELEPHONE=C|, \verb|LC_MEASUREMENT=en_US.UTF-8|, 
\verb|LC_IDENTIFICATION=C|
+  \item Base packages: base, datasets, graphics, grDevices, methods,
+    parallel, stats, utils
+  \item Other packages: pkgmaker~0.20, registry~0.2, rngtools~1.2.4,
+    RUnit~0.4.26, stringr~0.6.2
+  \item Loaded via a namespace (and not attached): codetools~0.2-8,
+    digest~0.6.4, tools~3.1.0, xtable~1.7-1
+\end{itemize}
+
+\end{document}
+
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.pdf
 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.pdf
new file mode 100644
index 0000000..15f40de
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/doc/rngtools-unitTests.pdf
 differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/AnIndex 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/AnIndex
new file mode 100644
index 0000000..37d7bbd
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/AnIndex
@@ -0,0 +1,31 @@
+rngtools-package       rngtools
+.getRNG        rng
+.getRNG,ANY-method     rng
+.getRNG,list-method    rng
+.getRNG,missing-method rng
+.getRNG,numeric-method rng
+.getRNG-methods        rng
+.setRNG        rng
+.setRNG,character-method       rng
+.setRNG,numeric-method rng
+.setRNG-methods        rng
+checkRNG       uchecks
+getRNG rng
+getRNG1        rng
+getRNG1,ANY-method     rng
+getRNG1-methods        rng
+hasRNG rng
+nextRNG        rng
+rng.equal      rngcmp
+rng1.equal     rngcmp
+RNGdigest      RNGstr
+RNGinfo        RNGstr
+RNGrecovery    RNGseed
+RNGseed        RNGseed
+RNGseq RNGseq
+RNGseq_seed    RNGseq
+RNGstr RNGstr
+rngtools       rngtools
+RNGtype        RNGstr
+setRNG rng
+showRNG        RNGstr
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/aliases.rds 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/aliases.rds
new file mode 100644
index 0000000..abedd7a
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/aliases.rds differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/paths.rds 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/paths.rds
new file mode 100644
index 0000000..2ff4b4b
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/paths.rds differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdb 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdb
new file mode 100644
index 0000000..5541437
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdb 
differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdx 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdx
new file mode 100644
index 0000000..fe2a5f9
Binary files /dev/null and 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/help/rngtools.rdx 
differ
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/00Index.html 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/00Index.html
new file mode 100644
index 0000000..cd2fabd
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/00Index.html
@@ -0,0 +1,79 @@
+<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN" 
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd";>
+<html xmlns="http://www.w3.org/1999/xhtml";>
+<head><title>R: Utility functions for working with Random Number 
Generators</title>
+<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
+<link rel="stylesheet" type="text/css" href="R.css" />
+</head><body>
+<h1> Utility functions for working with Random Number Generators
+<img class="toplogo" src="../../../doc/html/Rlogo.svg" alt="[R logo]" />
+</h1>
+<hr/>
+<div style="text-align: center;">
+<a href="../../../doc/html/packages.html"><img class="arrow" 
src="../../../doc/html/left.jpg" alt="[Up]" /></a>
+<a href="../../../doc/html/index.html"><img class="arrow" 
src="../../../doc/html/up.jpg" alt="[Top]" /></a>
+</div><h2>Documentation for package &lsquo;rngtools&rsquo; version 1.2.4</h2>
+
+<ul><li><a href="../DESCRIPTION">DESCRIPTION file</a>.</li>
+<li><a href="../doc/index.html">User guides, package vignettes and other 
documentation.</a></li>
+</ul>
+
+<h2>Help Pages</h2>
+
+
+<table width="100%">
+<tr><td style="width: 25%;"><a href="rngtools.html">rngtools-package</a></td>
+<td>Utility functions for working with Random Number Generators</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.getRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.getRNG-method</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.getRNG-methods</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.setRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.setRNG-method</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">.setRNG-methods</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="uchecks.html">checkRNG</a></td>
+<td>Checking RNG Differences in Unit Tests</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">getRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">getRNG1</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">getRNG1-method</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">getRNG1-methods</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">hasRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">nextRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="rngcmp.html">rng.equal</a></td>
+<td>Comparing RNG Settings</td></tr>
+<tr><td style="width: 25%;"><a href="rngcmp.html">rng1.equal</a></td>
+<td>Comparing RNG Settings</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">RNGdigest</a></td>
+<td>Formatting RNG Information</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">RNGinfo</a></td>
+<td>Formatting RNG Information</td></tr>
+<tr><td style="width: 25%;"><a href="RNGseed.html">RNGrecovery</a></td>
+<td>Directly Getting or Setting the RNG Seed</td></tr>
+<tr><td style="width: 25%;"><a href="RNGseed.html">RNGseed</a></td>
+<td>Directly Getting or Setting the RNG Seed</td></tr>
+<tr><td style="width: 25%;"><a href="RNGseq.html">RNGseq</a></td>
+<td>Generate Sequence of Random Streams</td></tr>
+<tr><td style="width: 25%;"><a href="RNGseq.html">RNGseq_seed</a></td>
+<td>Generate Sequence of Random Streams</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">RNGstr</a></td>
+<td>Formatting RNG Information</td></tr>
+<tr><td style="width: 25%;"><a href="rngtools.html">rngtools</a></td>
+<td>Utility functions for working with Random Number Generators</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">RNGtype</a></td>
+<td>Formatting RNG Information</td></tr>
+<tr><td style="width: 25%;"><a href="rng.html">setRNG</a></td>
+<td>Getting/Setting RNGs</td></tr>
+<tr><td style="width: 25%;"><a href="RNGstr.html">showRNG</a></td>
+<td>Formatting RNG Information</td></tr>
+</table>
+</body></html>
diff --git a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/R.css 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/R.css
new file mode 100644
index 0000000..f10f5ea
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/html/R.css
@@ -0,0 +1,97 @@
+body {
+    background: white;
+    color: black;
+}
+
+a:link {
+    background: white;
+    color: blue;
+}
+
+a:visited {
+    background: white;
+    color: rgb(50%, 0%, 50%);
+}
+
+h1 {
+    background: white;
+    color: rgb(55%, 55%, 55%);
+    font-family: monospace;
+    font-size: x-large;
+    text-align: center;
+}
+
+h2 {
+    background: white;
+    color: rgb(40%, 40%, 40%);
+    font-family: monospace;
+    font-size: large;
+    text-align: center;
+}
+
+h3 {
+    background: white;
+    color: rgb(40%, 40%, 40%);
+    font-family: monospace;
+    font-size: large;
+}
+
+h4 {
+    background: white;
+    color: rgb(40%, 40%, 40%);
+    font-family: monospace;
+    font-style: italic;
+    font-size: large;
+}
+
+h5 {
+    background: white;
+    color: rgb(40%, 40%, 40%);
+    font-family: monospace;
+}
+
+h6 {
+    background: white;
+    color: rgb(40%, 40%, 40%);
+    font-family: monospace;
+    font-style: italic;
+}
+               
+img.toplogo {
+    width: 4em;
+    vertical-align: middle;
+}
+
+img.arrow {
+    width: 30px;
+    height: 30px;
+    border: 0;
+}
+
+span.acronym {
+    font-size: small;
+}
+
+span.env {
+    font-family: monospace;
+}
+
+span.file {
+    font-family: monospace;
+}
+
+span.option{
+    font-family: monospace;
+}
+
+span.pkg {
+    font-weight: bold;
+}
+
+span.samp{
+    font-family: monospace;
+}
+
+div.vignettes a:hover {
+    background: rgb(85%, 85%, 85%);
+}
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNG.r 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNG.r
new file mode 100644
index 0000000..fddb18e
--- /dev/null
+++ b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNG.r
@@ -0,0 +1,133 @@
+# Unit test for getRNG
+# 
+# Author: Renaud Gaujoux
+###############################################################################
+
+library(stringr)
+
+test.getRNG <- function(){
+
+       RNGkind('default', 'default')
+       on.exit( RNGrecovery() )
+       
+       checker <- function(x, y, ..., msg=NULL, drawRNG=TRUE){
+               
+               if( drawRNG ) runif(10)
+               fn <- getRNG
+               oldRNG <- RNGseed()
+               if( !missing(x) ){
+                       d <- fn(x, ...)
+                       cl <- str_c(class(x), '(', length(x), ')')
+               }else{
+                       d <- fn()
+                       cl <- 'MISSING'
+               }
+               newRNG <- RNGseed()
+               .msg <- function(x) paste(cl, ':', x, '[', msg, ']')
+               checkIdentical(oldRNG, newRNG, .msg("does not change RNG"))
+               checkIdentical(d, y, .msg("result is correct") )
+       }
+       
+       set.seed(123456)
+       seed123456 <- .Random.seed
+       checker(, seed123456, msg="No arguments: returns .Random.seed", 
drawRNG=FALSE)
+       checker(123456, seed123456, msg="Single numeric argument: returns 
.Random.seed as it would be after setting the seed")
+       checker(123456, 123456, num.ok=TRUE, msg="Single numeric argument + 
num.ok: returns argument unchanged")
+       checker(.Random.seed, .Random.seed, msg="Integer seed argument: returns 
its argument unchanged")
+       checker(as.numeric(.Random.seed), .Random.seed, msg="Numeric seed 
argument: returns its argument as an integer vector")
+       checker(2:3, 2:3, msg="Integer INVALID seed vector argument: returns 
its argument unchanged")
+       checker(c(2,3), c(2L,3L), msg="Numeric INVALID seed vector argument: 
returns its argument as an integer vector")
+       checker(1L, 1L, msg="Single integer = Encoded RNG kind: returns it 
unchanged")
+       checker(1000L, 1000L, msg="Invalid single integer = Encoded RNG kind: 
returns it unchanged")
+       
+}
+
+test.setRNG <- function(){
+       
+       RNGkind('default', 'default')
+       on.exit( RNGrecovery() )
+       
+       checker <- function(x, y, tset, drawRNG=TRUE){
+       
+               on.exit( RNGrecovery() )
+               
+               if( drawRNG ) runif(10)
+               oldRNG <- RNGseed()
+               d <- force(x)
+               newRNG <- RNGseed()
+               
+               msg <- function(x, ...) paste(tset, ':', ...)
+               checkTrue(!identical(oldRNG, newRNG), msg("changes RNG"))
+               checkIdentical(getRNG(), y, msg("RNG is correctly set") )
+               checkIdentical(d, oldRNG, msg("returns old RNG") )
+       }
+       
+       set.seed(123456)
+       refseed <- .Random.seed
+       checker(setRNG(123456), refseed, "Single numeric: sets current RNG with 
seed")
+       
+       # setting kind with a character string
+       set.seed(123)
+       RNGkind('Mar')
+       refseed <- .Random.seed
+       RNGrecovery()
+       set.seed(123)
+       checker(setRNG('Mar'), refseed, "Single character: change RNG kind", 
drawRNG=FALSE)
+       
+       # setting kind with a character string
+       set.seed(123)
+       RNGkind('Mar', 'Ahrens')
+       refseed <- .Random.seed
+       RNGrecovery()
+       set.seed(123)
+       checker(setRNG('Mar', 'Ahrens'), refseed, "Two character strings: 
change RNG kind and normal kind", drawRNG=FALSE)
+       RNGrecovery()
+       set.seed(123)
+       checker(setRNG(c('Mar', 'Ahrens')), refseed, "2-long character vector: 
change RNG kind and normal kind", drawRNG=FALSE)
+       
+       # setting kind
+       set.seed(123456, kind='Mar')
+       refseed <- .Random.seed
+       checker(setRNG(123456, kind='Mar'), refseed, "Single numeric + kind: 
change RNG kind + set seed")
+       
+       # setting Nkind
+       set.seed(123456, normal.kind='Ahrens')
+       refseed <- .Random.seed
+       checker(setRNG(123456, normal.kind='Ahrens'), refseed
+                               , "Single numeric + normal.kind: change RNG 
normal kind + set seed")
+       
+       # setting kind and Nkind
+       set.seed(123456, kind='Mar', normal.kind='Ahrens')
+       refseed <- .Random.seed
+       checker(setRNG(123456, kind='Mar', normal.kind='Ahrens'), refseed
+                       , "Single numeric + kind + normal.kind: change RNG all 
kinds + set seed")
+       
+       # with seed length > 1
+       refseed <- as.integer(c(201, 0, 0))
+       checker(setRNG(refseed), refseed, "numeric vector: directly set seed")
+       
+       refseed <- .Random.seed
+       checkException( setRNG(2:3), "numeric vector: throws an error if 
invalid value for .Random.seed")
+       checkIdentical( .Random.seed, refseed, ".Random.seed is not changed in 
case of an error in setRNG")
+    
+    oldRNG <- getRNG()
+    checkException(setRNG(1234L), "Error with invalid integer seed")
+    checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+    checkException(setRNG(123L), "Error with invalid RNG kind")
+    checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+
+    # changes in R >= 3.0.2: invalid seeds only throw warning
+    if( testRversion('> 3.0.1') ){
+        oldRNG <- getRNG()
+        checkWarning(setRNG(1234L, check = FALSE), "\\.Random\\.seed.* is not 
.* valid"
+                        , "Invalid integer kind: Warning only if check = 
FALSE")
+        checkIdentical(1234L, getRNG(), "RNG has new invalid integer value")
+        setRNG(oldRNG)
+        checkWarning(setRNG(123L, check = FALSE), "\\.Random\\.seed.* is not 
.* valid"
+                        , "Invalid kind: Warning only if check = FALSE")
+        checkIdentical(123L, getRNG(), "RNG has new invalid RNG kind")
+                                                
+    }
+       
+}
+
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNGseq.r 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNGseq.r
new file mode 100644
index 0000000..674012e
--- /dev/null
+++ 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.RNGseq.r
@@ -0,0 +1,162 @@
+# Unit tets for RNGseq
+# 
+# Author: Renaud Gaujoux
+###############################################################################
+
+library(parallel)
+
+test.RNGseq_seed <- function(){
+       
+       # actual testing function
+       .test_loc <- function(.msg, ..., .change=FALSE){
+               msg <- function(...) paste(.msg, ':', ...)
+               os <- RNGseed()
+               on.exit(RNGseed(os))
+               s <- RNGseq_seed(...)
+               checkTrue(length(s) == 7L && s[1] %% 100 == 7L, 
msg("RNGseq_seed returns a value of .Random.seed for L'Ecuyer-CMRG"))
+               checkIdentical(RNGseed()[1], os[1], msg("RNGseq_seed does not 
change the type of RNG"))
+               
+               if( !.change ) checkIdentical(RNGseed(), os, msg("RNGseq_seed 
does not change the value of .Random.seed"))
+               else checkTrue( !identical(RNGseed(), os), msg("RNGseq_seed 
changes the value of .Random.seed"))
+               s
+       }
+       
+       # test in two RNG settings: default and L'Ecuyer
+       .test <- function(.msg, ..., ss=NULL, .change=FALSE, Dchange=.change, 
Lchange=.change){
+               os <- RNGseed()
+               on.exit(RNGseed(os))
+               
+               # default RNG
+               RNGkind('default')
+               if( !is.null(ss) ) set.seed(ss)
+               s1 <- .test_loc(paste(.msg, '- default'), ..., .change=Dchange)
+               
+               RNGkind("L'Ecuyer")
+               if( !is.null(ss) ) set.seed(ss)
+               s2 <- .test_loc(paste(.msg, "- CMRG"), ..., .change=Lchange)
+               
+               list(s1, s2)
+       }
+       
+       os <- RNGseed()
+       on.exit(RNGseed(os))
+       
+       RNGkind('default', 'default')
+       
+       # test different arguments
+       s1 <- .test("seed=missing", ss=1, Dchange=TRUE, Lchange=FALSE)
+       runif(10)
+       s2 <- .test("seed=NULL", NULL, ss=1, Dchange=TRUE, Lchange=FALSE)
+       checkIdentical(s1, s2, "set.seed(1) + seed=missing and seed=NULL return 
identical results")
+       
+       # doRNG seed with single numeric
+       runif(10)
+       s3 <- .test("seed=single numeric", 1)
+       checkIdentical(s1[[1]], s3[[1]], "v1.4 - set.seed(1) + seed=missing and 
seed=1 return identical results when current RNG is NOT CMRG")
+       checkIdentical(s1[[2]], s3[[2]], "v1.4 - set.seed(1) + seed=missing and 
seed=1 return identical results when current RNG is CMRG")
+       checkTrue( !identical(s1[[1]], s1[[2]]), "v1.4 - set.seed(1) + 
seed=missing return NON identical results in different RNG settings")
+       checkTrue( !identical(s3[[1]], s3[[2]]), "v1.4 - seed=num return NON 
identical results in different RNG settings")
+       
+       # version < 1.4
+#      doRNGversion("1.3.9999")
+       s1 <- .test("v1.3 - seed=missing", ss=1, Dchange=TRUE, Lchange=TRUE, 
version=1)
+       s3 <- .test("v1.3 - seed=single numeric", 1, version=1)
+       checkIdentical(s1[[1]], s3[[1]], "v1.3 - set.seed(1) + seed=missing and 
seed=1 return identical results when current RNG is NOT CMRG")
+       checkTrue( !identical(s1[[2]], s3[[2]]), "v1.3 - set.seed(1) + 
seed=missing and seed=1 return NON identical results when current RNG is CMRG")
+       checkTrue( !identical(s1[[1]], s1[[2]]), "v1.3 - set.seed(1) + 
seed=missing return NON identical results in different RNG settings")
+       checkTrue( !identical(s3[[1]], s3[[2]]), "v1.4 - seed=num return NON 
identical results in different RNG settings")
+#      doRNGversion(NULL) 
+       ##
+       
+       .test("seed=single integer", 10L)
+       # directly set doRNG seed with a 6-length
+       .test("seed=6-length integer", 1:6)
+       .test("seed=6-length numeric", as.numeric(1:6))
+       s <- 1:6
+       checkIdentical(RNGseq_seed(s)[2:7], s, "RNGseq_seed(6-length) returns 
stream to the given value")
+       # directly set doRNG seed with a full 7-length .Random.seed
+       .test("seed=7-length integer", c(407L,1:6))
+       .test("seed=7-length numeric", as.numeric(c(107L,1:6)))
+       s <- c(407L,1:6)
+       checkIdentical(RNGseq_seed(s), s, "RNGseq_seed(7-length) returns 
complete seed with the given value")
+       
+       # errors
+       os <- RNGseed()
+       checkException(RNGseq_seed(NA), "seed=NA throws an exception")
+       checkIdentical(os, RNGseed(), "RNGseq_seed(NA) does not change the 
value of .Random.seed [error]")
+       
+       # Current CMRG is L'Ecuyer
+       RNGkind("L'Ecuyer")
+       set.seed(456)
+       s <- RNGseed()
+       r <- RNGseq_seed(NULL)
+       checkIdentical(s, r, "Current is CMRG: seed=NULL return current stream")
+       runif(10)
+       checkIdentical(s, RNGseq_seed(456), "Current is CMRG: seed=numeric 
return stream seeded with value")
+       
+}
+
+test.RNGseq <- function(){
+       
+       os <- RNGseed()
+       on.exit(RNGseed(os))
+       
+       # actual testing function
+       .test_loc <- function(.msg, n, ..., .list=TRUE, .change=FALSE){
+               msg <- function(...) paste(.msg, ':', ...)
+               os <- RNGseed()
+               on.exit(RNGseed(os))
+       
+               s <- RNGseq(n, ...)
+               
+               if( !.change ) checkIdentical(RNGseed(), os, msg("the value of 
.Random.seed is not changed"))
+               else checkTrue( !identical(RNGseed(), os), msg("the value of 
.Random.seed does change"))
+               
+               if( .list )     checkTrue(is.list(s), msg("result is a list"))
+               else{
+                       checkTrue(is.integer(s), msg("result is an integer 
vector"))
+                       s <- list(s)
+               }
+               
+               checkTrue(length(s) == n, msg("result has correct length"))
+               checkTrue(all(sapply(s, length) == 7L), msg("each element has 
length 7"))
+               checkTrue(all(sapply(s, function(x) x[1] %% 100) == 7L), 
msg("each element has correct RNG kind"))
+               s
+       }
+       
+       .test <- function(msg, n, ...){
+               set.seed(1)
+               s1 <- .test_loc(paste(msg, '- no seed'), n, ..., .change=TRUE)
+               runif(1)
+               s2 <- .test_loc(paste(msg, '- seed=1'), n, 1, ..., 
.change=FALSE)
+               #checkIdentical(s1, s2, paste(msg, " - set.seed(1) + no seed is 
identical to seed=1"))
+               .test_loc(paste(msg, '- seed=1:6'), n, 1:6, ...)
+       }
+       .test("n=1", 1, .list=FALSE)
+       .test("n=2", 2)
+       .test("n=5", 5)
+       
+       # with full list
+       s <- RNGseq(3)
+       checkIdentical(RNGseq(length(s), s), s, "If passing a complete list: 
returns the list itself")
+       s3 <- RNGseq(5)
+       s <- structure(s, rng=s3)
+       checkIdentical(RNGseq(length(s3), s), s3, "If passing a complete list 
in rng S3 slot: returns the complete slot")
+       #
+
+       # Current RNG is CMRG
+       set.seed(456, "L'Ec")
+       s <- .Random.seed
+       ref <- list(s, nextRNGStream(s), nextRNGStream(nextRNGStream(s)))
+       rs <- RNGseq(3, 456)
+       checkIdentical(rs, ref, "Current RNG is CMRG: RNGseq(n, num) returns 
RNG streams that start with stream as set.seed")
+       checkIdentical(s, .Random.seed, "Current RNG is CMRG: RNGseq(n, num) 
did not change random seed")
+       
+       runif(10)
+       s <- .Random.seed
+       ref <- list(s, nextRNGStream(s), nextRNGStream(nextRNGStream(s)))
+       rs2 <- RNGseq(3)
+       checkIdentical(rs2, ref, "Current RNG is CMRG: RNGseq(n) returns RNG 
streams that start with current stream")
+       checkIdentical(.Random.seed, nextRNGStream(tail(rs2,1)[[1]]), "Current 
RNG is CMRG: RNGseq(n) changes current random seed to next stream of last 
stream in sequence")
+       
+}
diff --git 
a/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.format.r 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.format.r
new file mode 100644
index 0000000..7e94f91
--- /dev/null
+++ 
b/debian/r-cran-rngtools/usr/lib/R/site-library/rngtools/tests/runit.format.r
@@ -0,0 +1,103 @@
+# Unit tests for RNG formatting functions
+# 
+# Author: Renaud Gaujoux
+###############################################################################
+
+library(stringr)
+library(pkgmaker)
+
+checkFun <- function(fn, name){
+       
+       function(x, ...){
+               
+               oldRNG <- RNGseed()
+               if( !missing(x) ){
+                       d <- fn(x)
+                       obj <- getRNG(x)
+                       cl <- class(x)
+               }else{
+                       d <- fn()
+                       obj <- getRNG()
+                       cl <- 'MISSING'
+               }
+               newRNG <- RNGseed()
+               msg <- function(x, ...) paste(name, '-', cl, ':', x, '[', ..., 
']')
+               checkIdentical(oldRNG, newRNG, msg("does not change RNG", ...))
+               
+               #
+               checkTrue( isString(d), msg("result is a character string", 
...))
+               checkIdentical(d, fn(obj), msg("digest is from the RNG 
setting", ...))
+               
+       }
+}
+
+test.RNGdigest <- function(){
+       
+       RNGkind('default', 'default')
+       on.exit( RNGrecovery() )
+       
+       fn <- c('RNGdigest', 'RNGstr')
+       sapply(fn, function(f){
+               fn <- getFunction(f, where='package:rngtools')
+               checker <- checkFun(fn, f)
+
+               checker()
+               checker(1234)
+               checker(1:3, 'Valid seed')
+               checker(2:3, 'Invalid seed')
+               x <- list(10, rng=c(401L, 1L, 1L))
+               checker(x, 'list with rng slot')
+               
+       })
+       TRUE
+}
+
+checkRNGtype <- function(x, ..., expL=2L){
+       
+       fn <- RNGtype
+       oldRNG <- getRNG()
+       if( !missing(x) ){
+               d <- fn(x)
+               obj <- getRNG(x)
+               cl <- str_c(class(x), '(', length(x), ')')
+       }else{
+               d <- fn()
+               obj <- getRNG()
+               cl <- 'MISSING'
+       }
+       newRNG <- getRNG()
+       msg <- function(x, ...) paste(cl, ':', x, '[', ..., ']')
+       checkIdentical(oldRNG, newRNG, msg("does not change RNG", ...))
+       
+       #
+       checkTrue( is.character(d), msg("result is a character vector", ...) )
+       checkIdentical( length(d), expL, msg("result has correct length (", 
expL, ")", ...) )
+       
+}
+
+test.RNGtype <- function(){
+       
+       RNGkind('default', 'default')
+       on.exit( RNGrecovery() )
+       checker <- checkRNGtype
+       
+       checker()
+       checker(1234, 'Valid single numeric seed')
+       checker(1:3, 'Valid seed')
+       checker(402L, 'Valid encoded kind')
+       checkTrue( !identical(RNGtype(402), RNGtype(402L)), "Single integer and 
real number does not give the same result")
+       x <- list(10, rng=c(401L, 1L, 1L))
+       checker(x, 'list with rng slot')
+       
+       # errors
+       oldRNG <- getRNG()
+       checkException(RNGtype(2:3), "Error with invalid length seed")
+       checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+       #
+    
+    oldRNG <- getRNG()
+    checkException(RNGtype(123L), "Error with invalid RNG kind")
+    checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+    checkException(RNGtype(1234L), "Error with invalid RNG integer")
+    checkIdentical(oldRNG, getRNG(), "RNG still valid after error")
+}
diff --git a/debian/rules b/debian/rules
new file mode 100755
index 0000000..70bae9d
--- /dev/null
+++ b/debian/rules
@@ -0,0 +1,6 @@
+#!/usr/bin/make -f
+
+include /usr/share/R/debian/r-cran.mk
+
+install/$(package)::
+       chmod 644 $(debRlib)/$(cranName)/doc/rngtools.*
diff --git a/debian/source/format b/debian/source/format
new file mode 100644
index 0000000..163aaf8
--- /dev/null
+++ b/debian/source/format
@@ -0,0 +1 @@
+3.0 (quilt)
diff --git a/debian/tests/control b/debian/tests/control
new file mode 100644
index 0000000..d2aa55a
--- /dev/null
+++ b/debian/tests/control
@@ -0,0 +1,3 @@
+Tests: run-unit-test
+Depends: @
+Restrictions: allow-stderr
diff --git a/debian/tests/run-unit-test b/debian/tests/run-unit-test
new file mode 100644
index 0000000..fac0275
--- /dev/null
+++ b/debian/tests/run-unit-test
@@ -0,0 +1,13 @@
+#!/bin/sh -e
+
+oname=rngtools
+pkg=r-cran-`echo $oname | tr '[A-Z]' '[a-z]'`
+
+if [ "$ADTTMP" = "" ] ; then
+  ADTTMP=`mktemp -d /tmp/${pkg}-test.XXXXXX`
+fi
+cd $ADTTMP
+cp -a /usr/share/doc/${pkg}/tests/* $ADTTMP
+LC_ALL=C R --no-save < doRUnit.R
+rm -fr $ADTTMP/*
+
diff --git a/debian/watch b/debian/watch
new file mode 100644
index 0000000..f28e408
--- /dev/null
+++ b/debian/watch
@@ -0,0 +1,3 @@
+version=3
+https://cran.r-project.org/src/contrib/rbgtools_([-0-9\.]*)\.tar\.gz
+

-- 
Alioth's /usr/local/bin/git-commit-notice on 
/srv/git.debian.org/git/debian-med/r-cran-rngtools.git

_______________________________________________
debian-med-commit mailing list
[email protected]
http://lists.alioth.debian.org/cgi-bin/mailman/listinfo/debian-med-commit

Reply via email to