2008-08-27 17:25:37 -04:00
|
|
|
USING: io.streams.string kernel tools.test eval ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: compiler.tests.redefine4
|
2008-08-27 17:25:37 -04:00
|
|
|
|
|
|
|
|
: declaration-test-1 ( -- a ) 3 ; flushable
|
|
|
|
|
|
|
|
|
|
: declaration-test ( -- ) declaration-test-1 drop ;
|
|
|
|
|
|
|
|
|
|
[ "" ] [ [ declaration-test ] with-string-writer ] unit-test
|
|
|
|
|
|
2009-04-26 03:23:33 -04:00
|
|
|
[ ] [ "IN: compiler.tests.redefine4 USE: io : declaration-test-1 ( -- a ) \"X\" write f ;" eval( -- ) ] unit-test
|
2008-08-27 17:25:37 -04:00
|
|
|
|
|
|
|
|
[ "X" ] [ [ declaration-test ] with-string-writer ] unit-test
|
