basis/compiler/tests/redefine12.factor

   1 USING: kernel tools.test eval ;
   2 IN: compiler.tests.redefine12
   3
   4 ! A regression that came about when fixing the
   5 ! 'no method on classes-intersect?' bug
   6
   7 GENERIC: g ( a -- b )
   8
   9 M: object g drop t ;
  10
  11 : h ( a -- b ) dup [ g ] when ;
  12
  13 [ f ] [ f h ] unit-test
  14 [ t ] [ "hi" h ] unit-test
  15
  16 TUPLE: jeah ;
  17
  18 [ ] [ "USE: kernel IN: compiler.tests.redefine12 M: jeah g drop f ;" eval ] unit-test
  19
  20 [ f ] [ T{ jeah } h ] unit-test