From: Mike Guy <mjtg@cam.ac.uk>
Date: Wed, 23 May 2001 12:29:20 +0000 (+0100)
Subject: Extra UNIVERSAL tests
X-Git-Tag: accepted/trunk/20130322.191538~31881
X-Git-Url: http://review.tizen.org/git/?a=commitdiff_plain;h=b4c2bf25e07c61dbbe9f49212bf3585b479358e1;p=platform%2Fupstream%2Fperl.git

Extra UNIVERSAL tests
Message-Id: <E152WpM-0001yP-00@virgo.cus.cam.ac.uk>

p4raw-id: //depot/perl@10186
---

diff --git a/t/op/universal.t b/t/op/universal.t
index e6db8e6..23c616c 100755
--- a/t/op/universal.t
+++ b/t/op/universal.t
@@ -9,7 +9,7 @@ BEGIN {
     $| = 1;
 }
 
-print "1..80\n";
+print "1..84\n";
 
 $a = {};
 bless $a, "Bob";
@@ -119,6 +119,14 @@ if ('a' lt 'A') {
 
 test $a->isa("UNIVERSAL");
 
+test ! UNIVERSAL::isa([], "UNIVERSAL");
+
+test ! UNIVERSAL::can({}, "can");
+
+test UNIVERSAL::isa(Alice => "UNIVERSAL");
+
+test UNIVERSAL::can(Alice => "can") == \&UNIVERSAL::can;
+
 # now use UNIVERSAL.pm and see what changes
 eval "use UNIVERSAL";