summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-04-11 18:42:14 -0500
committerdoy <doy@tozt.net>2009-04-11 18:42:14 -0500
commit547469b0aeea58c04c0e122ffb220be27c14f204 (patch)
tree0485bccd220399b48623b7f9e337311b59b25157 /t
parentb2657b911ca65f9ea4e747855c0973b67f210562 (diff)
downloadmoosex-nonmoose-547469b0aeea58c04c0e122ffb220be27c14f204.tar.gz
moosex-nonmoose-547469b0aeea58c04c0e122ffb220be27c14f204.zip
no, moose doesn't automatically inline constructors, i was just getting my own constructor back
Diffstat (limited to 't')
-rw-r--r--t/005-moose.t8
1 files changed, 4 insertions, 4 deletions
diff --git a/t/005-moose.t b/t/005-moose.t
index 64b3c8f..80bb87f 100644
--- a/t/005-moose.t
+++ b/t/005-moose.t
@@ -40,8 +40,8 @@ package main;
my $foo_othersub = Foo::OtherSub->new;
isa_ok $foo_othersub, 'Foo';
is $foo_othersub->foo, 'FOO', 'inheritance works (immutable when extending)';
-ok(Foo::OtherSub->meta->has_method('new'),
- 'Foo::OtherSub has its own inlined constructor (immutable when extending)');
+ok(!Foo::OtherSub->meta->has_method('new'),
+ 'Foo::OtherSub doesn\'t have its own new method (immutable when extending)');
ok(!Foo::OtherSub->meta->constructor_class->meta->isa('Moose::Meta::Class'),
'Foo::OtherSub\'s constructor class hasn\'t had any roles applied to it (immutable when extending)');
@@ -49,7 +49,7 @@ Foo::OtherSub->meta->make_immutable;
$foo_othersub = Foo::OtherSub->new;
isa_ok $foo_othersub, 'Foo';
is $foo_othersub->foo, 'FOO', 'inheritance works (all immutable)';
-ok(Foo::OtherSub->meta->has_method('new'),
- 'Foo::OtherSub has its own inlined constructor (all immutable)');
+ok(!Foo::OtherSub->meta->has_method('new'),
+ 'Foo::OtherSub doesn\'t have its own new method (all immutable)');
ok(!Foo::OtherSub->meta->constructor_class->meta->isa('Moose::Meta::Class'),
'Foo::OtherSub\'s constructor class hasn\'t had any roles applied to it (all immutable)');