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

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