extra/multi-methods/tests/legacy.factor

   1 USING: math strings sequences tools.test ;
   2 IN: multi-methods.tests
   3
   4 GENERIC: legacy-test ( a -- b )
   5
   6 M: integer legacy-test sq ;
   7 M: string legacy-test " hey" append ;
   8
   9 [ 25 ] [ 5 legacy-test ] unit-test
  10 [ "hello hey" ] [ "hello" legacy-test ] unit-test