basis/specialized-vectors/specialized-vectors-tests.factor

   1 IN: specialized-vectors.tests
   2 USING: specialized-arrays specialized-vectors
   3 tools.test kernel sequences alien.c-types ;
   4 SPECIALIZED-ARRAY: float
   5 SPECIALIZED-VECTORS: float double ;
   6
   7 [ 3 ] [ double-vector{ 1 2 } 3 suffix! length ] unit-test
   8
   9 [ t ] [ 10 float-array{ } new-resizable float-vector? ] unit-test