use strict;
use warnings;
use Test::More;
-use Test::Exception;
+use IO::Handle;
+use t::Exception;
my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
Ref ScalarRef ArrayRef HashRef CodeRef RegexpRef GlobRef
my @type_values = (
undef , [qw/Any Item Undef Bool/],
- 0 => [qw/Any Item Defined Bool Value Num Int/],
- 1 => [qw/Any Item Defined Bool Value Num Int/],
- 1.5 => [qw/Any Item Defined Value Num/],
+ 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/],
{} => [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/],
);
}
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);