PageRenderTime 251ms CodeModel.GetById 245ms app.highlight 4ms RepoModel.GetById 1ms app.codeStats 0ms

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

http://github.com/abeaumont/factor
Unknown | 13 lines | 10 code | 3 blank | 0 comment | 0 complexity | 2556d8879948b0194d2d7e883d5900cb MD5 | raw file
 1IN: method-chains.tests
 2USING: method-chains tools.test arrays strings sequences kernel namespaces ;
 3
 4GENERIC: testing ( a b -- c )
 5
 6M: sequence testing nip reverse ;
 7AFTER: string testing append ;
 8BEFORE: 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