basis/bitstreams/bitstreams-tests.factor

   1 ! Copyright (C) 2009 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for BSD license.
   3 USING: accessors bitstreams io io.streams.string kernel tools.test
   4 grouping compression.lzw multiline byte-arrays io.encodings.binary
   5 io.streams.byte-array ;
   6 IN: bitstreams.tests
   7
   8 [ BIN: 1111111111 ]
   9 [
  10     B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
  11     2 >>byte-pos 6 >>bit-pos
  12     10 swap peek
  13 ] unit-test
  14
  15 [ BIN: 111111111 ]
  16 [
  17     B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
  18     2 >>byte-pos 6 >>bit-pos
  19     9 swap peek
  20 ] unit-test
  21
  22 [ BIN: 11111111 ]
  23 [
  24     B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
  25     2 >>byte-pos 6 >>bit-pos
  26     8 swap peek
  27 ] unit-test
  28
  29 [ BIN: 1111111 ]
  30 [
  31     B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
  32     2 >>byte-pos 6 >>bit-pos
  33     7 swap peek
  34 ] unit-test
  35
  36 [ BIN: 111111 ]
  37 [
  38     B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
  39     2 >>byte-pos 6 >>bit-pos
  40     6 swap peek
  41 ] unit-test
  42
  43 [ BIN: 11111 ]
  44 [
  45     B{ HEX: 0f HEX: ff HEX: ff HEX: ff } <msb0-bit-reader>
  46     2 >>byte-pos 6 >>bit-pos
  47     5 swap peek
  48 ] unit-test
  49
  50 [ B{ } <msb0-bit-reader> 5 swap peek ] must-fail
  51 [ B{ } <msb0-bit-reader> 1 swap peek ] must-fail
  52 [ B{ } <msb0-bit-reader> 8 swap peek ] must-fail
  53
  54 [ 0 ] [ B{ } <msb0-bit-reader> 0 swap peek ] unit-test