From: Björn Lindqvist <bjourne@gmail.com>
Date: Sun, 12 Jul 2015 22:54:48 +0000 (+0200)
Subject: tools.image-analyzer.gc-info.tests: the test for scrub-bits was
X-Git-Tag: unmaintained~2475
X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=commitdiff_plain;h=a5fbd7e3f89b1f09bd03312aababefb440db99a6

tools.image-analyzer.gc-info.tests: the test for scrub-bits was
completey baked, remove it
---

diff --git a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
index 700efbb6f2..d5a178ed99 100644
--- a/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
+++ b/extra/tools/image-analyzer/gc-info/gc-info-tests.factor
@@ -22,11 +22,6 @@ QUALIFIED: opencl
         gc-info read-struct-safe
     ] with-input-stream ;
 
-: word>scrub-bits ( word -- bits )
-    word>byte-array binary <byte-reader> <backwards-reader> [
-        gc-info read-struct-safe scrub-bits
-    ] with-input-stream ;
-
 : cfg>gc-maps ( cfg -- gc-maps )
     cfg>insns [ gc-map-insn? ] filter [ gc-map>> ] map
     [ gc-map-needed? ] filter ;
@@ -72,14 +67,7 @@ QUALIFIED: opencl
 
 { ?{ t t t t t t t t } } [ B{ 255 } byte-array>bit-array ] unit-test
 
-! scrub-bits
-{
-    { { ?{ } ?{ } ?{ f f f f f } } }
-} [
-    \ word>scrub-bits word>scrub-bits
-] unit-test
-
-! decode-gc-maps
+! word>gc-maps
 { f } [
     \ effects:<effect> word>gc-maps empty?
 ] unit-test