2008-08-24 04:59:37 -04:00
|
|
|
IN: macros.expander.tests
|
|
|
|
|
USING: macros.expander tools.test math combinators.short-circuit
|
2008-09-24 23:14:40 -04:00
|
|
|
kernel combinators ;
|
2008-08-24 04:59:37 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ t } [ 20 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test
|
2008-08-24 04:59:37 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ f } [ 15 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test
|
2008-08-24 04:59:37 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ f } [ 5.0 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test
|
2008-09-24 21:18:03 -04:00
|
|
|
|
2015-07-03 12:39:59 -04:00
|
|
|
{ [ no-case ] } [ [ { } case ] expand-macros ] unit-test
|
