basis/compiler/cfg/cfg-tests.factor

   1 USING: accessors combinators compiler.cfg kernel layouts tools.test ;
   2 IN: compiler.cfg.tests
   3
   4 {
   5     "word"
   6     "label"
   7     0
   8     t
   9 } [
  10     "word" "label" <basic-block> <cfg>
  11     {
  12         [ word>> ]
  13         [ label>> ]
  14         [
  15             stack-frame>>
  16             [ spill-area-size>> ]
  17             [ spill-area-align>> cell = ] bi
  18         ]
  19     } cleave
  20 ] unit-test