core/compiler/units/units-tests.factor

   1 IN: compiler.units.tests
   2 USING: definitions compiler.units tools.test arrays sequences words kernel
   3 accessors namespaces fry ;
   4
   5 [ flushed-dependency ] [ f flushed-dependency strongest-dependency ] unit-test
   6 [ flushed-dependency ] [ flushed-dependency f strongest-dependency ] unit-test
   7 [ inlined-dependency ] [ flushed-dependency inlined-dependency strongest-dependency ] unit-test
   8 [ inlined-dependency ] [ called-dependency inlined-dependency strongest-dependency ] unit-test
   9 [ flushed-dependency ] [ called-dependency flushed-dependency strongest-dependency ] unit-test
  10 [ called-dependency ] [ called-dependency f strongest-dependency ] unit-test
  11
  12 ! Non-optimizing compiler bugs
  13 [ 1 1 ] [
  14     "A" "B" <word> [ [ 1 ] dip ] >>def dup f 2array 1array modify-code-heap
  15     1 swap execute
  16 ] unit-test
  17
  18 [ "A" "B" ] [
  19     gensym "a" set
  20     gensym "b" set
  21     [
  22         "a" get [ "A" ] define
  23         "b" get "a" get '[ _ execute ] define
  24     ] with-compilation-unit
  25     "b" get execute
  26     [
  27         "a" get [ "B" ] define
  28     ] with-compilation-unit
  29     "b" get execute
  30 ] unit-test