X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fmath%2Ffunctions%2Ffunctions-tests.factor;h=c7646db228013d9d784b0d96812f49c49fe80dcf;hp=edd66f9b83534a638f23e16d93a0f0dc0417deb3;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24 diff --git a/basis/math/functions/functions-tests.factor b/basis/math/functions/functions-tests.factor index edd66f9b83..c7646db228 100644 --- a/basis/math/functions/functions-tests.factor +++ b/basis/math/functions/functions-tests.factor @@ -27,7 +27,7 @@ IN: math.functions.tests [ t ] [ e pi i* ^ imaginary-part -0.00001 0.00001 between? ] unit-test [ 1/0. ] [ 2.0 1024 ^ ] unit-test -[ HEX: 1.0p-1024 ] [ 2.0 -1024 ^ ] unit-test +[ 0x1.0p-1024 ] [ 2.0 -1024 ^ ] unit-test [ t ] [ 0 0 ^ fp-nan? ] unit-test [ 0.0 ] [ 0.0 1.0 ^ ] unit-test @@ -59,8 +59,8 @@ IN: math.functions.tests [ 0.0 ] [ 1.0 log ] unit-test [ 1.0 ] [ e log ] unit-test -CONSTANT: log-factorial-1000 HEX: 1.71820d04e2eb6p12 -CONSTANT: log10-factorial-1000 HEX: 1.40f3593ed6f8ep11 +CONSTANT: log-factorial-1000 0x1.71820d04e2eb6p12 +CONSTANT: log10-factorial-1000 0x1.40f3593ed6f8ep11 [ $ log-factorial-1000 t ] [ 1000 factorial [ log ] [ bignum? ] bi ] unit-test [ C{ $ log-factorial-1000 $ pi } t ] [ 1000 factorial neg [ log ] [ bignum? ] bi ] unit-test