IN: macros.expander.tests
USING: macros.expander tools.test math combinators.short-circuit
kernel combinators ;

[ t ] [ 20 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test

[ f ] [ 15 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test

[ f ] [ 5.0 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test

[ [ no-case ] ] [ [ { } case ] expand-macros ] unit-test