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 700efbb6f2eaf7a016678dbfdcc474ad9e3f9f91..d5a178ed992c9f776f7e775b14d49f527145b342 100644 (file)
--- 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