From 226c76aa1fd5b1115742462d035f640896af75a2 Mon Sep 17 00:00:00 2001 From: Joe Groff Date: Thu, 11 Jun 2009 18:00:01 -0500 Subject: [PATCH] stop playing fast and loose with NaN representations in half-floats tests --- extra/half-floats/half-floats-tests.factor | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/extra/half-floats/half-floats-tests.factor b/extra/half-floats/half-floats-tests.factor index 15ad53d611..d026ca2933 100644 --- a/extra/half-floats/half-floats-tests.factor +++ b/extra/half-floats/half-floats-tests.factor @@ -1,4 +1,4 @@ -USING: alien.c-types alien.syntax half-floats kernel tools.test ; +USING: alien.c-types alien.syntax half-floats kernel math tools.test ; IN: half-floats.tests [ HEX: 0000 ] [ 0.0 half>bits ] unit-test @@ -7,7 +7,7 @@ IN: half-floats.tests [ HEX: be00 ] [ -1.5 half>bits ] unit-test [ HEX: 7c00 ] [ 1/0. half>bits ] unit-test [ HEX: fc00 ] [ -1/0. half>bits ] unit-test -[ HEX: fe00 ] [ 0/0. half>bits ] unit-test +[ HEX: 7eaa ] [ HEX: aaaaaaaaaaaaa half>bits ] unit-test ! too-big floats overflow to infinity [ HEX: 7c00 ] [ 65536.0 half>bits ] unit-test @@ -25,7 +25,7 @@ IN: half-floats.tests [ -1.5 ] [ HEX: be00 bits>half ] unit-test [ 1/0. ] [ HEX: 7c00 bits>half ] unit-test [ -1/0. ] [ HEX: fc00 bits>half ] unit-test -[ 0/0. ] [ HEX: 7e00 bits>half ] unit-test +[ t ] [ HEX: 7e00 bits>half fp-nan? ] unit-test C-STRUCT: halves { "half" "tom" }