From b6f7a1d3bdcba7d5bee6f6fd52c4c36b5e1b1b47 Mon Sep 17 00:00:00 2001 From: doy Date: Sun, 12 Apr 2009 15:00:57 -0500 Subject: hmmm, these tests are wrong --- t/005-moose.t | 6 +----- 1 file changed, 1 insertion(+), 5 deletions(-) (limited to 't') 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)'); -- cgit v1.2.3-54-g00ecf