diff options
| author | Gisle Aas <gisle@aas.no> | 1998-06-30 15:34:07 +0200 |
|---|---|---|
| committer | Gurusamy Sarathy <gsar@cpan.org> | 1998-07-04 02:53:26 +0000 |
| commit | 57079c468e190b483eeed1dc905fcaa88d70475e (patch) | |
| tree | 142f286d1dd853167dbad2277eb85f422a634489 /t/op/avhv.t | |
| parent | 0a528a3542746230f4fc096636f17a8e901151fc (diff) | |
| download | perl-57079c468e190b483eeed1dc905fcaa88d70475e.tar.gz | |
applied patch with tweaks to prose
Subject: [PATCH] Simplified AVHV support
Message-ID: <m3k95z86og.fsf@furu.g.aas.no>
p4raw-id: //depot/perl@1286
Diffstat (limited to 't/op/avhv.t')
| -rwxr-xr-x | t/op/avhv.t | 5 |
1 files changed, 2 insertions, 3 deletions
diff --git a/t/op/avhv.t b/t/op/avhv.t index 84d3f270fb..e01201e845 100755 --- a/t/op/avhv.t +++ b/t/op/avhv.t @@ -32,12 +32,11 @@ $a->[0] = $sch; $a->{'abc'} = 'ABC'; $a->{'def'} = 'DEF'; $a->{'jkl'} = 'JKL'; -$a->{'a'} = 'A'; #should extend schema @keys = keys %$a; @values = values %$a; -if ($#keys == 3 && $#values == 3) {print "ok 1\n";} else {print "not ok 1\n";} +if ($#keys == 2 && $#values == 2) {print "ok 1\n";} else {print "not ok 1\n";} $i = 0; # stop -w complaints @@ -48,7 +47,7 @@ while (($key,$value) = each %$a) { } } -if ($i == 4) {print "ok 2\n";} else {print "not ok 2\n";} +if ($i == 3) {print "ok 2\n";} else {print "not ok 2\n";} # quick check with tied array tie @fake, 'Tie::StdArray'; |