basis/compiler/tree/escape-analysis/check/check-tests.factor

   1 USING: compiler.tree.escape-analysis.check tools.test accessors kernel
   2 kernel.private math compiler.tree.builder compiler.tree.normalization
   3 compiler.tree.propagation compiler.tree.cleanup ;
   4 IN: compiler.tree.escape-analysis.check.tests
   5
   6 : test-checker ( quot -- ? )
   7     build-tree normalize propagate cleanup run-escape-analysis? ;
   8
   9 [ t ] [
  10     [ { complex } declare [ real>> ] [ imaginary>> ] bi ]
  11     test-checker
  12 ] unit-test
  13
  14 [ t ] [
  15     [ complex boa [ real>> ] [ imaginary>> ] bi ]
  16     test-checker
  17 ] unit-test
  18
  19 [ t ] [
  20     [ [ complex boa [ real>> ] [ imaginary>> ] bi ] when ]
  21     test-checker
  22 ] unit-test
  23
  24 [ f ] [
  25     [ swap 1 2 ? ]
  26     test-checker
  27 ] unit-test