Lines Matching refs:a
17 my @a = ("foo", "bar");
18 my @b = reverse @a;
20 is($b[0], $a[1], 'array reversal moved second element to first');
21 is($b[1], $a[0], 'array reversal moved first element to second');
25 my @a = (1, 2, 3, 4);
26 @a = reverse @a;
29 delete $a[1];
30 @a = reverse @a;
31 ok(!exists $a[2], 'array reversed with deleted second element');
32 is($a[0] . $a[1] . $a[3], '124', 'remaining elements ok after delete and reverse');
34 @a = (5, 6, 7, 8, 9);
35 @a = reverse @a;
38 delete $a[3];
39 @a = reverse @a;
40 ok(!exists $a[1], 'five element array reversed with deleted fourth element');
41 is($a[0] . $a[2] . $a[3] . $a[4], '5789', 'remaining elements ok after delete and reverse');
43 delete $a[2];
44 @a = reverse @a;
45 ok(!exists $a[2] && !exists $a[3], 'test position of two deleted elements after reversal');
46 is($a[0] . $a[1] . $a[4], '985', 'check value of remaining elements');
56 tie my @a, 'Tie::StdArray';
58 @a = (1, 2, 3, 4);
59 @a = reverse @a;
62 delete $a[1];
63 @a = reverse @a;
64 ok(!exists $a[2], 'deleted element position ok after reversal of tie array');
65 … is($a[0] . $a[1] . $a[3], '124', 'remaining elements ok after delete and reversal for tie array');
67 @a = (5, 6, 7, 8, 9);
68 @a = reverse @a;
71 delete $a[3];
72 @a = reverse @a;
73 ok(!exists $a[1], 'deleted element position ok after tie array reversal');
74 …is($a[0] . $a[2] . $a[3] . $a[4], '5789', 'remaining elements ok after tie array delete and revers…
76 delete $a[2];
77 @a = reverse @a;
78 ok(!exists $a[2] && !exists $a[3], 'two deleted element positions ok after tie array reversal');
79 is($a[0] . $a[1] . $a[4], '985', 'remaining elements ok after two deletes and reversals');
89 my $a = "\x{263A}\x{263A}x\x{263A}y\x{263A}";
90 my $b = scalar reverse($a);
92 is($a, $c, 'Unicode string double reversal matches original');