fix test
parent
56a1e8d044
commit
edd5071556
|
@ -1,10 +1,10 @@
|
||||||
|
USING: tools.test float-vectors vectors sequences kernel math ;
|
||||||
IN: float-vectors.tests
|
IN: float-vectors.tests
|
||||||
USING: tools.test float-vectors vectors sequences kernel ;
|
|
||||||
|
|
||||||
[ 0 ] [ 123 <float-vector> length ] unit-test
|
[ 0 ] [ 123 <float-vector> length ] unit-test
|
||||||
|
|
||||||
: do-it
|
: do-it
|
||||||
12345 [ over push ] each ;
|
12345 [ >float over push ] each ;
|
||||||
|
|
||||||
[ t ] [
|
[ t ] [
|
||||||
3 <float-vector> do-it
|
3 <float-vector> do-it
|
||||||
|
|
Loading…
Reference in New Issue