diff options
| author | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-04-24 18:49:43 +0000 |
|---|---|---|
| committer | Nick Ing-Simmons <nik@tiuk.ti.com> | 2001-04-24 18:49:43 +0000 |
| commit | 80ba6418769a50495817febeeb7237998fd69776 (patch) | |
| tree | 4424a1103ee2bcb2a706ee181bd17c6902bfab93 /t/op | |
| parent | f2abfca17d2c5f29ddd8cf5996846c2df1fd3811 (diff) | |
| parent | bfe39e23d8b41befadc635ba303b475817b0e974 (diff) | |
| download | perl-80ba6418769a50495817febeeb7237998fd69776.tar.gz | |
Integrate mainline.
p4raw-id: //depot/perlio@9819
Diffstat (limited to 't/op')
| -rwxr-xr-x | t/op/avhv.t | 8 | ||||
| -rwxr-xr-x | t/op/misc.t | 6 |
2 files changed, 12 insertions, 2 deletions
diff --git a/t/op/avhv.t b/t/op/avhv.t index 5b91fd2147..1ee1da72d6 100755 --- a/t/op/avhv.t +++ b/t/op/avhv.t @@ -17,7 +17,7 @@ sub STORESIZE { $#{$_[0]} = $_[1]+1 } package main; -print "1..28\n"; +print "1..29\n"; $sch = { 'abc' => 1, @@ -176,3 +176,9 @@ print "ok 27\n"; (@extra, %$avhv) = (foo => 42, pants => 53, bar => "HIKE!"); print "not " unless ref $avhv->[0] eq 'HASH' and @extra == 6; print "ok 28\n"; + +# Check hash slices (BUG ID 20010423.002) +$avhv = [{foo=>1, bar=>2}]; +@$avhv{"foo", "bar"} = (42, 53); +print "not " unless $avhv->{foo} == 42 && $avhv->{bar} == 53; +print "ok 29\n"; diff --git a/t/op/misc.t b/t/op/misc.t index 125bfe19dd..4e7d0c613a 100755 --- a/t/op/misc.t +++ b/t/op/misc.t @@ -655,4 +655,8 @@ new_pmop "abcdef"; reset; new_pmop "abcdef"; reset; new_pmop "abcdef"; reset; new_pmop "abcdef"; reset; - +######## +# David Dyck +# coredump in 5.7.1 +close STDERR; die; +EXPECT |