2 USING: tools.test macros math kernel arrays
3 vectors io.streams.string prettyprint parser eval see ;
5 MACRO: see-test ( a b -- quot ) + ;
7 [ t ] [ \ see-test macro? ] unit-test
9 [ "USING: macros math ;\nIN: macros.tests\nMACRO: see-test ( a b -- quot ) + ;\n" ]
10 [ [ \ see-test see ] with-string-writer ]
13 [ t ] [ \ see-test macro? ] unit-test
16 "USING: math ;\nIN: macros.tests\n: see-test ( a b -- c ) - ;\n" dup eval( -- )
17 [ \ see-test see ] with-string-writer =
20 [ f ] [ \ see-test macro? ] unit-test
22 [ ] [ "USING: macros stack-checker kernel ; IN: hanging-macro MACRO: c ( quot -- ) infer drop [ ] ; : a ( -- ) [ a ] c ;" eval( -- ) ] unit-test
24 [ ] [ "IN: macros.tests USE: macros MACRO: foo ( -- x ) [ ] ;" eval( -- ) ] unit-test
25 [ "IN: macros.tests USE: macros MACRO: foo ( -- x ) [ ] ; inline" eval( -- ) ] must-fail