34 lines
999 B
Factor
34 lines
999 B
Factor
|
USING: accessors classes.tuple classes.union compiler.units
|
||
|
|
kernel math slots tools.test ;
|
||
|
|
IN: compiler.tests.redefine26
|
||
|
|
|
||
|
|
TUPLE: yoo ;
|
||
|
|
TUPLE: hoo ;
|
||
|
|
|
||
|
|
UNION: foo integer yoo ;
|
||
|
|
|
||
|
|
TUPLE: redefine-test-26 { a maybe: foo } ;
|
||
|
|
|
||
|
|
: store-26 ( -- obj ) redefine-test-26 new 26 >>a ;
|
||
|
|
: store-26. ( -- obj ) redefine-test-26 new 26. >>a ;
|
||
|
|
: store-yoo ( -- obj ) redefine-test-26 new T{ yoo } >>a ;
|
||
|
|
: store-hoo ( -- obj ) redefine-test-26 new T{ hoo } >>a ;
|
||
|
|
|
||
|
|
[ f ] [ redefine-test-26 new a>> ] unit-test
|
||
|
|
[ 26 ] [ store-26 a>> ] unit-test
|
||
|
|
[ T{ yoo } ] [ store-yoo a>> ] unit-test
|
||
|
|
[ store-26. a>> ] [ bad-slot-value? ] must-fail-with
|
||
|
|
[ store-hoo a>> ] [ bad-slot-value? ] must-fail-with
|
||
|
|
|
||
|
|
[ ] [
|
||
|
|
[
|
||
|
|
\ foo { integer hoo } define-union-class
|
||
|
|
] with-compilation-unit
|
||
|
|
] unit-test
|
||
|
|
|
||
|
|
[ f ] [ redefine-test-26 new a>> ] unit-test
|
||
|
|
[ 26 ] [ store-26 a>> ] unit-test
|
||
|
|
[ T{ hoo } ] [ store-hoo a>> ] unit-test
|
||
|
|
[ store-26. a>> ] [ bad-slot-value? ] must-fail-with
|
||
|
|
[ store-yoo a>> ] [ bad-slot-value? ] must-fail-with
|