add unit test that doubles stored in single-precision float arrays round to nearest

db4
Joe Groff 2009-10-17 00:07:08 -05:00
parent fae924ece3
commit ac51237853
1 changed files with 3 additions and 0 deletions

View File

@ -36,6 +36,9 @@ SPECIALIZED-ARRAYS: bool ushort char uint float ulonglong ;
int-array{ 3 1 3 3 7 } malloc-byte-array 5 <direct-int-array> >array
] unit-test
[ float-array{ HEX: 1.222,222 HEX: 1.111,112 } ]
[ float-array{ HEX: 1.222,222,2 HEX: 1.111,111,1 } ] unit-test
[ f ] [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] unit-test
[ f ] [ [ float-array{ 4 3 2 1 } dup clone [ underlying>> ] bi@ eq? ] compile-call ] unit-test