6 use Test::More tests => 41;
19 has 'x' => (isa => Int(), is => 'ro');
21 has 'y' => (isa => Int(), is => 'rw');
36 has 'z' => (isa => Int());
38 after 'clear' => sub {
45 my $point = Point->new(x => 1, y => 2);
46 isa_ok($point, 'Point');
47 isa_ok($point, 'Moose::Object');
49 is($point->x, 1, '... got the right value for x');
50 is($point->y, 2, '... got the right value for y');
53 is($point->y, 10, '... got the right (changed) value for y');
57 } '... cannot assign a non-Int to y';
60 is($point->x, 1, '... got the right (un-changed) value for x');
64 is($point->x, 0, '... got the right (cleared) value for x');
65 is($point->y, 0, '... got the right (cleared) value for y');
67 # check the type constraints on the constructor
70 Point->new(x => 0, y => 0);
71 } '... can assign a 0 to x and y';
74 Point->new(x => 10, y => 'Foo');
75 } '... cannot assign a non-Int to y';
78 Point->new(x => 'Foo', y => 10);
79 } '... cannot assign a non-Int to x';
83 my $point3d = Point3D->new(x => 10, y => 15, z => 3);
84 isa_ok($point3d, 'Point3D');
85 isa_ok($point3d, 'Point');
86 isa_ok($point3d, 'Moose::Object');
88 is($point3d->x, 10, '... got the right value for x');
89 is($point3d->y, 15, '... got the right value for y');
90 is($point3d->{'z'}, 3, '... got the right value for z');
94 } '... there is no method for z';
98 is($point3d->x, 0, '... got the right (cleared) value for x');
99 is($point3d->y, 0, '... got the right (cleared) value for y');
100 is($point3d->{'z'}, 0, '... got the right (cleared) value for z');
103 Point3D->new(x => 10, y => 'Foo', z => 3);
104 } '... cannot assign a non-Int to y';
107 Point3D->new(x => 'Foo', y => 10, z => 3);
108 } '... cannot assign a non-Int to x';
111 Point3D->new(x => 0, y => 10, z => 'Bar');
112 } '... cannot assign a non-Int to z';
114 # test some class introspection
116 can_ok('Point', 'meta');
117 isa_ok(Point->meta, 'Moose::Meta::Class');
119 can_ok('Point3D', 'meta');
120 isa_ok(Point3D->meta, 'Moose::Meta::Class');
122 isnt(Point->meta, Point3D->meta, '... they are different metaclasses as well');
127 [ Point->meta->superclasses ],
129 '... Point got the automagic base class');
131 my @Point_methods = qw(x y clear);
132 my @Point_attrs = ('x', 'y');
135 [ sort @Point_methods ],
136 [ sort Point->meta->get_method_list() ],
137 '... we match the method list for Point');
140 [ sort @Point_attrs ],
141 [ sort Point->meta->get_attribute_list() ],
142 '... we match the attribute list for Point');
144 foreach my $method (@Point_methods) {
145 ok(Point->meta->has_method($method), '... Point has the method "' . $method . '"');
151 [ Point3D->meta->superclasses ],
153 '... Point3D gets the parent given to it');
155 my @Point3D_methods = qw(clear);
156 my @Point3D_attrs = ('z');
159 [ sort @Point3D_methods ],
160 [ sort Point3D->meta->get_method_list() ],
161 '... we match the method list for Point3D');
164 [ sort @Point3D_attrs ],
165 [ sort Point3D->meta->get_attribute_list() ],
166 '... we match the attribute list for Point3D');
168 foreach my $method (@Point3D_methods) {
169 ok(Point3D->meta->has_method($method), '... Point3D has the method "' . $method . '"');