[thirdparty/bash.git] / tests / extglob.tests

#   This program is free software: you can redistribute it and/or modify
#   it under the terms of the GNU General Public License as published by
#   the Free Software Foundation, either version 3 of the License, or
#   (at your option) any later version.
#
#   This program is distributed in the hope that it will be useful,
#   but WITHOUT ANY WARRANTY; without even the implied warranty of
#   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#   GNU General Public License for more details.
#
#   You should have received a copy of the GNU General Public License
#   along with this program.  If not, see <http://www.gnu.org/licenses/>.
#
# test the ksh-like extended globbing features: [!@*?+](patlist)

shopt -s extglob

expect()
{
	echo expect "$@"
}

case "/dev/udp/129.22.8.102/45" in
/dev/@(tcp|udp)/*/*)	echo ok 1;;
*)		echo bad 1;;
esac

# valid numbers
case 12 in
0|[1-9]*([0-9]))	echo ok 2;;
*)			echo bad 2;;
esac

case 12abc in
0|[1-9]*([0-9]))	echo bad 3;;
*)			echo ok 3;;
esac

case 1 in
0|[1-9]*([0-9]))	echo ok 4;;
*)			echo bad 4;;
esac

# octal numbers
case 07 in
+([0-7]))		echo ok 5;;
*)			echo bad 5;;
esac

case 0377 in
+([0-7]))		echo ok 6;;
*)			echo bad 6;;
esac

case 09 in
+([0-7]))		echo bad 7;;
*)			echo ok 7;;
esac

# stuff from korn's book
case paragraph in
para@(chute|graph))	echo ok 8;;
*)			echo bad 8;;
esac

case paramour in
para@(chute|graph))	echo bad 9;;
*)			echo ok 9;;
esac

case para991 in
para?([345]|99)1)	echo ok 10;;
*)			echo bad 10;;
esac

case para381 in
para?([345]|99)1)	echo bad 11;;
*)			echo ok 11;;
esac

case paragraph in
para*([0-9]))		echo bad 12;;
*)			echo ok 12;;
esac

case para in
para*([0-9]))		echo ok 13;;
*)			echo bad 13;;
esac

case para13829383746592 in
para*([0-9]))		echo ok 14;;
*)			echo bad 14;;
esac

case paragraph in
para*([0-9]))		echo bad 15;;
*)			echo ok 15;;
esac

case para in
para+([0-9]))		echo bad 16;;
*)			echo ok 16;;
esac

case para987346523 in
para+([0-9]))		echo ok 17;;
*)			echo bad 17;;
esac

case paragraph in
para!(*.[0-9]))		echo ok 18;;
*)			echo bad 18;;
esac

case para.38 in
para!(*.[0-9]))		echo ok 19;;
*)			echo bad 19;;
esac

case para.graph in
para!(*.[0-9]))		echo ok 20;;
*)			echo bad 20;;
esac

case para39 in
para!(*.[0-9]))		echo ok 21;;
*)			echo bad 21;;
esac

# tests derived from those in rosenblatt's korn shell book

case "" in
*(0|1|3|5|7|9))		echo ok 22;;
*)			echo bad 22;
esac

case 137577991 in
*(0|1|3|5|7|9))		echo ok 23;;
*)			echo bad 23;
esac

case 2468 in
*(0|1|3|5|7|9))		echo bad 24;;
*)			echo ok 24;
esac

case file.c in
*.c?(c))		echo ok 25;;
*)			echo bad 25;;
esac

case file.C in
*.c?(c))		echo bad 26;;
*)			echo ok 26;;
esac

case file.cc in
*.c?(c))		echo ok 27;;
*)			echo bad 27;;
esac

case file.ccc in
*.c?(c))		echo bad 28;;
*)			echo ok 28;;
esac

case parse.y in
!(*.c|*.h|Makefile.in|config*|README))	echo ok 29;;
*)			echo bad 29;;
esac

case shell.c in
!(*.c|*.h|Makefile.in|config*|README))	echo bad 30;;
*)			echo ok 30;;
esac

case Makefile in
!(*.c|*.h|Makefile.in|config*|README))	echo ok 31;;
*)			echo bad 31;;
esac

case "VMS.FILE;1" in
*\;[1-9]*([0-9]))	echo ok 32;;
*)			echo bad 32;;
esac

case "VMS.FILE;0" in
*\;[1-9]*([0-9]))	echo bad 33;;
*)			echo ok 33;;
esac
case "VMS.FILE;" in
*\;[1-9]*([0-9]))	echo bad 34;;
*)			echo ok 34;;
esac
case "VMS.FILE;139" in
*\;[1-9]*([0-9]))	echo ok 35;;
*)			echo bad 35;;
esac
case "VMS.FILE;1N" in
*\;[1-9]*([0-9]))	echo bad 36;;
*)			echo ok 36;;
esac

# tests derived from the pd-ksh test suite

MYDIR=$PWD      # save where we are

: ${TMPDIR:=/var/tmp}
TESTDIR=$TMPDIR/eglob-test-$$
mkdir $TESTDIR
builtin cd $TESTDIR || { echo $0: cannot cd to $TESTDIR >&2 ; exit 1; }
rm -rf *

touch abcx abcz bbc
expect '!([*)*'
echo !([*)*

expect '+(a|b[)*'
echo +(a|b[)*

expect '[a*(]*z'
echo [a*(]*)z

rm -f abcx abcz bbc

touch abc

expect '+()c'
echo +()c
expect '+()x'
echo +()x
expect abc
echo +(*)c
expect '+(*)x'
echo +(*)x

# extended globbing should not be performed on the output of substitutions
x='@(*)'
expect '@(*)'
echo $x

expect 'no-file+(a|b)stuff'
echo no-file+(a|b)stuff
expect 'no-file+(a*(c)|b)stuff'
echo no-file+(a*(c)|b)stuff

touch abd acd

expect 'abd acd'
echo a+(b|c)d

expect 'acd'
echo a!(@(b|B))d

expect 'abd'
echo a[b*(foo|bar)]d

# simple kleene star tests
expect no
case foo in *(a|b[)) echo yes;; *) echo no;; esac

expect yes
case foo in *(a|b[)|f*) echo yes;; *) echo no;; esac

# this doesn't work right yet; it is an incorrectly formed pattern
expect yes
case '*(a|b[)' in *(a|b[)) echo yes;; *) echo no;; esac

# check extended globbing in pattern removal -- these don't work right yet
x=abcdef

expect '1: bcdef'
echo 1: ${x#+(a|abc)}
expect '2: def'
echo 2: ${x##+(a|abc)}
expect '3: abcde'
echo 3: ${x%+(def|f)}
expect '4: abc'
echo 4: ${x%%+(f|def)}

# these work ok

expect '5: ef'
echo 5: ${x#*(a|b)cd}
expect '6: ef'
echo 6: "${x#*(a|b)cd}"
expect '7: abcdef'
echo 7: ${x#"*(a|b)cd"}

# More tests derived from a bug report concerning extended glob patterns
# following a *
builtin cd $TESTDIR || { echo $0: cannot cd to $TESTDIR >&2 ; exit 1; }
rm -rf *

touch ab abcdef abef abcfef

expect 'ab abef'
echo ab*(e|f)

expect 'abcfef abef'
echo ab?*(e|f)

expect abcdef
echo ab*d+(e|f)

expect 'ab abcdef abcfef abef'
echo ab**(e|f)

expect 'abcdef abcfef abef'
echo ab*+(e|f)

case 'abcfefg' in
ab**(e|f))	echo ok 37;;
*)		echo bad 37;;
esac

case 'abcfefg' in
ab**(e|f)g)	echo ok 38;;
*a)		echo bad 38;;
esac

case ab in
ab*+(e|f))	echo bad 39;;
*)		echo ok 39;;
esac

case abef in
ab***ef)	echo ok 40;;
*)		echo bad 40;;
esac

case abef in
ab**)		echo ok 41;;
*)		echo bad 41;;
esac

# bug in all versions up to and including bash-2.05b
case "123abc" in
*?(a)bc)	echo ok 42;;
*)		echo bad 42;;
esac

# clean up and do the next one

builtin cd /
rm -rf $TESTDIR

mkdir $TESTDIR
builtin cd $TESTDIR

LC_COLLATE=C # have to set this; it affects the sorting 
touch a.b a,b a:b a-b a\;b a\ b a_b

echo a[^[:alnum:]]b
echo a[-.,:\;\ _]b

echo a@([^[:alnum:]])b
echo a@([-.,:; _])b
echo a@([.])b
echo a@([^.])b
echo a@([^x])b
echo a+([^[:alnum:]])b

echo a@(.|[^[:alnum:]])b

builtin cd /
rm -rf $TESTDIR

x=abcdef
recho "${x#*(a|b)cd}"

TEST='a , b'
shopt -s globstar
echo ${TEST//*([[:space:]]),*([[:space:]])/,}
shopt -u globstar

# this is for the benefit of pure coverage, so it writes the pcv file
# in the right place
builtin cd "$MYDIR"

${THIS_SH} ./extglob1.sub
${THIS_SH} ./extglob1a.sub
${THIS_SH} ./extglob3.sub
${THIS_SH} ./extglob4.sub
${THIS_SH} ./extglob5.sub
${THIS_SH} ./extglob6.sub
${THIS_SH} ./extglob7.sub

exit 0
Commit	Line	Data
8868edaf CR	1	# This program is free software: you can redistribute it and/or modify
	2	# it under the terms of the GNU General Public License as published by
	3	# the Free Software Foundation, either version 3 of the License, or
	4	# (at your option) any later version.
	5	#
	6	# This program is distributed in the hope that it will be useful,
	7	# but WITHOUT ANY WARRANTY; without even the implied warranty of
	8	# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
	9	# GNU General Public License for more details.
	10	#
	11	# You should have received a copy of the GNU General Public License
	12	# along with this program. If not, see <http://www.gnu.org/licenses/>.
	13	#
cce855bc JA	14	# test the ksh-like extended globbing features: [!@*?+](patlist)
	15
	16	shopt -s extglob
	17
	18	expect()
	19	{
	20	echo expect "$@"
	21	}
	22
	23	case "/dev/udp/129.22.8.102/45" in
	24	/dev/@(tcp\|udp)//) echo ok 1;;
	25	*) echo bad 1;;
	26	esac
	27
	28	# valid numbers
	29	case 12 in
	30	0\|[1-9]*([0-9])) echo ok 2;;
	31	*) echo bad 2;;
	32	esac
	33
	34	case 12abc in
	35	0\|[1-9]*([0-9])) echo bad 3;;
	36	*) echo ok 3;;
	37	esac
	38
	39	case 1 in
	40	0\|[1-9]*([0-9])) echo ok 4;;
	41	*) echo bad 4;;
	42	esac
	43
	44	# octal numbers
	45	case 07 in
	46	+([0-7])) echo ok 5;;
	47	*) echo bad 5;;
	48	esac
	49
	50	case 0377 in
	51	+([0-7])) echo ok 6;;
	52	*) echo bad 6;;
	53	esac
	54
	55	case 09 in
	56	+([0-7])) echo bad 7;;
	57	*) echo ok 7;;
	58	esac
	59
	60	# stuff from korn's book
	61	case paragraph in
	62	para@(chute\|graph)) echo ok 8;;
	63	*) echo bad 8;;
	64	esac
	65
	66	case paramour in
	67	para@(chute\|graph)) echo bad 9;;
	68	*) echo ok 9;;
	69	esac
	70
	71	case para991 in
	72	para?([345]\|99)1) echo ok 10;;
	73	*) echo bad 10;;
	74	esac
	75
	76	case para381 in
	77	para?([345]\|99)1) echo bad 11;;
78	*) echo ok 11;;
79	esac
80
81	case paragraph in
82	para*([0-9])) echo bad 12;;
83	*) echo ok 12;;
84	esac
85
86	case para in
87	para*([0-9])) echo ok 13;;
88	*) echo bad 13;;
89	esac
90
91	case para13829383746592 in
92	para*([0-9])) echo ok 14;;
93	*) echo bad 14;;
94	esac
95
96	case paragraph in
97	para*([0-9])) echo bad 15;;
98	*) echo ok 15;;
99	esac
100
101	case para in
102	para+([0-9])) echo bad 16;;
103	*) echo ok 16;;
104	esac
105
106	case para987346523 in
107	para+([0-9])) echo ok 17;;
108	*) echo bad 17;;
109	esac
110
111	case paragraph in
112	para!(*.[0-9])) echo ok 18;;
113	*) echo bad 18;;
114	esac
115
116	case para.38 in
117	para!(*.[0-9])) echo ok 19;;
118	*) echo bad 19;;
119	esac
120
121	case para.graph in
122	para!(*.[0-9])) echo ok 20;;
123	*) echo bad 20;;
124	esac
125
126	case para39 in
127	para!(*.[0-9])) echo ok 21;;
128	*) echo bad 21;;
129	esac
130
131	# tests derived from those in rosenblatt's korn shell book
132
133	case "" in
134	*(0\|1\|3\|5\|7\|9)) echo ok 22;;
135	*) echo bad 22;
136	esac
137
138	case 137577991 in
139	*(0\|1\|3\|5\|7\|9)) echo ok 23;;
140	*) echo bad 23;
141	esac
142
143	case 2468 in
144	*(0\|1\|3\|5\|7\|9)) echo bad 24;;
145	*) echo ok 24;
146	esac
147
148	case file.c in
149	*.c?(c)) echo ok 25;;
150	*) echo bad 25;;
151	esac
152
153	case file.C in
154	*.c?(c)) echo bad 26;;
155	*) echo ok 26;;
156	esac
157
158	case file.cc in
159	*.c?(c)) echo ok 27;;
160	*) echo bad 27;;
161	esac
162
163	case file.ccc in
164	*.c?(c)) echo bad 28;;
165	*) echo ok 28;;
166	esac
167
168	case parse.y in
169	!(.c\|.h\|Makefile.in\|config*\|README)) echo ok 29;;
170	*) echo bad 29;;
171	esac
172
173	case shell.c in
174	!(.c\|.h\|Makefile.in\|config*\|README)) echo bad 30;;
175	*) echo ok 30;;
176	esac
177
178	case Makefile in
179	!(.c\|.h\|Makefile.in\|config*\|README)) echo ok 31;;
180	*) echo bad 31;;
181	esac
182
183	case "VMS.FILE;1" in
184	\;[1-9]([0-9])) echo ok 32;;
185	*) echo bad 32;;
186	esac
187
188	case "VMS.FILE;0" in
189	\;[1-9]([0-9])) echo bad 33;;
190	*) echo ok 33;;
191	esac
192	case "VMS.FILE;" in
193	\;[1-9]([0-9])) echo bad 34;;
194	*) echo ok 34;;
195	esac
196	case "VMS.FILE;139" in
197	\;[1-9]([0-9])) echo ok 35;;
198	*) echo bad 35;;
199	esac
200	case "VMS.FILE;1N" in
201	\;[1-9]([0-9])) echo bad 36;;
202	*) echo ok 36;;
203	esac
204
205	# tests derived from the pd-ksh test suite
206
207	MYDIR=$PWD # save where we are
208
0001803f CR	209	: ${TMPDIR:=/var/tmp}
0001803f CR	210	TESTDIR=$TMPDIR/eglob-test-$$
cce855bc JA	211	mkdir $TESTDIR
	212	builtin cd $TESTDIR \|\| { echo $0: cannot cd to $TESTDIR >&2 ; exit 1; }
	213	rm -rf *
	214
	215	touch abcx abcz bbc
	216	expect '!([)'
	217	echo !([)
	218
	219	expect '+(a\|b[)*'
	220	echo +(a\|b[)*
	221
	222	expect '[a(]z'
	223	echo [a(])z
	224
	225	rm -f abcx abcz bbc
	226
	227	touch abc
	228
	229	expect '+()c'
	230	echo +()c
	231	expect '+()x'
	232	echo +()x
	233	expect abc
	234	echo +(*)c
	235	expect '+(*)x'
	236	echo +(*)x
	237
	238	# extended globbing should not be performed on the output of substitutions
	239	x='@(*)'
	240	expect '@(*)'
	241	echo $x
	242
	243	expect 'no-file+(a\|b)stuff'
	244	echo no-file+(a\|b)stuff
	245	expect 'no-file+(a*(c)\|b)stuff'
	246	echo no-file+(a*(c)\|b)stuff
	247
	248	touch abd acd
	249
	250	expect 'abd acd'
	251	echo a+(b\|c)d
	252
	253	expect 'acd'
	254	echo a!(@(b\|B))d
	255
	256	expect 'abd'
	257	echo a[b*(foo\|bar)]d
	258
	259	# simple kleene star tests
	260	expect no
	261	case foo in (a\|b[)) echo yes;; ) echo no;; esac
	262
	263	expect yes
	264	case foo in (a\|b[)\|f) echo yes;; *) echo no;; esac
	265
	266	# this doesn't work right yet; it is an incorrectly formed pattern
	267	expect yes
	268	case '(a\|b[)' in (a\|b[)) echo yes;; *) echo no;; esac
	269
	270	# check extended globbing in pattern removal -- these don't work right yet
	271	x=abcdef
	272
	273	expect '1: bcdef'
	274	echo 1: ${x#+(a\|abc)}
275	expect '2: def'
276	echo 2: ${x##+(a\|abc)}
277	expect '3: abcde'
278	echo 3: ${x%+(def\|f)}
279	expect '4: abc'
280	echo 4: ${x%%+(f\|def)}
281
282	# these work ok
283
284	expect '5: ef'
285	echo 5: ${x#*(a\|b)cd}
286	expect '6: ef'
287	echo 6: "${x#*(a\|b)cd}"
288	expect '7: abcdef'
289	echo 7: ${x#"*(a\|b)cd"}
290
b72432fd JA	291	# More tests derived from a bug report concerning extended glob patterns
	292	# following a *
	293	builtin cd $TESTDIR \|\| { echo $0: cannot cd to $TESTDIR >&2 ; exit 1; }
	294	rm -rf *
	295
	296	touch ab abcdef abef abcfef
	297
	298	expect 'ab abef'
	299	echo ab*(e\|f)
	300
	301	expect 'abcfef abef'
	302	echo ab?*(e\|f)
	303
	304	expect abcdef
	305	echo ab*d+(e\|f)
	306
	307	expect 'ab abcdef abcfef abef'
	308	echo ab**(e\|f)
	309
	310	expect 'abcdef abcfef abef'
	311	echo ab*+(e\|f)
	312
	313	case 'abcfefg' in
	314	ab**(e\|f)) echo ok 37;;
	315	*) echo bad 37;;
	316	esac
	317
	318	case 'abcfefg' in
	319	ab**(e\|f)g) echo ok 38;;
	320	*a) echo bad 38;;
	321	esac
	322
	323	case ab in
	324	ab*+(e\|f)) echo bad 39;;
	325	*) echo ok 39;;
	326	esac
	327
	328	case abef in
	329	ab***ef) echo ok 40;;
	330	*) echo bad 40;;
	331	esac
	332
	333	case abef in
	334	ab**) echo ok 41;;
	335	*) echo bad 41;;
	336	esac
	337
b80f6443 JA	338	# bug in all versions up to and including bash-2.05b
	339	case "123abc" in
	340	*?(a)bc) echo ok 42;;
	341	*) echo bad 42;;
	342	esac
	343
b72432fd JA	344	# clean up and do the next one
	345
	346	builtin cd /
	347	rm -rf $TESTDIR
	348
	349	mkdir $TESTDIR
	350	builtin cd $TESTDIR
	351
bb70624e	352	LC_COLLATE=C # have to set this; it affects the sorting
b72432fd JA	353	touch a.b a,b a:b a-b a\;b a\ b a_b
	354
	355	echo a[^[:alnum:]]b
	356	echo a[-.,:\;\ _]b
	357
	358	echo a@([^[:alnum:]])b
	359	echo a@([-.,:; _])b
	360	echo a@([.])b
	361	echo a@([^.])b
	362	echo a@([^x])b
	363	echo a+([^[:alnum:]])b
	364
	365	echo a@(.\|[^[:alnum:]])b
cce855bc JA	366
	367	builtin cd /
	368	rm -rf $TESTDIR
	369
95732b49 JA	370	x=abcdef
	371	recho "${x#*(a\|b)cd}"
	372
3185942a JA	373	TEST='a , b'
	374	shopt -s globstar
	375	echo ${TEST//([[:space:]]),([[:space:]])/,}
	376	shopt -u globstar
	377
cce855bc JA	378	# this is for the benefit of pure coverage, so it writes the pcv file
cce855bc JA	379	# in the right place
3185942a	380	builtin cd "$MYDIR"
cce855bc	381
0628567a	382	${THIS_SH} ./extglob1.sub
ac50fbac	383	${THIS_SH} ./extglob1a.sub
a0c0a00f	384	${THIS_SH} ./extglob3.sub
a0c0a00f	385	${THIS_SH} ./extglob4.sub
d233b485	386	${THIS_SH} ./extglob5.sub
74091dd4 CR	387	${THIS_SH} ./extglob6.sub
74091dd4 CR	388	${THIS_SH} ./extglob7.sub
d233b485	389
cce855bc	390	exit 0