diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2017-12-15 15:56:05 -0500 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2017-12-15 15:56:05 -0500 |
| commit | a75d571165c525734cfa0f91440904249d43a4fe (patch) | |
| tree | 58f879a09b25b1f2d1abc5e55717e3848e697818 | |
| parent | Make SyncRNG an actual user-defined RNG (diff) | |
| download | SyncRNG-a75d571165c525734cfa0f91440904249d43a4fe.tar.gz SyncRNG-a75d571165c525734cfa0f91440904249d43a4fe.zip | |
add unit test for runif rng
| -rw-r--r-- | tests/testthat/tests.R | 15 |
1 files changed, 15 insertions, 0 deletions
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) +}) |