1: perl group extension tests 2001-06-18
2
3E	(?(0)a|b)		a		ESUBREG
4Ex	SAME			a		(0,1)
5E	SAME			b		ESUBREG
6Ex	SAME			b		NOMATCH
7
8K	~((0)a|b)		a		(0,1)
9K	SAME			b		NOMATCH
10K	SAME			~((0)a|b)	(5,6)
11
12E	(?(1)a|b)		a		ESUBREG
13Ex	SAME			a		NOMATCH
14E	SAME			b		ESUBREG
15Ex	SAME			b		(0,1)
16
17K	~((1)a|b)		a		NOMATCH
18K	SAME			b		(0,1)
19K	SAME			~((1)a|b)	(7,8)
20
21E	(a)(?(1)a|b)		aa		(0,2)(0,1)
22E	SAME			ab		NOMATCH
23E	SAME			ba		NOMATCH
24E	SAME			bb		NOMATCH
25
26K	@(a)~((1)a|b)		aa		(0,2)(0,1)
27K	SAME			ab		NOMATCH
28K	SAME			ba		NOMATCH
29K	SAME			bb		NOMATCH
30
31E	((a)|(b))(?(2)a|b)	aa		(0,2)(0,1)(0,1)
32E	SAME			ab		NOMATCH
33E	SAME			ba		NOMATCH
34E	SAME			bb		(0,2)(0,1)(?,?)(0,1)
35
36E	((a)|(b))(?(3)a|b)	aa		NOMATCH
37E	SAME			ab		(0,2)(0,1)(0,1)
38E	SAME			ba		(0,2)(0,1)(?,?)(0,1)
39E	SAME			bb		NOMATCH
40
41Bi	^g.*style$		Grep-Style		(0,10)
42Ei	^g.*style$		Grep-Style		(0,10)
43E	(?+i)^e.*style$		Egrep-Style		(0,11)
44K	~(i)k*style		Ksh-Style		(0,9)
45K	~(Bi)grep-style		Grep-Style		(0,10)
46K	~(Bi)grep-style$	Grep-Style		(0,10)
47K	~(Bi)^grep-style$	Grep-Style		(0,10)
48K	~(Bi)g.*style$		Grep-Style		(0,10)
49K	~(Bi)^g.*style$		Grep-Style		(0,10)
50K	~(Ei)^e.*style$		Egrep-Style		(0,11)
51