From: Shawn M Moore <sartak@gmail.com>
Date: Wed, 1 Apr 2009 03:28:54 +0000 (-0400)
Subject: TODO package A;our @VERSION passing is_class_loaded
X-Git-Tag: 0.20~50
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=2a902f4c890810af78190b630d4622b610ad19e8;p=gitmo%2FMouse.git

TODO package A;our @VERSION passing is_class_loaded
---

diff --git a/t/025-more-isa.t b/t/025-more-isa.t
index e59ef90..0be7603 100644
--- a/t/025-more-isa.t
+++ b/t/025-more-isa.t
@@ -104,7 +104,7 @@ do {
     );
 };
 
-for ('A'..'E', 'G::H') {
+for ('B'..'E', 'G::H') {
     lives_ok {
         ClassNameTests->new(class => $_);
     };
@@ -115,6 +115,18 @@ for ('A'..'E', 'G::H') {
     };
 }
 
+TODO: {
+    local $TODO = "Moose throws errors here. Mouse does not";
+    throws_ok {
+        ClassNameTests->new(class => 'A');
+    } qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value A/;
+
+    throws_ok {
+            my $obj = ClassNameTests->new;
+            $obj->class('A');
+    } qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value A/;
+}
+
 for ('F', 'G', 'I', 'Z') {
     throws_ok {
         ClassNameTests->new(class => $_);