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
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
|
(load "../common")
(if (eq (os-symbol) :cygwin)
(exit))
(mtest
(bexp "~/{Downloads,Pictures}/*.{jpg,gif,png}")
#"~/Downloads/*.jpg ~/Downloads/*.gif ~/Downloads/*.png \
~/Pictures/*.jpg ~/Pictures/*.gif ~/Pictures/*.png"
(bexp "It{{em,alic}iz,erat}e{d,}, please.")
("Itemized, please." "Itemize, please." "Italicized, please."
"Italicize, please." "Iterated, please." "Iterate, please.")
(bexp "{,{,gotta have{ ,\\, again\\, }}more }cowbell!")
("cowbell!" "more cowbell!" "gotta have more cowbell!"
"gotta have\\, again\\, more cowbell!")
(bexp "{}} some }{,{\\\\{ edge, edge} \\,}{ cases, {here} \\\\\\\\\\}")
("{}} some }{,{\\\\ edge \\,}{ cases, {here} \\\\\\\\\\}"
"{}} some }{,{\\\\ edge \\,}{ cases, {here} \\\\\\\\\\}"))
(mtest
(bexp "{..}")
("")
(bexp "{..a}")
("{..a}")
(bexp "{a..}")
("{a..}")
(bexp "{a..b}")
#"a b"
(bexp "{aa..cc}")
#"aa ab ac ba bb bc ca cb cc"
(bexp "x{aa..cc}")
#"xaa xab xac xba xbb xbc xca xcb xcc"
(bexp "{aa..cc}y")
#"aay aby acy bay bby bcy cay cby ccy"
(bexp "x{aa..cc}y")
#"xaay xaby xacy xbay xbby xbcy xcay xcby xccy"
(bexp "x{aa..ccc}y")
#"x{aa..ccc}y"
(bexp "x{a..b..c}y")
#"x{a..b..c}y"
(bexp "x{a..b..0}y")
#"x{a..b..0}y"
(bexp "x{a..b..1}y")
#"xay xby"
(bexp "x{aa..cc..2}y")
#"xaay xacy xbby xcay xccy"
(bexp "x{aa..cc..2..}y")
#"x{aa..cc..2..}y"
(bexp "x{aa..cc..{2,3}..}y")
#"x{aa..cc..2..}y x{aa..cc..3..}y")
(mtest
(bexp "{0..0}")
#"0"
(bexp "{0..1}")
#"0 1"
(bexp "{9..11}")
#"9 10 11"
(bexp "{9..11..2}")
#"9 11"
(bexp "{9..11..3}")
#"9"
(bexp "{09..11}")
#"09 10 11"
(bexp "{997..1001}")
#"997 998 999 1000 1001"
(bexp "{0997..1001}")
#"0997 0998 0999 1000 1001"
(bexp "{1..0}")
#"1 0"
(bexp "{11..9}")
#"11 10 9"
(bexp "{11..9..2}")
#"11 9"
(bexp "{11..9..3}")
#"11"
(bexp "{11..09}")
#"11 10 09"
(bexp "{1001..997}")
#"1001 1000 999 998 997"
(bexp "{1001..0997}")
#"1001 1000 0999 0998 0997")
(mtest
(bexp "{a..c}{-,+}{1..2}")
#"a-1 a-2 a+1 a+2 b-1 b-2 b+1 b+2 c-1 c-2 c+1 c+2"
(bexp "x{a..c}y{-,+}z{1..2}w")
#"xay-z1w xay-z2w xay+z1w xay+z2w xby-z1w xby-z2w \
xby+z1w xby+z2w xcy-z1w xcy-z2w xcy+z1w xcy+z2w")
(test
(bexp "x{a,b,{1..3}}y")
#"xay xby x1y x2y x3y")
(mtest
(glob* "tests/**/002") ("tests/002")
(glob* "tests/**/{003,004}") ("tests/003" "tests/004"))
(chdir "tests/002/proc")
(mtest
(glob* "**")
("1" "1/status" "1/tasks" "103" "103/status" "103/tasks" "1068"
"1068/status" "1068/tasks" "1235" "1235/status" "1235/tasks"
"1236" "1236/status" "1236/tasks" "15812" "15812/status" "15812/tasks"
"16" "16/status" "16/tasks" "1620" "1620/status" "1620/tasks"
"1624" "1624/status" "1624/tasks" "16248" "16248/status" "16248/tasks"
"16249" "16249/status" "16249/tasks" "1645" "1645/status" "1645/tasks"
"16598" "16598/tasks" "1665" "1665/status" "1665/tasks" "1698"
"1698/status" "1698/tasks" "17" "17/status" "17/tasks" "175"
"175/status" "175/tasks" "1766" "1766/status" "1766/tasks" "1790"
"1790/status" "1790/tasks" "1791" "1791/status" "1791/tasks"
"1821" "1821/status" "1821/tasks" "1839" "1839/status" "1839/tasks"
"1851" "1851/status" "1851/tasks" "186" "186/status" "186/tasks"
"18614" "18614/tasks" "1887" "1887/status" "1887/tasks" "1902"
"1902/status" "1902/tasks" "1921" "1921/status" "1921/tasks"
"1925" "1925/status" "1925/tasks" "1926" "1926/status" "1926/tasks"
"1927" "1927/status" "1927/tasks" "1928" "1928/status" "1928/tasks"
"1929" "1929/status" "1929/tasks" "1930" "1930/status" "1930/tasks"
"1931" "1931/status" "1931/tasks" "1932" "1932/status" "1932/tasks"
"1936" "1936/status" "1936/tasks" "1963" "1963/status" "1963/tasks"
"1989" "1989/status" "1989/tasks" "2" "2/status" "2/tasks" "2008"
"2008/status" "2008/tasks" "2027" "2027/status" "2027/tasks"
"2041" "2041/status" "2041/tasks" "2052" "2052/status" "2052/tasks"
"2062" "2062/status" "2062/tasks" "2124" "2124/status" "2124/tasks"
"2184" "2184/status" "2184/tasks" "2354" "2354/status" "2354/tasks"
"24134" "24134/tasks" "2551" "2551/status" "2551/tasks" "2579"
"2579/status" "2579/tasks" "2625" "2625/status" "2625/tasks"
"2626" "2626/status" "2626/tasks" "2631" "2631/status" "2631/tasks"
"2634" "2634/status" "2634/tasks" "2636" "2636/status" "2636/tasks"
"2638" "2638/status" "2638/tasks" "2644" "2644/status" "2644/tasks"
"2661" "2661/status" "2661/tasks" "2685" "2685/status" "2685/tasks"
"2689" "2689/status" "2689/tasks" "2691" "2691/status" "2691/tasks"
"2693" "2693/status" "2693/tasks" "2695" "2695/status" "2695/tasks"
"2698" "2698/status" "2698/tasks" "2701" "2701/status" "2701/tasks"
"2707" "2707/status" "2707/tasks" "27121" "27121/status" "27121/tasks"
"2717" "2717/status" "2717/tasks" "2718" "2718/status" "2718/tasks"
"2720" "2720/status" "2720/tasks" "2722" "2722/status" "2722/tasks"
"27243" "27243/status" "27243/tasks" "2726" "2726/status" "2726/tasks"
"2728" "2728/status" "2728/tasks" "27682" "27682/status" "27682/tasks"
"27684" "27684/status" "27684/tasks" "27685" "27685/status" "27685/tasks"
"28" "28/status" "28/tasks" "29" "29/status" "29/tasks" "29840"
"29840/status" "29840/tasks" "3" "3/status" "3/tasks" "30737"
"30737/status" "30737/tasks" "31905" "31905/status" "31905/tasks"
"31907" "31907/status" "31907/tasks" "31908" "31908/status" "31908/tasks"
"32672" "32672/status" "32672/tasks" "32674" "32674/status" "32674/tasks"
"32675" "32675/status" "32675/tasks" "4" "4/status" "4/tasks"
"5" "5/status" "5/tasks" "870" "870/status" "870/tasks")
(glob "**/")
("1/" "103/" "1068/" "1235/" "1236/" "15812/" "16/" "1620/" "1624/"
"16248/" "16249/" "1645/" "16598/" "1665/" "1698/" "17/" "175/"
"1766/" "1790/" "1791/" "1821/" "1839/" "1851/" "186/" "18614/"
"1887/" "1902/" "1921/" "1925/" "1926/" "1927/" "1928/" "1929/"
"1930/" "1931/" "1932/" "1936/" "1963/" "1989/" "2/" "2008/"
"2027/" "2041/" "2052/" "2062/" "2124/" "2184/" "2354/" "24134/"
"2551/" "2579/" "2625/" "2626/" "2631/" "2634/" "2636/" "2638/"
"2644/" "2661/" "2685/" "2689/" "2691/" "2693/" "2695/" "2698/"
"2701/" "2707/" "27121/" "2717/" "2718/" "2720/" "2722/" "27243/"
"2726/" "2728/" "27682/" "27684/" "27685/" "28/" "29/" "29840/"
"3/" "30737/" "31905/" "31907/" "31908/" "32672/" "32674/" "32675/"
"4/" "5/" "870/"))
(chdir "../..")
(mtest
(glob* "**/3*/**")
("002/proc/3/" "002/proc/3/status" "002/proc/3/tasks" "002/proc/30737/"
"002/proc/30737/status" "002/proc/30737/tasks" "002/proc/31905/"
"002/proc/31905/status" "002/proc/31905/tasks" "002/proc/31907/"
"002/proc/31907/status" "002/proc/31907/tasks" "002/proc/31908/"
"002/proc/31908/status" "002/proc/31908/tasks" "002/proc/32672/"
"002/proc/32672/status" "002/proc/32672/tasks" "002/proc/32674/"
"002/proc/32674/status" "002/proc/32674/tasks" "002/proc/32675/"
"002/proc/32675/status" "002/proc/32675/tasks")
(glob* "**/{3,4,5}*/**")
("002/proc/3/" "002/proc/3/status" "002/proc/3/tasks" "002/proc/30737/"
"002/proc/30737/status" "002/proc/30737/tasks" "002/proc/31905/"
"002/proc/31905/status" "002/proc/31905/tasks" "002/proc/31907/"
"002/proc/31907/status" "002/proc/31907/tasks" "002/proc/31908/"
"002/proc/31908/status" "002/proc/31908/tasks" "002/proc/32672/"
"002/proc/32672/status" "002/proc/32672/tasks" "002/proc/32674/"
"002/proc/32674/status" "002/proc/32674/tasks" "002/proc/32675/"
"002/proc/32675/status" "002/proc/32675/tasks" "002/proc/4/"
"002/proc/4/status" "002/proc/4/tasks" "002/proc/5/" "002/proc/5/status"
"002/proc/5/tasks")
(glob* "**/{3,4,5}*/**" glob-xnobrace)
nil
(len (glob* "**/proc/**/**"))
366)
(if (neq (os-symbol) :solaris)
(test
(glob* "002/proc\\/**")
("002/proc/1" "002/proc/103" "002/proc/1068" "002/proc/1235" "002/proc/1236"
"002/proc/15812" "002/proc/16" "002/proc/1620" "002/proc/1624"
"002/proc/16248" "002/proc/16249" "002/proc/1645" "002/proc/16598"
"002/proc/1665" "002/proc/1698" "002/proc/17" "002/proc/175"
"002/proc/1766" "002/proc/1790" "002/proc/1791" "002/proc/1821"
"002/proc/1839" "002/proc/1851" "002/proc/186" "002/proc/18614"
"002/proc/1887" "002/proc/1902" "002/proc/1921" "002/proc/1925"
"002/proc/1926" "002/proc/1927" "002/proc/1928" "002/proc/1929"
"002/proc/1930" "002/proc/1931" "002/proc/1932" "002/proc/1936"
"002/proc/1963" "002/proc/1989" "002/proc/2" "002/proc/2008"
"002/proc/2027" "002/proc/2041" "002/proc/2052" "002/proc/2062"
"002/proc/2124" "002/proc/2184" "002/proc/2354" "002/proc/24134"
"002/proc/2551" "002/proc/2579" "002/proc/2625" "002/proc/2626"
"002/proc/2631" "002/proc/2634" "002/proc/2636" "002/proc/2638"
"002/proc/2644" "002/proc/2661" "002/proc/2685" "002/proc/2689"
"002/proc/2691" "002/proc/2693" "002/proc/2695" "002/proc/2698"
"002/proc/2701" "002/proc/2707" "002/proc/27121" "002/proc/2717"
"002/proc/2718" "002/proc/2720" "002/proc/2722" "002/proc/27243"
"002/proc/2726" "002/proc/2728" "002/proc/27682" "002/proc/27684"
"002/proc/27685" "002/proc/28" "002/proc/29" "002/proc/29840"
"002/proc/3" "002/proc/30737" "002/proc/31905" "002/proc/31907"
"002/proc/31908" "002/proc/32672" "002/proc/32674" "002/proc/32675"
"002/proc/4" "002/proc/5" "002/proc/870")))
|
