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)
authorGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Mar 2000 17:23:47 +0000 (17:23 +0000)
committerGurusamy Sarathy <gsar@cpan.org>
Tue, 14 Mar 2000 17:23:47 +0000 (17:23 +0000)
p4raw-link: @5700 on //depot/perl: 386d01d60781c452398a2c213e241a4169059c2c

p4raw-id: //depot/perl@5732

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