factor/basis/compiler/tests/redefine3.factor

USING: accessors compiler compiler.units tools.test math parser
kernel sequences sequences.private classes.mixin generic
definitions arrays words assocs eval grouping ;
IN: compiler.tests.redefine3

GENERIC: sheeple ( obj -- x )

M: object sheeple drop "sheeple" ; inline

MIXIN: empty-mixin

M: empty-mixin sheeple drop "wake up" ; inline

: sheeple-test ( -- string ) { } sheeple ;

: compiled-use? ( key word -- ? )
    "definition-dependencies" word-prop member-eq? ;

[ "sheeple" ] [ sheeple-test ] unit-test
[ t ] [ \ sheeple-test optimized? ] unit-test
[ t ] [ object \ sheeple lookup-method \ sheeple-test compiled-use? ] unit-test
[ f ] [ empty-mixin \ sheeple lookup-method \ sheeple-test compiled-use? ] unit-test

[ ] [ "IN: compiler.tests.redefine3 USE: arrays INSTANCE: array empty-mixin" eval( -- ) ] unit-test

[ "wake up" ] [ sheeple-test ] unit-test
[ f ] [ object \ sheeple lookup-method \ sheeple-test compiled-use? ] unit-test
[ t ] [ empty-mixin \ sheeple lookup-method \ sheeple-test compiled-use? ] unit-test

[ ] [ [ array empty-mixin remove-mixin-instance ] with-compilation-unit ] unit-test

[ "sheeple" ] [ sheeple-test ] unit-test
[ t ] [ \ sheeple-test optimized? ] unit-test
[ t ] [ object \ sheeple lookup-method \ sheeple-test compiled-use? ] unit-test
[ f ] [ empty-mixin \ sheeple lookup-method \ sheeple-test compiled-use? ] unit-test