core/io/streams/byte-array/byte-array-tests.factor

   1 USING: tools.test io.streams.byte-array io.encodings.binary
   2 io.encodings.utf8 io kernel arrays strings namespaces math
   3 specialized-arrays alien.c-types ;
   4 SPECIALIZED-ARRAY: int
   5 IN: io.streams.byte-array.tests
   6
   7 [ B{ } ] [ B{ } binary [ contents ] with-byte-reader ] unit-test
   8 [ B{ 1 2 3 } ] [ binary [ B{ 1 2 3 } write ] with-byte-writer ] unit-test
   9 [ B{ 1 2 3 4 5 6 } ] [ binary [ B{ 1 2 3 } write B{ 4 5 6 } write ] with-byte-writer ] unit-test
  10 [ B{ 1 2 3 } ] [ { 1 2 3 } binary [ 3 read ] with-byte-reader ] unit-test
  11
  12 [ B{ BIN: 11110101 BIN: 10111111 BIN: 10000000 BIN: 10111111 BIN: 11101111 BIN: 10000000 BIN: 10111111 BIN: 11011111 BIN: 10000000 CHAR: x } ]
  13 [ { BIN: 101111111000000111111 BIN: 1111000000111111 BIN: 11111000000 CHAR: x } >string utf8 [ write ] with-byte-writer ] unit-test
  14 [ { BIN: 101111111000000111111 } t ] [ { BIN: 11110101 BIN: 10111111 BIN: 10000000 BIN: 10111111 } utf8 <byte-reader> stream-contents dup >array swap string? ] unit-test
  15
  16 [ B{ 121 120 } 0 ] [
  17     B{ 0 121 120 0 0 0 0 0 0 } binary
  18     [ 1 read drop "\0" read-until ] with-byte-reader
  19 ] unit-test
  20
  21 [ 1 1 4 11 f ] [
  22     B{ 1 2 3 4 5 6 7 8 9 10 11 12 } binary
  23     [
  24         read1
  25         0 seek-absolute input-stream get stream-seek
  26         read1
  27         2 seek-relative input-stream get stream-seek
  28         read1
  29         -2 seek-end input-stream get stream-seek
  30         read1
  31         0 seek-end input-stream get stream-seek
  32         read1
  33     ] with-byte-reader
  34 ] unit-test
  35
  36 [ 0 ] [
  37     B{ 1 2 3 4 5 6 7 8 9 10 11 12 } binary [ tell-input ] with-byte-reader
  38 ] unit-test
  39
  40 ! Overly aggressive compiler optimizations
  41 [ B{ 123 } ] [
  42     binary [ 123 >bignum write1 ] with-byte-writer
  43 ] unit-test
  44
  45 ! Writing specialized arrays to byte writers
  46 [ int-array{ 1 2 3 } ] [
  47     binary [ int-array{ 1 2 3 } write ] with-byte-writer
  48     byte-array>int-array
  49 ] unit-test