[Moose-commits] r7167 - in Mouse/trunk: . t/800_shikabased

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

Author: sartak
Date: 2008-12-21 20:26:23 -0800 (Sun, 21 Dec 2008)
New Revision: 7167

Modified:
   Mouse/trunk/
   Mouse/trunk/t/800_shikabased/010-isa-or.t
Log:
 r77781 at onn:  sartak | 2008-12-21 23:23:53 -0500
 Rename this class to avoid a type collision



Property changes on: Mouse/trunk
___________________________________________________________________
Name: svk:merge
   - 08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse:77779
08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse-trunk:61565
3efe9002-19ed-0310-8735-a98156148065:/Mouse/branches/shika-based:6997
   + 08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse:77781
08e7d58d-de06-4458-8c15-335e402ab116:/local/Mouse-trunk:61565
3efe9002-19ed-0310-8735-a98156148065:/Mouse/branches/shika-based:6997

Modified: Mouse/trunk/t/800_shikabased/010-isa-or.t
===================================================================
--- Mouse/trunk/t/800_shikabased/010-isa-or.t	2008-12-22 04:18:09 UTC (rev 7166)
+++ Mouse/trunk/t/800_shikabased/010-isa-or.t	2008-12-22 04:26:23 UTC (rev 7167)
@@ -72,7 +72,7 @@
     sub new { bless {}, shift };
 }
 {   
-    package Baz;
+    package Funk;
     use Mouse;
     use Mouse::Util::TypeConstraints;
 
@@ -82,10 +82,10 @@
     has 'foo' => ( is => 'rw', isa => 'Type3|KLASS|Undef', coerce => 1 );
 }
 
-eval { Baz->new( foo => 'aaa' ) };
+eval { Funk->new( foo => 'aaa' ) };
 like $@, qr/Attribute \(foo\) does not pass the type constraint because: Validation failed for 'Type3\|KLASS\|Undef' failed with value aaa/;
 
-my $k = Baz->new;
+my $k = Funk->new;
 ok $k, 'got an object 4';
 $k->foo(sub {});
 is $k->foo, 'Name', 'foo is Name';