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 (executable)
--- 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";