core/byte-vectors/byte-vectors-tests.factor

   1 USING: tools.test byte-vectors vectors sequences kernel\r
   2 prettyprint ;\r
   3 IN: byte-vectors.tests\r
   4 \r
   5 [ 0 ] [ 123 <byte-vector> length ] unit-test\r
   6 \r
   7 : do-it ( seq -- seq )\r
   8     123 [ over push ] each ;\r
   9 \r
  10 [ t ] [\r
  11     3 <byte-vector> do-it\r
  12     3 <vector> do-it sequence=\r
  13 ] unit-test\r
  14 \r
  15 [ t ] [ BV{ } byte-vector? ] unit-test\r
  16 \r
  17 [ "BV{ }" ] [ BV{ } unparse ] unit-test\r