From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 25 Nov 2008 07:24:43 +0000 (+0000)
Subject: Make sure that creating an anonymous role satisfies is_class_loaded
X-Git-Tag: 0.62~15
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=08478633fbc0693516cd9d52a8fefcf14aa62e14;p=gitmo%2FMoose.git

Make sure that creating an anonymous role satisfies is_class_loaded
---

diff --git a/t/030_roles/035_anonymous_roles.t b/t/030_roles/035_anonymous_roles.t
index 7087085..021eebb 100644
--- a/t/030_roles/035_anonymous_roles.t
+++ b/t/030_roles/035_anonymous_roles.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 5;
+use Test::More tests => 6;
 use Moose ();
 
 my $role = Moose::Meta::Role->create_anon_role(
@@ -30,3 +30,5 @@ ok(!$visored->is_worn, "method was consumed");
 like($role->name, qr/^Moose::Meta::Role::__ANON__::SERIAL::\d+$/, "");
 ok($role->is_anon_role, "the role knows it's anonymous");
 
+ok(Class::MOP::is_class_loaded(Moose::Meta::Role->create_anon_role->name), "creating an anonymous role satisifes is_class_loaded");
+