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