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

add some tests to help track down leaks in FP state changes

db4
Joe Groff 2009-09-08 23:07:33 -05:00
parent 0e2a3e4292
commit 1c62a978d0
1 changed files with 5 additions and 25 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -102,31 +102,6 @@ set-default-fp-env
-1.0 3.0 /f double>bits -1.0 3.0 /f double>bits
] unit-test ] unit-test
[
HEX: 0000,0000,0000,07e8
] [
+denormal-keep+ [
10.0 -320.0 ^ double>bits
] with-denormal-mode
] unit-test
[
HEX: 0000,0000,0000,0000
] [
+denormal-flush+ [
10.0 -320.0 ^ double>bits
] with-denormal-mode
] unit-test
! ensure denormal mode is restored to +denormal-keep+
[
HEX: 0000,0000,0000,07e8
] [
+denormal-keep+ [
10.0 -320.0 ^ double>bits
] with-denormal-mode
] unit-test
[ { +fp-zero-divide+ } [ 1.0 0.0 /f ] with-fp-traps ] must-fail [ { +fp-zero-divide+ } [ 1.0 0.0 /f ] with-fp-traps ] must-fail
[ { +fp-inexact+ } [ 1.0 3.0 /f ] with-fp-traps ] must-fail [ { +fp-inexact+ } [ 1.0 3.0 /f ] with-fp-traps ] must-fail
[ { +fp-invalid-operation+ } [ -1.0 fsqrt ] with-fp-traps ] must-fail [ { +fp-invalid-operation+ } [ -1.0 fsqrt ] with-fp-traps ] must-fail
@ -136,6 +111,11 @@ set-default-fp-env
! Ensure traps get cleared ! Ensure traps get cleared
[ 1/0. ] [ 1.0 0.0 /f ] unit-test [ 1/0. ] [ 1.0 0.0 /f ] unit-test
! Ensure state is back to normal
[ +round-nearest+ ] [ rounding-mode ] unit-test
[ +denormal-keep+ ] [ denormal-mode ] unit-test
[ { } ] [ fp-traps ] unit-test
! In case the tests screw up the FP env because of bugs in math.floats.env ! In case the tests screw up the FP env because of bugs in math.floats.env
set-default-fp-env set-default-fp-env