1N/A chdir 't' if -d 't'; 1N/Amy $i = 0; # stop -w complaints 1N/A# quick check with tied array 1N/A# quick check with tied array 1N/A# quick check with tied array & tied hash 1N/A# evaluation in scalar context 1N/A$avhv = [{foo=>1, bar=>2}]; 1N/Alike (%$avhv, qr,^\d+/\d+,); 1N/A# check if defelem magic works 1N/A$a = [{key => 1}, 'a']; 1N/A# check if exists() is behaving properly 1N/A$avhv = [{foo=>1,bar=>2,pants=>3}]; 1N/Aok (!exists $avhv->{bar}); 1N/A$avhv->{pants} = undef; 1N/Aok (exists $avhv->{pants}); 1N/Aok (!exists $avhv->{bar}); 1N/Aok (exists $avhv->{bar}); 1N/Ais ($avhv->{bar}, 10); 1N/Amy $v = delete $avhv->{bar}; 1N/Aok (!exists $avhv->{bar}); 1N/Ais ("@x", "xxx zzz"); 1N/Ais ("$avhv->{bar}", "yyy"); 1N/Aok (!grep defined, values %hv); 1N/Aok (!grep ref, keys %hv); 1N/A%$avhv = (foo => 29, pants => 2, bar => 0); 1N/Ais ("@$avhv[1..3]", '29 0 2'); 1N/A($extra, %$avhv) = ("moo", foo => 42, pants => 53, bar => "HIKE!"); 1N/A(%$avhv, $extra) = (foo => 42, pants => 53, bar => "HIKE!"); 1N/Aok (!defined $extra); 1N/A@extra = qw(whatever and stuff); 1N/A(%$avhv, @extra) = (foo => 42, pants => 53, bar => "HIKE!"); 1N/A(@extra, %$avhv) = (foo => 42, pants => 53, bar => "HIKE!"); 1N/A# Check hash slices (BUG ID 20010423.002) 1N/A$avhv = [{foo=>1, bar=>2}]; 1N/A@$avhv{"foo", "bar"} = (42, 53); 1N/Ais ($avhv->{foo}, 42); 1N/Ais ($avhv->{bar}, 53);