steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix tests

db4
Slava Pestov 2008-04-29 03:59:41 -05:00
parent d146601fdb
commit ee46527023
1 changed files with 3 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
core/math/integers/integers-tests.factor
View File

@ -192,6 +192,8 @@ unit-test
[ f ] [ 0 power-of-2? ] unit-test [ f ] [ 0 power-of-2? ] unit-test
[ t ] [ 1 power-of-2? ] unit-test [ t ] [ 1 power-of-2? ] unit-test
: ratio>float [ >bignum ] bi@ /f ;
[ 5. ] [ 5 1 ratio>float ] unit-test [ 5. ] [ 5 1 ratio>float ] unit-test
[ 4. ] [ 4 1 ratio>float ] unit-test [ 4. ] [ 4 1 ratio>float ] unit-test
[ 2. ] [ 2 1 ratio>float ] unit-test [ 2. ] [ 2 1 ratio>float ] unit-test
@ -214,6 +216,6 @@ unit-test
drop drop
random-integer random-integer
random-integer random-integer
[ >float / ] [ ratio>float ] 2bi 0.1 ~ [ >float / ] [ /f ] 2bi 0.1 ~
] all? ] all?
] unit-test ] unit-test