From 2971238c8957df1bce0629c12d8c209b39328590 Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <burg@ese.eur.nl>
Date: Fri, 31 Jul 2015 16:21:25 +0200
Subject: reformat to proper python and R packages

---
 test/test.R | 44 ++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 44 insertions(+)
 create mode 100644 test/test.R

(limited to 'test/test.R')

diff --git a/test/test.R b/test/test.R
new file mode 100644
index 0000000..a94d47b
--- /dev/null
+++ b/test/test.R
@@ -0,0 +1,44 @@
+
+source('./SyncRNG.R')
+
+test.randi <- function()
+{
+	s <- SyncRNG(seed=123456)
+	for (i in 1:5)
+		cat(s$randi(), '\n')
+}
+
+test.rand <- function()
+{
+	s <- SyncRNG(seed=123456)
+	for (i in 1:5)
+		cat(s$rand(), '\n')
+}
+
+test.randbelow <- function()
+{
+	s <- SyncRNG(seed=123456)
+	for (i in 1:5)
+		cat(s$randbelow(i), '\n')
+}
+
+test.shuffle <- function()
+{
+	s <- SyncRNG(seed=123456)
+	x <- c(1:5)
+	for (i in 1:5) {
+		y <- s$shuffle(x)
+		x <- y
+		cat(y, '\n')
+	}
+}
+
+main <- function()
+{
+	test.randi()
+	test.rand()
+	test.randbelow()
+	test.shuffle()
+}
+
+main()
-- 
cgit v1.2.3