2008-04-08 19:51:56 -04:00
|
|
|
IN: multi-methods.tests
|
|
|
|
|
USING: math strings sequences tools.test ;
|
|
|
|
|
|
2009-03-23 01:34:02 -04:00
|
|
|
GENERIC: legacy-test ( a -- b )
|
2008-04-08 19:51:56 -04:00
|
|
|
|
|
|
|
|
M: integer legacy-test sq ;
|
|
|
|
|
M: string legacy-test " hey" append ;
|
|
|
|
|
|
|
|
|
|
[ 25 ] [ 5 legacy-test ] unit-test
|
|
|
|
|
[ "hello hey" ] [ "hello" legacy-test ] unit-test
|
