diff --git a/basis/math/floats/env/env-tests.factor b/basis/math/floats/env/env-tests.factor index 905e83dbdb..08a7621e88 100644 --- a/basis/math/floats/env/env-tests.factor +++ b/basis/math/floats/env/env-tests.factor @@ -102,31 +102,6 @@ set-default-fp-env -1.0 3.0 /f double>bits ] 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-inexact+ } [ 1.0 3.0 /f ] 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 [ 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 set-default-fp-env