steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Merge branch 'master' of git://factorcode.org/git/factor

db4
Daniel Ehrenberg 2009-02-12 22:00:09 -06:00
parent d09567e31e 127ff76c08
commit 1a7e4b6576
2 changed files with 2 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/bitstreams/bitstreams-tests.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2009 Doug Coleman. ! Copyright (C) 2009 Doug Coleman.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors bitstreams io io.streams.string kernel tools.test USING: accessors bitstreams io io.streams.string kernel tools.test
grouping compression.lzw multiline ; grouping compression.lzw multiline byte-arrays ;
IN: bitstreams.tests IN: bitstreams.tests
[ 1 ] [ 1 ]
@ -16,7 +16,7 @@ IN: bitstreams.tests
[ B{ 254 } ] [ B{ 254 } ]
[ [
<string-writer> <bitstream-writer> 254 8 rot <string-writer> <bitstream-writer> 254 8 rot
[ write-bits ] keep stream>> >byte-array [ write-bits ] keep output>> >byte-array
] unit-test ] unit-test

6
basis/compression/lzw/lzw-tests.factor
View File

@ -2,9 +2,3 @@
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors tools.test compression.lzw ; USING: accessors tools.test compression.lzw ;
IN: compression.lzw.tests IN: compression.lzw.tests
[ V{ 7 258 8 8 258 6 } ]
[ B{ 7 7 7 8 8 7 7 6 6 } lzw-compress output>> ] unit-test
[ B{ 7 7 7 8 8 7 7 6 6 } ]
[ V{ 7 258 8 8 258 6 } lzw-uncompress output>> ] unit-test