diff --git a/basis/specialized-arrays/specialized-arrays-tests.factor b/basis/specialized-arrays/specialized-arrays-tests.factor index 07a457db5c..1ee8776085 100755 --- a/basis/specialized-arrays/specialized-arrays-tests.factor +++ b/basis/specialized-arrays/specialized-arrays-tests.factor @@ -36,6 +36,9 @@ SPECIALIZED-ARRAYS: bool ushort char uint float ulonglong ; int-array{ 3 1 3 3 7 } malloc-byte-array 5 >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