2008-09-02 17:03:38 -04:00
|
|
|
USING: tools.test float-vectors vectors sequences kernel math ;
|
2008-03-01 17:00:45 -05:00
|
|
|
IN: float-vectors.tests
|
2008-01-29 16:04:26 -05:00
|
|
|
|
|
|
|
|
[ 0 ] [ 123 <float-vector> length ] unit-test
|
|
|
|
|
|
|
|
|
|
: do-it
|
2008-09-02 17:03:38 -04:00
|
|
|
12345 [ >float over push ] each ;
|
2008-01-29 16:04:26 -05:00
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
3 <float-vector> do-it
|
|
|
|
|
3 <vector> do-it sequence=
|
|
|
|
|
] unit-test
|
2008-01-30 02:10:58 -05:00
|
|
|
|
|
|
|
|
[ t ] [ FV{ } float-vector? ] unit-test
|
