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

diff --git a/t/024-isa.t b/t/024-isa.t
index ae8a594..ee970db 100644
--- a/t/024-isa.t
+++ b/t/024-isa.t
@@ -2,8 +2,8 @@
 use strict;
 use warnings;
 use Test::More;
-use Test::Exception;
 use IO::Handle;
+use Test::Exception;
 
 my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
                Ref ScalarRef ArrayRef HashRef CodeRef RegexpRef GlobRef
@@ -84,7 +84,7 @@ for my $type (@types) {
     }
 
     for my $value (@{ $values_for_type{$type}{invalid} }) {
-        my $display = defined($value) ? $value : 'undef';
+        my $display = defined($value) ? overload::StrVal($value) : 'undef';
         my $via_new;
         throws_ok {
             $via_new = Class->new($type => $value);