From 81d0f52e32d96b5d699608f9332d8d3010252d95 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 12 Feb 2009 21:43:25 -0600 Subject: [PATCH 1/2] remove bad lzw tests, real tests still to come.. --- basis/compression/lzw/lzw-tests.factor | 6 ------ 1 file changed, 6 deletions(-) diff --git a/basis/compression/lzw/lzw-tests.factor b/basis/compression/lzw/lzw-tests.factor index 6cb41b97a0..698e35d87e 100644 --- a/basis/compression/lzw/lzw-tests.factor +++ b/basis/compression/lzw/lzw-tests.factor @@ -2,9 +2,3 @@ ! See http://factorcode.org/license.txt for BSD license. USING: accessors tools.test compression.lzw ; 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 From 127ff76c085959ae0e4284016643894d7550d0b7 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Thu, 12 Feb 2009 21:45:34 -0600 Subject: [PATCH 2/2] add using --- basis/bitstreams/bitstreams-tests.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/bitstreams/bitstreams-tests.factor b/basis/bitstreams/bitstreams-tests.factor index 8fac3f52f9..2aadf7b02d 100644 --- a/basis/bitstreams/bitstreams-tests.factor +++ b/basis/bitstreams/bitstreams-tests.factor @@ -1,7 +1,7 @@ ! 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 ; +grouping compression.lzw multiline byte-arrays ; IN: bitstreams.tests [ 1 ] @@ -16,7 +16,7 @@ IN: bitstreams.tests [ B{ 254 } ] [ 254 8 rot - [ write-bits ] keep stream>> >byte-array + [ write-bits ] keep output>> >byte-array ] unit-test