extra/tools/image-analyzer/image-analyzer-tests.factor

   1 USING: accessors bootstrap.image fry grouping io.files io.pathnames kernel
   2 sequences system tools.deploy.backend tools.image-analyzer tools.test ;
   3 IN: tools.image-analyzer.tests
   4
   5 : ?make-image ( arch -- )
   6     dup boot-image-name resource-path exists? [ drop ] [ make-image ] if ;
   7
   8 : loadable-images ( -- images )
   9     images cpu name>> '[ _ tail? ] filter ;
  10
  11 { t } [
  12     loadable-images [ [ ?make-image ] each ] [
  13         [
  14             boot-image-name resource-path load-image 2drop code-size>>
  15         ] map [ 0 = ] all?
  16     ] bi
  17 ] unit-test