2008-03-01 17:00:45 -05:00
|
|
|
IN: macros.tests
|
2007-09-20 18:09:08 -04:00
|
|
|
USING: tools.test macros math kernel arrays
|
2008-05-28 19:17:58 -04:00
|
|
|
vectors io.streams.string prettyprint parser ;
|
2007-09-20 18:09:08 -04:00
|
|
|
|
2008-05-28 19:17:58 -04:00
|
|
|
MACRO: see-test ( a b -- c ) + ;
|
|
|
|
|
|
|
|
|
|
[ "USING: macros math ;\nIN: macros.tests\nMACRO: see-test ( a b -- c ) + ;\n" ]
|
|
|
|
|
[ [ \ see-test see ] with-string-writer ]
|
|
|
|
|
unit-test
|
|
|
|
|
|
|
|
|
|
[ t ] [
|
|
|
|
|
"USING: math ;\nIN: macros.tests\n: see-test ( a b -- c ) - ;\n" dup eval
|
|
|
|
|
[ \ see-test see ] with-string-writer =
|
|
|
|
|
] unit-test
|
2008-06-11 03:58:38 -04:00
|
|
|
|
|
|
|
|
[ ] [ "USING: macros inference kernel ; IN: hanging-macro MACRO: c ( quot -- ) infer drop [ ] ; : a ( -- ) [ a ] c ;" eval ] unit-test
|
|
|
|
|
|
