2009-04-20 05:21:00 -04:00
|
|
|
USING: eval tools.test definitions words compiler.units
|
|
|
|
|
quotations stack-checker ;
|
2009-08-13 20:21:44 -04:00
|
|
|
IN: compiler.tests.redefine16
|
2009-04-20 05:21:00 -04:00
|
|
|
|
2011-11-06 18:57:24 -05:00
|
|
|
[ ] [ [ "blah" "compiler.tests.redefine16" lookup-word forget ] with-compilation-unit ] unit-test
|
2009-04-20 05:21:00 -04:00
|
|
|
|
|
|
|
|
[ ] [ "IN: compiler.tests.redefine16 GENERIC# blah 2 ( foo bar baz -- )" eval( -- ) ] unit-test
|
|
|
|
|
[ ] [ "IN: compiler.tests.redefine16 USING: strings math arrays prettyprint ; M: string blah 1 + 3array . ;" eval( -- ) ] unit-test
|
2009-04-21 17:09:53 -04:00
|
|
|
[ ] [ "IN: compiler.tests.redefine16 GENERIC# blah 2 ( foo bar baz -- x )" eval( -- ) ] unit-test
|
|
|
|
|
|
2011-11-06 18:57:24 -05:00
|
|
|
[ ] [ [ "blah" "compiler.tests.redefine16" lookup-word forget ] with-compilation-unit ] unit-test
|
