1 IN: method-chains.tests
2 USING: method-chains tools.test arrays strings sequences kernel namespaces ;
4 GENERIC: testing ( a b -- c )
6 M: sequence testing nip reverse ;
7 AFTER: string testing append ;
8 BEFORE: array testing over prefix "a" set ;
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