steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity
factor/basis/compiler/tests/redefine26.factor

34 lines
1015 B
Factor
Raw Normal View History

classes.maybe: move maybe definition from classes.union to classes.maybe
2011-11-22 05:44:58 -05:00
USING: accessors classes.tuple classes.maybe compiler.units
compiler tests: fix using, add tests to make sure instance? inlines
2011-11-23 04:01:11 -05:00
kernel math slots tools.test classes.union ;
classes.union: Define a maybe: word that makes a tuple that acts as an anonymous union for a type and f. Updated all the places we define UNION: ?foo foo POSTPONE: f ;. Fixes #416 and lots of headaches.
2011-11-22 02:00:52 -05:00
IN: compiler.tests.redefine26
TUPLE: yoo ;
TUPLE: hoo ;
UNION: foo integer yoo ;
classes: - Allow methods to dispatch off union{ } and intersection{ } classes. - Add not{ } anonymous-complement syntax. - Define class-name for anonymous-union/intersection/complement and maybes, and clean up pprint. - Change maybe: foo to maybe{ foo } - Call sort-classes when making anonymous-union/anonymous-intersection classes so that they are canonicalized.
2012-05-03 22:17:41 -04:00
TUPLE: redefine-test-26 { a maybe{ foo } } ;
classes.union: Define a maybe: word that makes a tuple that acts as an anonymous union for a type and f. Updated all the places we define UNION: ?foo foo POSTPONE: f ;. Fixes #416 and lots of headaches.
2011-11-22 02:00:52 -05:00
: 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