More tests

diff --git a/t/030_roles/034_create_role.t b/t/030_roles/034_create_role.t
index d57181f..8c1df50 100644 (file)
--- a/t/030_roles/034_create_role.t
+++ b/t/030_roles/034_create_role.t
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 3;
+use Test::More tests => 4;
 use Moose ();
 
 my $role = Moose::Meta::Role->create(
@@ -28,3 +28,5 @@ ok($visored->is_worn, "accessor was consumed");
 $visored->remove;
 ok(!$visored->is_worn, "method was consumed");
 
+ok(!$role->is_anon_role, "the role is not anonymous");
+

diff --git a/t/030_roles/035_anonymous_roles.t b/t/030_roles/035_anonymous_roles.t
index 911012a..7087085 100644 (file)
--- 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 => 3;
+use Test::More tests => 5;
 use Moose ();
 
 my $role = Moose::Meta::Role->create_anon_role(
@@ -27,3 +27,6 @@ ok($visored->is_worn, "accessor was consumed");
 $visored->remove;
 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");
+