diff options
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 |