1 ! Copyright (C) 2009 Doug Coleman.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors bitstreams kernel tools.test ;
7 B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
8 2 >>byte-pos 6 >>bit-pos
14 B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
15 2 >>byte-pos 6 >>bit-pos
21 B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
22 2 >>byte-pos 6 >>bit-pos
28 B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
29 2 >>byte-pos 6 >>bit-pos
35 B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
36 2 >>byte-pos 6 >>bit-pos
42 B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
43 2 >>byte-pos 6 >>bit-pos
47 [ B{ } <msb0-bit-reader> 5 swap peek ] must-fail
48 [ B{ } <msb0-bit-reader> 1 swap peek ] must-fail
49 [ B{ } <msb0-bit-reader> 8 swap peek ] must-fail
51 { 0 } [ B{ } <msb0-bit-reader> 0 swap peek ] unit-test