From 29b5a1dff59f61811ff2d0beb8598732e37ab1e8 Mon Sep 17 00:00:00 2001 From: Samuel Tardieu Date: Wed, 24 Jun 2009 13:13:10 +0200 Subject: [PATCH] Add extra tests for math.primes --- basis/math/primes/primes-tests.factor | 9 +++++++-- 1 file changed, 7 insertions(+), 2 deletions(-) diff --git a/basis/math/primes/primes-tests.factor b/basis/math/primes/primes-tests.factor index a950395bf4..3d21a3e7d6 100644 --- a/basis/math/primes/primes-tests.factor +++ b/basis/math/primes/primes-tests.factor @@ -1,5 +1,5 @@ -USING: arrays math math.primes math.primes.miller-rabin -tools.test ; +USING: arrays kernel math math.primes math.primes.miller-rabin +sequences tools.test ; IN: math.primes.tests { 1237 } [ 1234 next-prime ] unit-test @@ -21,3 +21,8 @@ IN: math.primes.tests [ 100000000000031 ] [ 100000000000000 next-prime ] unit-test [ 49 ] [ 50 random-prime log2 ] unit-test + +[ t ] [ 5000077 dup find-relative-prime coprime? ] unit-test + +[ 5 t { 14 14 14 14 14 } ] +[ 5 15 unique-primes [ length ] [ [ prime? ] all? ] [ [ log2 ] map ] tri ] unit-test