This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
test case for change#5700 (from M. J. T. Guy)
[perl5.git] / t / op / universal.t
index 7de8199..a6bd03d 100755 (executable)
@@ -8,7 +8,7 @@ BEGIN {
     unshift @INC, '../lib' if -d '../lib';
 }
 
-print "1..72\n";
+print "1..73\n";
 
 $a = {};
 bless $a, "Bob";
@@ -102,3 +102,5 @@ test $a->can("sleep");
 test ! UNIVERSAL::can($b, "can");
 
 test ! $a->can("export_tags"); # a method in Exporter
+
+test ! UNIVERSAL::isa("\xff\xff\xff\0", 'HASH');