X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F024-isa.t;h=ee970db6f8b782893ac57e3161013c39bd621619;hb=92583b3320b6ed8b4673fc94e68af64b3cf106e3;hp=d594814e2cc36571f203e36c45d6cb3987f17de8;hpb=e118b33570275a81df743590c49dbf26e8652941;p=gitmo%2FMouse.git

diff --git a/t/024-isa.t b/t/024-isa.t
index d594814..ee970db 100644
--- a/t/024-isa.t
+++ b/t/024-isa.t
@@ -2,122 +2,54 @@
 use strict;
 use warnings;
 use Test::More;
+use IO::Handle;
 use Test::Exception;
 
-my %values_for_type = (
-    Any => {
-        valid   => [
-            undef,
-            \undef,
-            1.0,
-            "foo",
-            \"foo",
-            sub { die },
-            qr/^1?$|^(11+?)\1+$/,
-            [],
-            {},
-            \do { my $v },
-            Test::Builder->new,
-        ],
-        invalid => [],
-    },
-
-    Item => {
-        #valid   => [], # populated later with the values from Any
-        invalid => [],
-    },
-
-    Bool => {
-        valid   => [undef, "", 1, 0, "1", "0"],
-        invalid => [1.5, "true", "false", "t", "f", ],
-    },
-
-    Undef => {
-        valid   => [],
-        invalid => [],
-    },
-
-    Defined => {
-        valid   => [],
-        invalid => [],
-    },
-
-    Value => {
-        valid   => [],
-        invalid => [],
-    },
-
-    Num => {
-        valid   => [],
-        invalid => [],
-    },
-
-    Int => {
-        valid   => [],
-        invalid => [],
-    },
-
-    Str => {
-        valid   => [],
-        invalid => [],
-    },
-
-    ClassName => {
-        valid   => [],
-        invalid => [],
-    },
-
-    Ref => {
-        valid   => [],
-        invalid => [],
-    },
-
-    ScalarRef => {
-        valid   => [],
-        invalid => [],
-    },
-
-    ArrayRef => {
-        valid   => [],
-        invalid => [],
-    },
-
-    HashRef => {
-        valid   => [],
-        invalid => [],
-    },
-
-    CodeRef => {
-        valid   => [],
-        invalid => [],
-    },
-
-    RegexpRef => {
-        valid   => [],
-        invalid => [],
-    },
-
-    GlobRef => {
-        valid   => [],
-        invalid => [],
-    },
-
-    FileHandle => {
-        valid   => [],
-        invalid => [],
-    },
-
-    Object => {
-        valid   => [],
-        invalid => [],
-    },
+my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
+               Ref ScalarRef ArrayRef HashRef CodeRef RegexpRef GlobRef
+               FileHandle Object/;
+
+my @type_values = (
+    undef              ,  [qw/Any Item Undef Bool/],
+    0                  => [qw/Any Item Defined Bool Value Num Int Str/],
+    1                  => [qw/Any Item Defined Bool Value Num Int Str/],
+    1.5                => [qw/Any Item Defined Value Num Str/],
+    ''                 => [qw/Any Item Defined Bool Value Str/],
+    't'                => [qw/Any Item Defined Value Str/],
+    'f'                => [qw/Any Item Defined Value Str/],
+    'undef'            => [qw/Any Item Defined Value Str/],
+    'Test::More'       => [qw/Any Item Defined Value Str ClassName/],
+    \undef             => [qw/Any Item Defined Ref ScalarRef/],
+    \1                 => [qw/Any Item Defined Ref ScalarRef/],
+    \"foo"             => [qw/Any Item Defined Ref ScalarRef/],
+    [],                => [qw/Any Item Defined Ref ArrayRef/],
+    [undef, \1]        => [qw/Any Item Defined Ref ArrayRef/],
+    {}                 => [qw/Any Item Defined Ref HashRef/],
+    sub { die }        => [qw/Any Item Defined Ref CodeRef/],
+    qr/.*/             => [qw/Any Item Defined Ref RegexpRef/],
+    \*main::ok         => [qw/Any Item Defined Ref GlobRef/],
+    \*STDOUT           => [qw/Any Item Defined Ref GlobRef FileHandle/],
+    IO::Handle->new    => [qw/Any Item Defined Ref Object FileHandle/],
+    Test::Builder->new => [qw/Any Item Defined Ref Object/],
 );
 
-$values_for_type{Item}{valid} = $values_for_type{Any}{valid};
+my %values_for_type;
+
+for (my $i = 1; $i < @type_values; $i += 2) {
+    my ($value, $valid_types) = @type_values[$i-1, $i];
+    my %is_invalid = map { $_ => 1 } @types;
+    delete @is_invalid{@$valid_types};
+
+    push @{ $values_for_type{$_}{invalid} }, $value
+        for grep { $is_invalid{$_} } @types;
+
+    push @{ $values_for_type{$_}{valid} }, $value
+        for grep { !$is_invalid{$_} } @types;
+}
 
 my $plan = 0;
-$plan += 5 * @{ $values_for_type{$_}{valid} }   for keys %values_for_type;
-$plan += 4 * @{ $values_for_type{$_}{invalid} } for keys %values_for_type;
+$plan += 5 * @{ $values_for_type{$_}{valid} || [] }   for @types;
+$plan += 4 * @{ $values_for_type{$_}{invalid} || [] } for @types;
 $plan++; # can_ok
 
 plan tests => $plan;
@@ -126,7 +58,7 @@ do {
     package Class;
     use Mouse;
 
-    for my $type (keys %values_for_type) {
+    for my $type (@types) {
         has $type => (
             is  => 'rw',
             isa => $type,
@@ -134,9 +66,9 @@ do {
     }
 };
 
-can_ok(Class => keys %values_for_type);
+can_ok(Class => @types);
 
-for my $type (keys %values_for_type) {
+for my $type (@types) {
     for my $value (@{ $values_for_type{$type}{valid} }) {
         lives_ok {
             my $via_new = Class->new($type => $value);
@@ -152,16 +84,17 @@ for my $type (keys %values_for_type) {
     }
 
     for my $value (@{ $values_for_type{$type}{invalid} }) {
+        my $display = defined($value) ? overload::StrVal($value) : 'undef';
         my $via_new;
         throws_ok {
             $via_new = Class->new($type => $value);
-        } qr/Attribute \($type\) does not pass the type constraint because: Validation failed for '$type' failed with value \Q$value\E/;
+        } qr/Attribute \($type\) does not pass the type constraint because: Validation failed for '$type' failed with value \Q$display\E/;
         is($via_new, undef, "no object created");
 
         my $via_set = Class->new;
         throws_ok {
             $via_set->$type($value);
-        } qr/Attribute \($type\) does not pass the type constraint because: Validation failed for '$type' failed with value \Q$value\E/;
+        } qr/Attribute \($type\) does not pass the type constraint because: Validation failed for '$type' failed with value \Q$display\E/;
 
         is($via_set->$type, undef, "value for $type not set");
     }