2009-04-05 21:44:34 -04:00
|
|
|
IN: see.tests
|
2009-05-16 17:57:58 -04:00
|
|
|
USING: see tools.test io.streams.string math words ;
|
2009-04-05 21:44:34 -04:00
|
|
|
|
|
|
|
|
CONSTANT: test-const 10
|
|
|
|
|
[ "IN: see.tests\nCONSTANT: test-const 10 inline\n" ]
|
|
|
|
|
[ [ \ test-const see ] with-string-writer ] unit-test
|
|
|
|
|
|
|
|
|
|
ALIAS: test-alias +
|
|
|
|
|
|
|
|
|
|
[ "USING: math ;\nIN: see.tests\nALIAS: test-alias + inline\n" ]
|
|
|
|
|
[ [ \ test-alias see ] with-string-writer ] unit-test
|
2009-05-16 17:57:58 -04:00
|
|
|
|
|
|
|
|
[ ] [ gensym see ] unit-test
|
