Merge branch 'python'

1 files changed, 43 insertions, 0 deletions

diff --git a/tests/test.R b/tests/test.R
new file mode 100644
index 0000000..0937f52
--- /dev/null
+++ b/tests/test.R
@@ -0,0 +1,43 @@
+library(SyncRNG)
+
+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(sprintf('%.16f\n', s$rand()))
+}
+
+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('[', paste(y, collapse=', '), ']\n', sep='')
+	}
+}
+
+main <- function()
+{
+	test.randi()
+	test.rand()
+	test.randbelow()
+	test.shuffle()
+}
+
+main()