1 USING: tools.test float-vectors vectors sequences kernel math ;
\r
2 IN: float-vectors.tests
\r
4 [ 0 ] [ 123 <float-vector> length ] unit-test
\r
7 12345 [ >float over push ] each ;
\r
10 3 <float-vector> do-it
\r
11 3 <vector> do-it sequence=
\r
14 [ t ] [ FV{ } float-vector? ] unit-test
\r