Merge branch 'master' of git://factorcode.org/git/factor
commit
afce3ffd92
|
@ -22,6 +22,7 @@ IN: math.functions.tests
|
|||
[ t ] [ e pi i* ^ imaginary-part -0.00001 0.00001 between? ] unit-test
|
||||
|
||||
[ t ] [ 0 0 ^ fp-nan? ] unit-test
|
||||
[ 0.0 ] [ 0.0 1.0 ^ ] unit-test
|
||||
[ 1/0. ] [ 0 -2 ^ ] unit-test
|
||||
[ t ] [ 0 0.0 ^ fp-nan? ] unit-test
|
||||
[ 1/0. ] [ 0 -2.0 ^ ] unit-test
|
||||
|
@ -162,4 +163,4 @@ IN: math.functions.tests
|
|||
[ 2.5 ] [ 1.0 2.5 1.0 lerp ] unit-test
|
||||
[ 1.75 ] [ 1.0 2.5 0.5 lerp ] unit-test
|
||||
|
||||
[ C{ 1 2 } ] [ C{ 1 2 } 1 ^ ] unit-test
|
||||
[ C{ 1 2 } ] [ C{ 1 2 } 1 ^ ] unit-test
|
||||
|
|
|
@ -89,7 +89,7 @@ PRIVATE>
|
|||
|
||||
: ^ ( x y -- z )
|
||||
{
|
||||
{ [ over zero? ] [ nip 0^ ] }
|
||||
{ [ over 0 = ] [ nip 0^ ] }
|
||||
{ [ dup integer? ] [ integer^ ] }
|
||||
{ [ 2dup real^? ] [ fpow ] }
|
||||
[ ^complex ]
|
||||
|
|
|
@ -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 <fp-nan> 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" }
|
||||
|
|
Loading…
Reference in New Issue