+USING: tools.test byte-vectors vectors sequences kernel\r
+prettyprint ;\r
IN: byte-vectors.tests\r
-USING: tools.test byte-vectors vectors sequences kernel ;\r
\r
[ 0 ] [ 123 <byte-vector> length ] unit-test\r
\r
-: do-it\r
+: do-it ( seq -- seq )\r
123 [ over push ] each ;\r
\r
[ t ] [\r
] unit-test\r
\r
[ t ] [ BV{ } byte-vector? ] unit-test\r
+\r
+[ "BV{ }" ] [ BV{ } unparse ] unit-test\r