fix blum blum shub tests

2008-09-09 19:14:56 -05:00 · 2008-09-09 19:14:56 -05:00 · 0f8c6bfd83
parent 70c91ffad1
commit 0f8c6bfd83
1 changed files with 2 additions and 2 deletions
--- a/extra/random/blum-blum-shub/blum-blum-shub-tests.factor
+++ b/extra/random/blum-blum-shub/blum-blum-shub-tests.factor
@ -8,14 +8,14 @@ IN: blum-blum-shub.tests
 ] unit-test


-[ 887708070 ] [
+[ 70576473 ] [
    T{ blum-blum-shub f 590695557939 811977232793 } clone [
        32 random-bits
        little-endian? [ <uint> reverse *uint ] unless
    ] with-random
 ] unit-test

-[ 5726770047455156646 ] [
+[ 5570804936418322777 ] [
    T{ blum-blum-shub f 590695557939 811977232793 } clone [
        64 random-bits
        little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless