1 USING: tools.test tools.annotations math parser ;
2 IN: tools.annotations.tests
10 GENERIC: some-generic ( a -- b )
12 M: integer some-generic 1+ ;
14 [ 4 ] [ 3 some-generic ] unit-test
16 [ ] [ \ some-generic watch ] unit-test
18 [ 4 ] [ 3 some-generic ] unit-test
20 [ ] [ "IN: tools.annotations.tests USE: math M: integer some-generic 1- ;" eval ] unit-test
22 [ 2 ] [ 3 some-generic ] unit-test
24 [ ] [ \ some-generic reset ] unit-test
26 [ 2 ] [ 3 some-generic ] unit-test