32 lines
753 B
Factor
32 lines
753 B
Factor
! Copyright (C) 2009 Doug Coleman.
|
|
! See http://factorcode.org/license.txt for BSD license.
|
|
USING: accessors bitstreams io io.streams.string kernel tools.test
|
|
grouping compression.lzw multiline byte-arrays ;
|
|
IN: bitstreams.tests
|
|
|
|
[ 1 ]
|
|
[ B{ 254 } <string-reader> <bitstream-reader> read-bit ] unit-test
|
|
|
|
[ 254 ]
|
|
[ B{ 254 } <string-reader> <bitstream-reader> 8 swap read-bits ] unit-test
|
|
|
|
[ 4095 ]
|
|
[ B{ 255 255 } <string-reader> <bitstream-reader> 12 swap read-bits ] unit-test
|
|
|
|
[ B{ 254 } ]
|
|
[
|
|
<string-writer> <bitstream-writer> 254 8 rot
|
|
[ write-bits ] keep output>> >byte-array
|
|
] unit-test
|
|
|
|
|
|
/*
|
|
[
|
|
|
|
] [
|
|
B{ 7 7 7 8 8 7 7 9 7 }
|
|
[ byte-array>bignum >bin 72 CHAR: 0 pad-head 9 group [ bin> ] map ]
|
|
[ lzw-compress ] bi
|
|
] unit-test
|
|
*/
|