steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/bitstreams/bitstreams-tests.factor

55 lines
1.2 KiB
Factor
Raw Normal View History

initial bitstreams checkin
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
new bitstream api works, refactor time
2009-02-12 23:10:32 -05:00
grouping compression.lzw multiline byte-arrays io.encodings.binary
io.streams.byte-array ;
initial bitstreams checkin
2009-02-12 18:44:43 -05:00
IN: bitstreams.tests
use radix literals
2011-11-23 21:49:33 -05:00
[ 0b1111111111 ]
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
[
use radix literals
2011-11-23 21:49:33 -05:00
B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
2 >>byte-pos 6 >>bit-pos
10 swap peek
] unit-test
initial bitstreams checkin
2009-02-12 18:44:43 -05:00
use radix literals
2011-11-23 21:49:33 -05:00
[ 0b111111111 ]
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
[
use radix literals
2011-11-23 21:49:33 -05:00
B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
2 >>byte-pos 6 >>bit-pos
9 swap peek
] unit-test
use radix literals
2011-11-23 21:49:33 -05:00
[ 0b11111111 ]
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
[
use radix literals
2011-11-23 21:49:33 -05:00
B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
2 >>byte-pos 6 >>bit-pos
8 swap peek
] unit-test
use radix literals
2011-11-23 21:49:33 -05:00
[ 0b1111111 ]
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
[
use radix literals
2011-11-23 21:49:33 -05:00
B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
2 >>byte-pos 6 >>bit-pos
7 swap peek
] unit-test
use radix literals
2011-11-23 21:49:33 -05:00
[ 0b111111 ]
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
[
use radix literals
2011-11-23 21:49:33 -05:00
B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
2 >>byte-pos 6 >>bit-pos
6 swap peek
] unit-test
initial bitstreams checkin
2009-02-12 18:44:43 -05:00
use radix literals
2011-11-23 21:49:33 -05:00
[ 0b11111 ]
initial bitstreams checkin
2009-02-12 18:44:43 -05:00
[
use radix literals
2011-11-23 21:49:33 -05:00
B{ 0x0f 0xff 0xff 0xff } <msb0-bit-reader>
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
2 >>byte-pos 6 >>bit-pos
5 swap peek
initial bitstreams checkin
2009-02-12 18:44:43 -05:00
] unit-test
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
[ B{ } <msb0-bit-reader> 5 swap peek ] must-fail
[ B{ } <msb0-bit-reader> 1 swap peek ] must-fail
[ B{ } <msb0-bit-reader> 8 swap peek ] must-fail
initial bitstreams checkin
2009-02-12 18:44:43 -05:00
remove all the compress code from lzw until it works, fix bitstreams
2009-05-15 00:33:00 -04:00
[ 0 ] [ B{ } <msb0-bit-reader> 0 swap peek ] unit-test