basis/compiler/tree/def-use/simplified/simplified-tests.factor

   1 USING: kernel tools.test compiler.tree compiler.tree.builder
   2 compiler.tree.recursive compiler.tree.def-use
   3 compiler.tree.def-use.simplified accessors sequences sorting classes ;
   4 IN: compiler.tree.def-use.simplified
   5
   6 { { #call #return } } [
   7     [ 1 dup reverse ] build-tree compute-def-use
   8     first out-d>> first actually-used-by
   9     [ node>> class-of ] map natural-sort
  10 ] unit-test
  11
  12 : word-1 ( a -- b ) dup [ word-1 ] when ; inline recursive
  13
  14 { { #introduce } } [
  15     [ word-1 ] build-tree analyze-recursive compute-def-use
  16     last in-d>> first actually-defined-by
  17     [ node>> class-of ] map natural-sort
  18 ] unit-test
  19
  20 { { #if #return } } [
  21     [ word-1 ] build-tree analyze-recursive compute-def-use
  22     first out-d>> first actually-used-by
  23     [ node>> class-of ] map natural-sort
  24 ] unit-test