basis/method-chains/method-chains-tests.factor

   1 IN: method-chains.tests
   2 USING: method-chains tools.test arrays strings sequences kernel namespaces ;
   3
   4 GENERIC: testing ( a b -- c )
   5
   6 M: sequence testing nip reverse ;
   7 AFTER: string testing append ;
   8 BEFORE: array testing over prefix "a" set ;
   9
  10 { V{ 3 2 1 } } [ 3 V{ 1 2 3 } testing ] unit-test
  11 { "heyyeh" } [ 4 "yeh" testing ] unit-test
  12 { { 4 2 0 } } [ 5 { 0 2 4 } testing ] unit-test
  13 { { 5 0 2 4 } } [ "a" get ] unit-test