diff options
| author | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2016-10-12 22:29:39 +0200 |
|---|---|---|
| committer | Gertjan van den Burg <gertjanvandenburg@gmail.com> | 2016-10-16 13:00:02 +0200 |
| commit | e9e06589dd104a10170d195dddf5d0b9390e187e (patch) | |
| tree | 503d140d42a1fb8f790019d1ac3102d909f96c6d /tests/testthat/tests.R | |
| parent | remove Python material from R branch (diff) | |
| download | SyncRNG-e9e06589dd104a10170d195dddf5d0b9390e187e.tar.gz SyncRNG-e9e06589dd104a10170d195dddf5d0b9390e187e.zip | |
add testthat unit testing framework
Diffstat (limited to 'tests/testthat/tests.R')
| -rw-r--r-- | tests/testthat/tests.R | 48 |
1 files changed, 48 insertions, 0 deletions
diff --git a/tests/testthat/tests.R b/tests/testthat/tests.R new file mode 100644 index 0000000..4be1756 --- /dev/null +++ b/tests/testthat/tests.R @@ -0,0 +1,48 @@ +library(SyncRNG) +context("SyncRNG unit tests") + +test_that("test_randi", { + s <- SyncRNG(seed=123456) + expect_equal(s$randi(), 959852049) + expect_equal(s$randi(), 2314333085) + expect_equal(s$randi(), 2255782734) + expect_equal(s$randi(), 2921461239) + expect_equal(s$randi(), 1024197102) +}) + +test_that("test_rand", { + s <- SyncRNG(seed=123456) + expect_equal(s$rand(), 959852049 /(2**32)) + expect_equal(s$rand(), 2314333085/(2**32)) + expect_equal(s$rand(), 2255782734/(2**32)) + expect_equal(s$rand(), 2921461239/(2**32)) + expect_equal(s$rand(), 1024197102/(2**32)) +}) + +test_that("test_randbelow", { + s <- SyncRNG(seed=123456) + expect_equal(s$randbelow(5), 4) + expect_equal(s$randbelow(5), 0) + expect_equal(s$randbelow(5), 4) + expect_equal(s$randbelow(5), 4) + expect_equal(s$randbelow(5), 2) +}) + +test_that("test_shuffle", { + s <- SyncRNG(seed=123456) + x <- c(1, 2, 3, 4, 5) + y <- s$shuffle(x) + expect_equal(y, c(3, 4, 1, 2, 5)) +}) + +test_that("test_first_1000", { + s <- SyncRNG(seed=0) + 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]) + expect_equal(exp, s$randi()) + } + close(conn) +}) |