X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F010_basics%2F014_create_anon.t;h=c75cc814bc6a9a9d5e24114bbbad7ad2d68e20a0;hb=21f1fbdc72bf569ef63bd551217635baa27da689;hp=d989455d5dd4e25914fd152ea43c275886298beb;hpb=6d5cbd2b637d672d74ad86d5309580f142ee3439;p=gitmo%2FMoose.git diff --git a/t/010_basics/014_create_anon.t b/t/010_basics/014_create_anon.t index d989455..c75cc81 100644 --- a/t/010_basics/014_create_anon.t +++ b/t/010_basics/014_create_anon.t @@ -3,22 +3,18 @@ use strict; use warnings; -use Test::More tests => 11; +use Test::More tests => 8; -BEGIN { - use_ok('Moose::Meta::Class'); - use_ok('Moose'); - use_ok('Moose::Role'); -} +use Moose::Meta::Class; -{ +{ package Class; use Moose; - + package Foo; use Moose::Role; sub foo_role_applied { 1 } - + package Bar; use Moose::Role; sub bar_role_applied { 1 } @@ -31,12 +27,12 @@ BEGIN { superclasses => ['Class'], roles => ['Foo'], ); - + my $class_and_foo_2 = Moose::Meta::Class->create_anon_class( superclasses => ['Class'], roles => ['Foo'], ); - + isnt $class_and_foo_1->name, $class_and_foo_2->name, 'creating the same class twice without caching results in 2 classes'; @@ -51,18 +47,18 @@ BEGIN { roles => ['Foo'], cache => 1, ); - + my $class_and_foo_2 = Moose::Meta::Class->create_anon_class( superclasses => ['Class'], roles => ['Foo'], cache => 1, ); - + is $class_and_foo_1->name, $class_and_foo_2->name, 'with cache, the same class is the same class'; - + map { ok $_->name->foo_role_applied } ($class_and_foo_1, $class_and_foo_2); - + my $class_and_bar = Moose::Meta::Class->create_anon_class( superclasses => ['Class'], roles => ['Bar'], @@ -71,6 +67,6 @@ BEGIN { isnt $class_and_foo_1->name, $class_and_bar, 'class_and_foo and class_and_bar are different'; - + ok $class_and_bar->name->bar_role_applied; }