24 lines
456 B
Factor
24 lines
456 B
Factor
USING: kernel classes.mixin compiler.units tools.test generic ;
|
|
IN: compiler.tests.redefine19
|
|
|
|
GENERIC: g ( a -- b )
|
|
|
|
MIXIN: m1 M: m1 g drop 1 ;
|
|
MIXIN: m2 M: m2 g drop 2 ;
|
|
|
|
TUPLE: c ;
|
|
|
|
INSTANCE: c m2
|
|
|
|
: foo ( -- b ) c new g ;
|
|
|
|
[ 2 ] [ foo ] unit-test
|
|
|
|
[ ] [ [ c m1 add-mixin-instance ] with-compilation-unit ] unit-test
|
|
|
|
[ { m2 m1 } ] [ \ g order ] unit-test
|
|
|
|
[ 1 ] [ foo ] unit-test
|
|
|
|
[ ] [ [ c m1 remove-mixin-instance ] with-compilation-unit ] unit-test
|