Re: lib, ext, cpan and dist [PATCH] (take 2)
[perl.git] / ext / ExtUtils-MakeMaker / t / is_of_type.t
1 #!/usr/bin/perl -w
2
3 # Test _is_of_type()
4
5 BEGIN {
6     chdir 't' if -d 't';
7 }
8
9 use lib './lib';
10 use strict;
11 use ExtUtils::MakeMaker;
12
13 use Test::More "no_plan";
14
15 my $is_of_type = \&ExtUtils::MakeMaker::_is_of_type;
16
17 my @tests = (
18     [23,                "",     1],
19     [[],                "",     0],
20     [{},                "",     0],
21     [[],                "HASH", 0],
22     [{},                "HASH", 1],
23     [bless({}, "Foo"),  "Foo",  1],
24     [bless({}, "Bar"),  "Foo",  0],
25     [bless([], "Foo"),  "",     0],
26     [bless([], "Foo"),  "HASH", 0],
27     [bless([], "Foo"),  "ARRAY", 1],
28 );
29
30 for my $test (@tests) {
31     my($thing, $type, $want) = @$test;
32
33     # [rt.cpan.org 41060]
34     local $SIG{__DIE__} = sub { fail("sigdie should be ignored") };
35     is !!$is_of_type->($thing, $type), !!$want, qq[_is_of_type($thing, '$type'): $want];
36 }