basis/compiler/tests/redefine4.factor

   1 USING: io.streams.string kernel tools.test eval ;
   2 IN: compiler.tests.redefine4
   3
   4 : declaration-test-1 ( -- a ) 3 ; flushable
   5
   6 : declaration-test ( -- ) declaration-test-1 drop ;
   7
   8 [ "" ] [ [ declaration-test ] with-string-writer ] unit-test
   9
  10 [ ] [ "IN: compiler.tests.redefine4 USE: io : declaration-test-1 ( -- a ) \"X\" write f ;" eval( -- ) ] unit-test
  11
  12 [ "X" ] [ [ declaration-test ] with-string-writer ] unit-test