From: Gurusamy Sarathy <gsar@cpan.org>
Date: Tue, 14 Mar 2000 17:23:47 +0000 (+0000)
Subject: test case for change#5700 (from M. J. T. Guy)
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=83f7a2bcd26f7d7ec810b4a44e070007e09025e6;p=p5sagit%2Fp5-mst-13.2.git

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
--- 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');