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

change math.floats.env tests not to use any libm functions, which don't reliably set the right hardware exceptions on linux glibc

db4
Joe Groff 2009-09-09 18:00:38 -05:00
parent 01b5430fbf
commit 3d49cc5a0d
1 changed files with 6 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
basis/math/floats/env/env-tests.factor vendored
View File

@ -1,5 +1,5 @@
USING: kernel math math.floats.env math.floats.env.private USING: kernel math math.floats.env math.floats.env.private
math.functions math.libm sets tools.test ; math.functions math.libm sets sequences tools.test ;
IN: math.floats.env.tests IN: math.floats.env.tests
: set-default-fp-env ( -- ) : set-default-fp-env ( -- )
@ -19,17 +19,17 @@ set-default-fp-env
] unit-test ] unit-test
[ t ] [ [ t ] [
[ 2.0 100,000.0 ^ drop ] collect-fp-exceptions [ 1.0e250 1.0e100 * drop ] collect-fp-exceptions
{ +fp-inexact+ +fp-overflow+ } set= +fp-overflow+ swap member?
] unit-test ] unit-test
[ t ] [ [ t ] [
[ 2.0 -100,000.0 ^ drop ] collect-fp-exceptions [ 1.0e-250 1.0e-100 * drop ] collect-fp-exceptions
{ +fp-inexact+ +fp-underflow+ } set= +fp-underflow+ swap member?
] unit-test ] unit-test
[ t ] [ [ t ] [
[ -1.0 fsqrt drop ] collect-fp-exceptions [ 0.0 0.0 /f drop ] collect-fp-exceptions
{ +fp-invalid-operation+ } set= { +fp-invalid-operation+ } set=
] unit-test ] unit-test