From e9e06589dd104a10170d195dddf5d0b9390e187e Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Wed, 12 Oct 2016 22:29:39 +0200
Subject: add testthat unit testing framework

---
 test/test.R | 43 -------------------------------------------
 1 file changed, 43 deletions(-)
 delete mode 100644 test/test.R

(limited to 'test/test.R')

diff --git a/test/test.R b/test/test.R
deleted file mode 100644
index 0937f52..0000000
--- a/test/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()
-- 
cgit v1.2.3