/extra/multi-methods/tests/legacy.factor

http://github.com/abeaumont/factor · Factor · 10 lines · 7 code · 3 blank · 0 comment · 0 complexity · a4255b435ec1fb64650a984141e2b959 MD5 · raw file 

    

  1. USING: math strings sequences tools.test ;
    2. 

  2. IN: multi-methods.tests
    3. 

  3. 

  4. GENERIC: legacy-test ( a -- b )
    5. 

  5. 

  6. M: integer legacy-test sq ;
    7. 

  7. M: string legacy-test " hey" append ;
    8. 

  8. 

  9. [ 25 ] [ 5 legacy-test ] unit-test
    10. 

  10. [ "hello hey" ] [ "hello" legacy-test ] unit-test
    11.