/
D05array.ztst
112 lines (89 loc) · 1.6 KB
/
D05array.ztst
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
# Tests for array indexing
%prep
foo=(a b c d e f g)
arr=(foo bar baz)
mkdir array.tmp
touch array.tmp/{1..9}
%test
echo .$foo[1].
0:The first element
>.a.
echo .$foo[1,4].
0:Normal multi-item indexing
>.a b c d.
echo .$foo[1,0].
0:This should be empty
>..
echo .$foo[4,1].
0:Another empty slice
>..
echo .$foo[1,-8].
0:An empty slice with a negative end
>..
echo .$foo[0].
0:Treat 0 as empty
>..
echo .$foo[0,0].
0:Treat 0,0 as empty
>..
echo .$foo[0,1].
0:Another weird way to access the first element
>.a.
echo .$foo[3].
0:An inner element
>.c.
echo .$foo[2,2].
0:Another inner element
>.b.
echo .$foo[2,-4].
0:A slice with a negative end
>.b c d.
echo .$foo[-4,5].
0:A slice with a negative start
>.d e.
echo .$foo[-6,-2].
0:A slice with a negative start and end
>.b c d e f.
echo .${${arr[2]}[1]}.
echo .${${arr[-2]}[1]}.
echo .${${arr[2,2]}[1]}.
echo .${${arr[-2,-2]}[1]}.
echo .${${arr[2,-2]}[1]}.
echo .${${arr[-2,2]}[1]}.
0:Slices should return an array, elements a scalar
>.b.
>.b.
>.bar.
>.bar.
>.bar.
>.bar.
setopt ksh_arrays
echo .${foo[1,2]}.
unsetopt ksh_arrays
0:Ksh array indexing
>.b c.
setopt ksh_arrays
echo .${foo[0,1]}.
unsetopt ksh_arrays
0:Ksh array indexing (ii)
>.a b.
setopt ksh_arrays
echo .${foo[1,-1]}.
unsetopt ksh_arrays
0:Ksh array indexing (iii)
>.b c d e f g.
cd array.tmp
echo . ?([3,5]) .
cd ..
0:Glob array indexing
>. 3 4 5 .
cd array.tmp
echo . ?([2,-2]) .
cd ..
0:Glob array indexing (ii)
>. 2 3 4 5 6 7 8 .
cd array.tmp
echo . ?([-6,-4]) .
cd ..
0:Glob array indexing (iii)
>. 4 5 6 .