2008-12-08 14:58:57 -05:00
|
|
|
IN: byte-vectors.tests
|
|
|
|
|
USING: tools.test byte-vectors vectors sequences kernel
|
|
|
|
|
prettyprint ;
|
|
|
|
|
|
|
|
|
|
[ 0 ] [ 123 <byte-vector> length ] unit-test
|
|
|
|
|
|
2009-03-23 01:34:02 -04:00
|
|
|
: do-it ( seq -- seq )
|
2008-12-08 14:58:57 -05:00
|
|
|
123 [ over push ] each ;
|
|
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
3 <byte-vector> do-it
|
|
|
|
|
3 <vector> do-it sequence=
|
|
|
|
|
] unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [ BV{ } byte-vector? ] unit-test
|
|
|
|
|
|
|
|
|
|
[ "BV{ }" ] [ BV{ } unparse ] unit-test
|
