aboutsummaryrefslogtreecommitdiff
path: root/tests/test.R
diff options
context:
space:
mode:
Diffstat (limited to 'tests/test.R')
-rw-r--r--tests/test.R43
1 files changed, 0 insertions, 43 deletions
diff --git a/tests/test.R b/tests/test.R
deleted file mode 100644
index 0937f52..0000000
--- a/tests/test.R
+++ /dev/null
@@ -1,43 +0,0 @@
-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()