X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F025-more-isa.t;h=f092bede9eb2d9f4845b65619608f6b594ada609;hb=5dbc65eed8ea629e98a9d129549301b36f5b4f1b;hp=f11dc2581a815522cb84937d8a67889cc963d241;hpb=7ecc21230bd017cdb82e6163b4053ac286ea1273;p=gitmo%2FMouse.git

diff --git a/t/025-more-isa.t b/t/025-more-isa.t
index f11dc25..f092bed 100644
--- a/t/025-more-isa.t
+++ b/t/025-more-isa.t
@@ -1,8 +1,8 @@
 #!/usr/bin/env perl
 use strict;
 use warnings;
-use Test::More tests => 23;
-use Test::Exception;
+use Test::More tests => 29;
+use Mouse::Util ':test';
 
 do {
     package Class;
@@ -61,20 +61,26 @@ lives_ok {
 
 do {
     package A;
-    our $VERSION = 1;
+    our @VERSION;
 
     package B;
-    our @ISA = 'Mouse::Object';
+    our $VERSION = 1;
 
     package C;
-    sub foo {}
+    our %ISA;
 
-    package D::Child;
-    sub bar {}
+    package D;
+    our @ISA = 'Mouse::Object';
 
     package E;
+    sub foo {}
 
     package F;
+
+    package G::H;
+    sub bar {}
+
+    package I;
     our $NOT_CODE = 1;
 };
 
@@ -88,7 +94,7 @@ do {
     );
 };
 
-for ('A'..'C', 'D::Child') {
+for ('A'..'E', 'G::H') {
     lives_ok {
         ClassNameTests->new(class => $_);
     };
@@ -99,7 +105,7 @@ for ('A'..'C', 'D::Child') {
     };
 }
 
-for ('E'..'F', 'NonExistentClass') {
+for ('F', 'G', 'I', 'Z') {
     throws_ok {
         ClassNameTests->new(class => $_);
     } qr/Attribute \(class\) does not pass the type constraint because: Validation failed for 'ClassName' failed with value $_/;