From: Dave Rolsky <autarch@urth.org>
Date: Sat, 14 Feb 2009 23:55:52 +0000 (+0000)
Subject: Fix some mixed up test descriptions
X-Git-Tag: 0.71~19
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e478208e9a796721c5142eccead17078efee3d5;p=gitmo%2FMoose.git

Fix some mixed up test descriptions
---

diff --git a/t/040_type_constraints/003_util_std_type_constraints.t b/t/040_type_constraints/003_util_std_type_constraints.t
index e9c2d44..65c0c4b 100644
--- a/t/040_type_constraints/003_util_std_type_constraints.t
+++ b/t/040_type_constraints/003_util_std_type_constraints.t
@@ -299,9 +299,9 @@ ok(!defined Role($SCALAR_REF),          '... Role rejects anything which is not
 ok(!defined Role($GLOB_REF),            '... Role rejects anything which is not a Role');
 ok(!defined Role($fh),                  '... Role rejects anything which is not a Role');
 ok(!defined Role(qr/../),               '... Role rejects anything which is not a Role');
-ok(!defined Role(bless {}, 'Foo'),      '... Role accepts anything which is not a Role');
-ok(defined Role(bless {}, 'My::Role'),  '... Role accepts anything which is not a Role');
-ok(!defined Role(undef),                 '... Role accepts anything which is not a Role');
+ok(!defined Role(bless {}, 'Foo'),      '... Role accepts anything which is a Role');
+ok(defined Role(bless {}, 'My::Role'),  '... Role accepts anything which is a Role');
+ok(!defined Role(undef),                 '... Role accepts anything which is a Role');
 
 ok(!defined ClassName(0),               '... ClassName rejects anything which is not a ClassName');
 ok(!defined ClassName(100),             '... ClassName rejects anything which is not a ClassName');
@@ -349,9 +349,9 @@ ok(!defined RoleName($GLOB_REF),       '... Rolename rejects anything which is n
 ok(!defined RoleName(qr/../),          '... Rolename rejects anything which is not a RoleName');
 ok(!defined RoleName(bless {}, 'Foo'), '... Rolename rejects anything which is not a RoleName');
 ok(!defined RoleName(undef),           '... Rolename rejects anything which is not a RoleName');
-ok(!defined RoleName('UNIVERSAL'),      '... RoleName accepts anything which is a RoleName');
-ok(!defined RoleName('Quux::Wibble'),      '... RoleName accepts anything which is a RoleName');
-ok(!defined RoleName('Moose::Meta::TypeConstraint'), '... RoleName accepts anything which is a RoleName');
+ok(!defined RoleName('UNIVERSAL'),     '... Rolename rejects anything which is not a RoleName');
+ok(!defined RoleName('Quux::Wibble'),  '... Rolename rejects anything which is not a RoleName');
+ok(!defined RoleName('Moose::Meta::TypeConstraint'),  '... RoleName accepts anything which is a RoleName');
 ok(defined RoleName('Quux::Wibble::Role'),      '... RoleName accepts anything which is a RoleName');
 
 close($fh) || die "Could not close the filehandle $0 for test";