Forgot to fix the test count

[gitmo/Moose.git] / t / 030_roles / 034_create_role.t

diff --git a/t/030_roles/034_create_role.t b/t/030_roles/034_create_role.t
index d57181f..8c1eb4e 100644 (file)
--- a/t/030_roles/034_create_role.t
+++ b/t/030_roles/034_create_role.t
@@ -1,11 +1,11 @@
 #!/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(
-    'package' => 'MyItem::Role::Equipment',
+    'MyItem::Role::Equipment',
     attributes => {
         is_worn => {
             is => 'rw',
@@ -21,10 +21,12 @@ my $class = Moose::Meta::Class->create('MyItem::Armor::Helmet' =>
     roles => ['MyItem::Role::Equipment'],
 );
 
-my $visored = $class->construct_instance(is_worn => 0);
+my $visored = $class->new_object(is_worn => 0);
 ok(!$visored->is_worn, "attribute, accessor was consumed");
 $visored->is_worn(1);
 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");
+