From 8dc182ff87cafe3337490bc8db90a67449b9c837 Mon Sep 17 00:00:00 2001 From: Mattias Andrée Date: Fri, 25 Mar 2016 13:21:19 +0100 Subject: zrand: add MODUNIFORM and add tests for QUASIUNIFORM and MODUNIFORM MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit Signed-off-by: Mattias Andrée --- test.c | 28 ++++++++++++++++++++++++++++ 1 file changed, 28 insertions(+) (limited to 'test.c') diff --git a/test.c b/test.c index 5517d9e..de92ccb 100644 --- a/test.c +++ b/test.c @@ -738,6 +738,34 @@ main(void) assert(zcmp(a, c), != 0); assert(zcmp(b, c), != 0); + zsetu(d, 100000UL); + zrand(a, FAST_RANDOM, QUASIUNIFORM, d); + assert(zcmp(a, _0), >= 0); + assert(zcmp(a, d), <= 0); + zrand(b, FAST_RANDOM, QUASIUNIFORM, d); + assert(zcmp(b, _0), >= 0); + assert(zcmp(b, d), <= 0); + zrand(c, FAST_RANDOM, QUASIUNIFORM, d); + assert(zcmp(c, _0), >= 0); + assert(zcmp(c, d), <= 0); + assert(zcmp(a, b), != 0); + assert(zcmp(a, c), != 0); + assert(zcmp(b, c), != 0); + + zsetu(d, 100000UL); + zrand(a, FAST_RANDOM, MODUNIFORM, d); + assert(zcmp(a, _0), >= 0); + assert(zcmp(a, d), <= 0); + zrand(b, FAST_RANDOM, MODUNIFORM, d); + assert(zcmp(b, _0), >= 0); + assert(zcmp(b, d), <= 0); + zrand(c, FAST_RANDOM, MODUNIFORM, d); + assert(zcmp(c, _0), >= 0); + assert(zcmp(c, d), <= 0); + assert(zcmp(a, b), != 0); + assert(zcmp(a, c), != 0); + assert(zcmp(b, c), != 0); + assert((zseti(a, -5), zptest(0, a, 100)), == NONPRIME); assert((zseti(a, -4), zptest(0, a, 100)), == NONPRIME); assert((zseti(a, -3), zptest(0, a, 100)), == NONPRIME); -- cgit v1.2.3-70-g09d2