[Moose-commits] r7703 - Moose/trunk/t/040_type_constraints

[autarch at code2.0beta.co.uk]

Author: autarch
Date: 2009-02-14 15:56:51 -0800 (Sat, 14 Feb 2009)
New Revision: 7703

Modified:
   Moose/trunk/t/040_type_constraints/003_util_std_type_constraints.t
Log:
Fix some test descriptions I just broke by trying to fix


Modified: Moose/trunk/t/040_type_constraints/003_util_std_type_constraints.t
===================================================================
--- Moose/trunk/t/040_type_constraints/003_util_std_type_constraints.t	2009-02-14 23:55:52 UTC (rev 7702)
+++ Moose/trunk/t/040_type_constraints/003_util_std_type_constraints.t	2009-02-14 23:56:51 UTC (rev 7703)
@@ -299,9 +299,9 @@
 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 a Role');
+ok(!defined Role(bless {}, 'Foo'),      '... Role rejects anything which is not 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 Role(undef),                '... Role rejects anything which is not 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');