2009-02-12 18:44:43 -05:00
|
|
|
! Copyright (C) 2009 Doug Coleman.
|
|
|
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
|
|
|
USING: accessors bitstreams io io.streams.string kernel tools.test
|
2009-02-12 23:10:32 -05:00
|
|
|
grouping compression.lzw multiline byte-arrays io.encodings.binary
|
|
|
|
|
io.streams.byte-array ;
|
2009-02-12 18:44:43 -05:00
|
|
|
IN: bitstreams.tests
|
|
|
|
|
|
2009-02-12 23:10:32 -05:00
|
|
|
[ 1 t ]
|
2009-03-07 16:58:14 -05:00
|
|
|
[ B{ 254 } binary <byte-reader> <bitstream-reader> read-bit ] unit-test
|
2009-02-12 18:44:43 -05:00
|
|
|
|
2009-02-12 23:10:32 -05:00
|
|
|
[ 254 8 t ]
|
2009-03-07 16:58:14 -05:00
|
|
|
[ B{ 254 } binary <byte-reader> <bitstream-reader> 8 swap read-bits ] unit-test
|
2009-02-12 18:44:43 -05:00
|
|
|
|
2009-02-12 23:10:32 -05:00
|
|
|
[ 4095 12 t ]
|
2009-03-07 16:58:14 -05:00
|
|
|
[ B{ 255 255 } binary <byte-reader> <bitstream-reader> 12 swap read-bits ] unit-test
|
2009-02-12 18:44:43 -05:00
|
|
|
|
|
|
|
|
[ B{ 254 } ]
|
|
|
|
|
[
|
2009-03-07 16:58:14 -05:00
|
|
|
binary <byte-writer> <bitstream-writer> 254 8 rot
|
2009-02-12 23:10:32 -05:00
|
|
|
[ write-bits ] keep stream>> >byte-array
|
2009-02-12 18:44:43 -05:00
|
|
|
] unit-test
|
|
|
|
|
|
2009-02-12 23:10:32 -05:00
|
|
|
[ 255 8 t ]
|
|
|
|
|
[ B{ 255 } binary <byte-reader> <bitstream-reader> 8 swap read-bits ] unit-test
|
2009-02-12 18:44:43 -05:00
|
|
|
|
2009-02-12 23:10:32 -05:00
|
|
|
[ 255 8 f ]
|
|
|
|
|
[ B{ 255 } binary <byte-reader> <bitstream-reader> 9 swap read-bits ] unit-test
|
