Drop all the unnecessary "use utf8" clauses and some of

[p5sagit/p5-mst-13.2.git] / t / op / universal.t

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";