2010-01-20 02:27:10 -05:00
|
|
|
USING: kernel tools.test eval words ;
|
|
|
|
|
IN: compiler.tests.redefine18
|
|
|
|
|
|
|
|
|
|
! Mixin bug found by Doug
|
|
|
|
|
|
|
|
|
|
GENERIC: g1 ( a -- b )
|
|
|
|
|
GENERIC: g2 ( a -- b )
|
|
|
|
|
|
|
|
|
|
MIXIN: c
|
|
|
|
|
SINGLETON: a
|
|
|
|
|
INSTANCE: a c
|
|
|
|
|
|
|
|
|
|
M: c g1 g2 ;
|
|
|
|
|
M: a g2 drop a ;
|
|
|
|
|
|
|
|
|
|
MIXIN: d
|
|
|
|
|
INSTANCE: d c
|
|
|
|
|
|
|
|
|
|
M: d g2 drop d ;
|
|
|
|
|
|
|
|
|
|
[ ] [ "IN: compiler.tests.redefine18 SINGLETON: b INSTANCE: b d" eval( -- ) ] unit-test
|
|
|
|
|
|
2011-11-06 18:57:24 -05:00
|
|
|
[ d ] [ "b" "compiler.tests.redefine18" lookup-word g1 ] unit-test
|
2010-01-20 02:27:10 -05:00
|
|
|
|
|
|
|
|
[ ] [ "IN: compiler.tests.redefine18 FORGET: b" eval( -- ) ] unit-test
|
