11 lines
350 B
Factor
11 lines
350 B
Factor
|
USING: kernel tools.test definitions compiler.units ;
|
||
|
|
IN: compiler.tests.redefine21
|
||
|
|
|
||
|
|
[ ] [ : a ( -- ) ; << : b ( quot -- ) call a ; inline >> [ ] b ] unit-test
|
||
|
|
|
||
|
|
[ ] [ [ { a b } forget-all ] with-compilation-unit ] unit-test
|
||
|
|
|
||
|
|
[ ] [ : A ( -- ) ; << : B ( -- ) A ; inline >> B ] unit-test
|
||
|
|
|
||
|
|
[ ] [ [ { A B } forget-all ] with-compilation-unit ] unit-test
|