14 lines
541 B
Factor
14 lines
541 B
Factor
USING: generic.parser tools.test ;
|
|
|
|
IN: generic.parser.tests
|
|
|
|
[ t ] [ (( -- )) (( -- )) method-effect= ] unit-test
|
|
[ t ] [ (( a -- b )) (( x -- y )) method-effect= ] unit-test
|
|
[ f ] [ (( a b -- c )) (( x -- y )) method-effect= ] unit-test
|
|
[ f ] [ (( a -- b )) (( x y -- z )) method-effect= ] unit-test
|
|
|
|
[ t ] [ (( -- * )) (( -- )) method-effect= ] unit-test
|
|
[ f ] [ (( -- * )) (( x -- y )) method-effect= ] unit-test
|
|
[ t ] [ (( x -- * )) (( x -- y )) method-effect= ] unit-test
|
|
[ t ] [ (( x -- * )) (( x -- y z )) method-effect= ] unit-test
|