1 USING: generic.parser tools.test ;
3 IN: generic.parser.tests
5 { t } [ ( -- ) ( -- ) method-effect= ] unit-test
6 { t } [ ( a -- b ) ( x -- y ) method-effect= ] unit-test
7 { f } [ ( a b -- c ) ( x -- y ) method-effect= ] unit-test
8 { f } [ ( a -- b ) ( x y -- z ) method-effect= ] unit-test
10 { t } [ ( -- * ) ( -- ) method-effect= ] unit-test
11 { f } [ ( -- * ) ( x -- y ) method-effect= ] unit-test
12 { t } [ ( x -- * ) ( x -- y ) method-effect= ] unit-test
13 { t } [ ( x -- * ) ( x -- y z ) method-effect= ] unit-test