basis/macros/expander/expander-tests.factor

   1 IN: macros.expander.tests
   2 USING: macros.expander tools.test math combinators.short-circuit
   3 kernel combinators ;
   4
   5 [ t ] [ 20 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test
   6
   7 [ f ] [ 15 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test
   8
   9 [ f ] [ 5.0 [ { [ integer? ] [ even? ] [ 10 > ] } 1&& ] expand-macros call ] unit-test
  10
  11 [ [ no-case ] ] [ [ { } case ] expand-macros ] unit-test