diff options
| author | Barrie Slaymaker <barries@slaysys.com> | 2001-11-13 07:41:36 -0500 |
|---|---|---|
| committer | Abhijit Menon-Sen <ams@wiw.org> | 2001-11-13 17:14:07 +0000 |
| commit | 986114cf9bfbae473e57cd7608bd0a8478eec08b (patch) | |
| tree | 6d99db1bfdcf31ca30f7389be622a21ca19e6996 /t | |
| parent | ea8fae293543a7d3ec6f09254a20517959143189 (diff) | |
| download | perl-986114cf9bfbae473e57cd7608bd0a8478eec08b.tar.gz | |
Re: Why *not* use UNIVERSAL qw( isa can ) ; ??
Message-Id: <20011113124133.C24305@sizzle.whoville.com>
p4raw-id: //depot/perl@12976
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/universal.t | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/t/op/universal.t b/t/op/universal.t index f8c15d761f..00e99fc4e1 100755 --- a/t/op/universal.t +++ b/t/op/universal.t @@ -9,7 +9,7 @@ BEGIN { $| = 1; } -print "1..90\n"; +print "1..91\n"; $a = {}; bless $a, "Bob"; @@ -49,7 +49,7 @@ package main; sub test { print "not " unless $_[0]; print "ok ", $i++; - print "# at ", (caller)[1], ", line ", (caller)[2] unless $_[0]; + print " # at ", (caller)[1], ", line ", (caller)[2] unless $_[0]; print "\n"; } } @@ -68,6 +68,8 @@ test ! $a->isa("Male"); test ! $a->isa('Programmer'); +test $a->isa("HASH"); + test $a->can("eat"); test ! $a->can("sleep"); test my $ref = $a->can("drink"); # returns a coderef |