basis/compiler/tests/redefine7.factor

   1 USING: eval tools.test compiler.units vocabs multiline words
   2 kernel ;
   3 IN: compiler.tests
   4
   5 ! Mixin redefinition did not recompile all necessary words.
   6
   7 [ ] [ [ "compiler.tests.redefine7" forget-vocab ] with-compilation-unit ] unit-test
   8
   9 [ ] [
  10     <"
  11     USING: kernel math ;
  12     IN: compiler.tests.redefine7
  13     MIXIN: my-mixin
  14     INSTANCE: fixnum my-mixin
  15     : my-inline ( a -- b ) dup my-mixin? [ 1 + ] when ;
  16     "> eval
  17 ] unit-test
  18
  19 [ ] [
  20     <"
  21     USE: math
  22     IN: compiler.tests.redefine7
  23     INSTANCE: float my-mixin
  24     "> eval
  25 ] unit-test
  26
  27 [ 2.0 ] [
  28     1.0 "my-inline" "compiler.tests.redefine7" lookup execute
  29 ] unit-test