From a75d571165c525734cfa0f91440904249d43a4fe Mon Sep 17 00:00:00 2001
From: Gertjan van den Burg <gertjanvandenburg@gmail.com>
Date: Fri, 15 Dec 2017 15:56:05 -0500
Subject: add unit test for runif rng

---
 tests/testthat/tests.R | 15 +++++++++++++++
 1 file changed, 15 insertions(+)

diff --git a/tests/testthat/tests.R b/tests/testthat/tests.R
index 4be1756..59dc004 100644
--- a/tests/testthat/tests.R
+++ b/tests/testthat/tests.R
@@ -46,3 +46,18 @@ test_that("test_first_1000", {
   }
   close(conn)
 })
+
+printf <- function(...) invisible(cat(sprintf(...)));
+
+test_that("test_first_1000_unif", {
+  set.seed(0, 'user', 'user')
+  fileName <- "./first_1000_seed_0.txt"
+  conn <- file(fileName, open="r")
+  linn <- readLines(conn)
+  for (i in 1:length(linn)) {
+	  exp <- as.numeric(linn[i])
+      u <- as.numeric(runif(1)*(2**32 - 1))
+	  expect_equal(exp, u)
+  }
+  close(conn)
+})
-- 
cgit v1.2.3