diff options
| author | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-14 17:23:47 +0000 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 2000-03-14 17:23:47 +0000 |
| commit | 83f7a2bcd26f7d7ec810b4a44e070007e09025e6 (patch) | |
| tree | 75673c639b826ade6f9097ac7b17c1c159939c68 /t | |
| parent | 63f87e493b935d228b65680cfa65fe182cf034d7 (diff) | |
| download | perl-83f7a2bcd26f7d7ec810b4a44e070007e09025e6.tar.gz | |
test case for change#5700 (from M. J. T. Guy)
p4raw-link: @5700 on //depot/perl: 386d01d60781c452398a2c213e241a4169059c2c
p4raw-id: //depot/perl@5732
Diffstat (limited to 't')
| -rwxr-xr-x | t/op/universal.t | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/t/op/universal.t b/t/op/universal.t index 7de8199132..a6bd03dbe9 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'); |