From: Shawn M Moore <sartak@gmail.com>
Date: Tue, 10 Jun 2008 02:14:05 +0000 (+0000)
Subject: More glob/fh type tests
X-Git-Tag: 0.04~72
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=d2e2ac489f89536141bb34be0919cd65f74de3e9;p=gitmo%2FMouse.git

More glob/fh type tests
---

diff --git a/t/024-isa.t b/t/024-isa.t
index 92454bc..ae8a594 100644
--- a/t/024-isa.t
+++ b/t/024-isa.t
@@ -3,6 +3,7 @@ use strict;
 use warnings;
 use Test::More;
 use Test::Exception;
+use IO::Handle;
 
 my @types = qw/Any Item Bool Undef Defined Value Num Int Str ClassName
                Ref ScalarRef ArrayRef HashRef CodeRef RegexpRef GlobRef
@@ -26,7 +27,9 @@ my @type_values = (
     {}                 => [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/],
 );