Fix blum blum shub unit tests on big endian
parent
347eba475b
commit
305b8e6138
|
@ -1,27 +1,29 @@
|
||||||
USING: kernel math tools.test namespaces random
|
USING: kernel math tools.test namespaces random
|
||||||
random.blum-blum-shub ;
|
random.blum-blum-shub alien.c-types sequences splitting ;
|
||||||
IN: blum-blum-shub.tests
|
IN: blum-blum-shub.tests
|
||||||
|
|
||||||
[ 887708070 ] [
|
[ 887708070 ] [
|
||||||
T{ blum-blum-shub f 590695557939 811977232793 } random-32*
|
T{ blum-blum-shub f 590695557939 811977232793 } clone random-32*
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
|
|
||||||
[ 887708070 ] [
|
[ 887708070 ] [
|
||||||
T{ blum-blum-shub f 590695557939 811977232793 } [
|
T{ blum-blum-shub f 590695557939 811977232793 } clone [
|
||||||
32 random-bits
|
32 random-bits
|
||||||
|
little-endian? [ <uint> reverse *uint ] unless
|
||||||
] with-random
|
] with-random
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ 5726770047455156646 ] [
|
[ 5726770047455156646 ] [
|
||||||
T{ blum-blum-shub f 590695557939 811977232793 } [
|
T{ blum-blum-shub f 590695557939 811977232793 } clone [
|
||||||
64 random-bits
|
64 random-bits
|
||||||
|
little-endian? [ <ulonglong> 4 group [ reverse ] map concat *ulonglong ] unless
|
||||||
] with-random
|
] with-random
|
||||||
] unit-test
|
] unit-test
|
||||||
|
|
||||||
[ 3716213681 ]
|
[ 3716213681 ]
|
||||||
[
|
[
|
||||||
100 T{ blum-blum-shub f 200352954495 846054538649 } tuck [
|
100 T{ blum-blum-shub f 200352954495 846054538649 } clone tuck [
|
||||||
random-32* drop
|
random-32* drop
|
||||||
] curry times
|
] curry times
|
||||||
random-32*
|
random-32*
|
||||||
|
|
Loading…
Reference in New Issue