core/compiler/tests/redefine.factor

   1 IN: compiler.tests
   2 USING: compiler tools.test math parser ;
   3
   4 GENERIC: method-redefine-test ( a -- b )
   5
   6 M: integer method-redefine-test 3 + ;
   7
   8 : method-redefine-test-1 ( -- b ) 3 method-redefine-test ;
   9
  10 [ 6 ] [ method-redefine-test-1 ] unit-test
  11
  12 [ ] [ "IN: compiler.tests USE: math M: fixnum method-redefine-test 4 + ;" eval ] unit-test
  13
  14 [ 7 ] [ method-redefine-test-1 ] unit-test