]> gitweb.factorcode.org Git - factor.git/blob - basis/float-arrays/float-arrays-tests.factor
Fix permission bits
[factor.git] / basis / float-arrays / float-arrays-tests.factor
1 IN: float-arrays.tests
2 USING: float-arrays tools.test sequences.private ;
3
4 [ F{ 0.0 0.0 0.0 } ] [ 3 <float-array> ] unit-test
5
6 [ F{ 1 2 3 0 0 0 } ] [ 6 F{ 1 2 3 } resize ] unit-test
7
8 [ F{ 1 2 } ] [ 2 F{ 1 2 3 4 5 6 7 8 9 } resize ] unit-test
9
10 [ -10 F{ } resize ] must-fail
11
12 [ F{ 1.3 } ] [ 1.3 1float-array ] unit-test