summaryrefslogtreecommitdiffstats
path: root/t
diff options
context:
space:
mode:
authordoy <doy@tozt.net>2009-04-12 15:00:57 -0500
committerdoy <doy@tozt.net>2009-04-12 15:00:57 -0500
commitb6f7a1d3bdcba7d5bee6f6fd52c4c36b5e1b1b47 (patch)
treef0f4085a3c729d7fb29643bbd5186a1e5cf8c313 /t
parent547469b0aeea58c04c0e122ffb220be27c14f204 (diff)
downloadmoosex-nonmoose-b6f7a1d3bdcba7d5bee6f6fd52c4c36b5e1b1b47.tar.gz
moosex-nonmoose-b6f7a1d3bdcba7d5bee6f6fd52c4c36b5e1b1b47.zip
hmmm, these tests are wrong
Diffstat (limited to 't')
-rw-r--r--t/005-moose.t6
1 files changed, 1 insertions, 5 deletions
diff --git a/t/005-moose.t b/t/005-moose.t
index 80bb87f..a27e97d 100644
--- a/t/005-moose.t
+++ b/t/005-moose.t
@@ -1,7 +1,7 @@
#!/usr/bin/env perl
use strict;
use warnings;
-use Test::More tests => 14;
+use Test::More tests => 12;
package Foo;
use Moose;
@@ -42,8 +42,6 @@ isa_ok $foo_othersub, 'Foo';
is $foo_othersub->foo, 'FOO', 'inheritance works (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)');
Foo::OtherSub->meta->make_immutable;
$foo_othersub = Foo::OtherSub->new;
@@ -51,5 +49,3 @@ isa_ok $foo_othersub, 'Foo';
is $foo_othersub->foo, 'FOO', 'inheritance works (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)');