test case for change#5700 (from M. J. T. Guy)

p4raw-link: @5700 on //depot/perl: 386d01d60781c452398a2c213e241a4169059c2c

p4raw-id: //depot/perl@5732

diff --git a/t/op/universal.t b/t/op/universal.t
index 7de8199..a6bd03d 100755 (executable)
--- a/t/op/universal.t
+++ b/t/op/universal.t
@@ -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');