/extra/method-chains/method-chains-tests.factor

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

    

  1. IN: method-chains.tests
    2. 

  2. USING: method-chains tools.test arrays strings sequences kernel namespaces ;
    3. 

  3. 

  4. GENERIC: testing ( a b -- c )
    5. 

  5. 

  6. M: sequence testing nip reverse ;
    7. 

  7. AFTER: string testing append ;
    8. 

  8. BEFORE: array testing over prefix "a" set ;
    9. 

  9. 

  10. [ V{ 3 2 1 } ] [ 3 V{ 1 2 3 } testing ] unit-test
    11. 

  11. [ "heyyeh" ] [ 4 "yeh" testing ] unit-test
    12. 

  12. [ { 4 2 0 } ] [ 5 { 0 2 4 } testing ] unit-test
    13. 

  13. [ { 5 0 2 4 } ] [ "a" get ] unit-test
    14.