1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
|
#!perl
use warnings;
use strict;
use Test::More tests => 5;
use Carp::Assert::More;
use IO::File; # just for creating objects
local $@;
$@ = '';
eval {
my $fh = new IO::File;
assert_isa( $fh, 'IO::File', 'Created an IO::File object' );
assert_isa( $fh, 'GLOB', 'Created an IO::File object, which is a GLOB' );
};
is( $@, '' );
eval { # integer is not an object
my $random = 2112;
assert_isa( $random, 'IO::File', 'Created an IO::File object' );
};
like( $@, qr/Assertion.*failed/ );
eval { # undef is not an object
my $random = undef;
assert_isa( $random, 'IO::File', 'Created an IO::File object' );
};
like( $@, qr/Assertion.*failed/ );
eval {
my @array;
assert_isa( \@array, 'HASH', 'An array is not a hash' );
};
like( $@, qr/Assertion.*failed/ );
eval {
my %hash;
assert_isa( \%hash, 'HASH', 'Created a hash' );
};
is( $@, '' );
|
