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

tools.image-analyzer.gc-info.tests: the test for scrub-bits was 

completey baked, remove it
db4
Björn Lindqvist 2015-07-13 00:54:48 +02:00 committed by John Benediktsson
parent d3a6fa85e5
commit a5fbd7e3f8
1 changed files with 1 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
extra/tools/image-analyzer/gc-info/gc-info-tests.factor
View File

@ -22,11 +22,6 @@ QUALIFIED: opencl
gc-info read-struct-safe gc-info read-struct-safe
] with-input-stream ; ] 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>gc-maps ( cfg -- gc-maps )
cfg>insns [ gc-map-insn? ] filter [ gc-map>> ] map cfg>insns [ gc-map-insn? ] filter [ gc-map>> ] map
[ gc-map-needed? ] filter ; [ 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 { ?{ t t t t t t t t } } [ B{ 255 } byte-array>bit-array ] unit-test
! scrub-bits ! word>gc-maps
{
{ { ?{ } ?{ } ?{ f f f f f } } }
} [
\ word>scrub-bits word>scrub-bits
] unit-test
! decode-gc-maps
{ f } [ { f } [
\ effects:<effect> word>gc-maps empty? \ effects:<effect> word>gc-maps empty?
] unit-test ] unit-test