comparison ssi_if.t @ 234:62114a0c1389

Tests: skip ssi if regex tests without the rewrite module.
author Valentin Bartenev <ne@vbart.ru>
date Tue, 11 Sep 2012 19:29:14 +0400
parents 241b522ce7a5
children 6a0d934950bc
comparison
equal deleted inserted replaced
233:1a5574d84917 234:62114a0c1389
93 93
94 like(http_get('/if_neq.html?v=notequal'), qr/^xOKx$/m, 'if text != var'); 94 like(http_get('/if_neq.html?v=notequal'), qr/^xOKx$/m, 'if text != var');
95 like(http_get('/if_neq.html?v=equal'), qr/^xx$/m, 'if text != var (false)'); 95 like(http_get('/if_neq.html?v=equal'), qr/^xx$/m, 'if text != var (false)');
96 96
97 97
98 $t->write_file('if_eq_re.html', 98 SKIP: {
99 'x<!--#if expr="$arg_v = /re+gexp?/" -->OK<!--#endif -->x'); 99 # PCRE may not be available unless we have rewrite module
100 100
101 like(http_get('/if_eq_re.html?v=XreeeegexX'), qr/^xOKx$/m, 'if var = /regex/'); 101 skip 'no PCRE', 4 unless $t->has_module('rewrite');
102 like(http_get('/if_eq_re.html?v=XrgxX'), qr/^xx$/m, 'if var = /regex/ (false)'); 102
103 103 $t->write_file('if_eq_re.html',
104 104 'x<!--#if expr="$arg_v = /re+gexp?/" -->OK<!--#endif -->x');
105 $t->write_file('if_neq_re.html', 105
106 'x<!--#if expr="$arg_v != /re+gexp?/" -->OK<!--#endif -->x'); 106 like(http_get('/if_eq_re.html?v=XreeeegexX'), qr/^xOKx$/m,
107 107 'if var = /regex/');
108 like(http_get('/if_neq_re.html?v=XrgxX'), qr/^xOKx$/m, 'if var != /regex/'); 108 like(http_get('/if_eq_re.html?v=XrgxX'), qr/^xx$/m,
109 like(http_get('/if_neq_re.html?v=XreeeegexX'), qr/^xx$/m, 109 'if var = /regex/ (false)');
110 'if var != /regex/ (false)'); 110
111
112 $t->write_file('if_neq_re.html',
113 'x<!--#if expr="$arg_v != /re+gexp?/" -->OK<!--#endif -->x');
114
115 like(http_get('/if_neq_re.html?v=XrgxX'), qr/^xOKx$/m,
116 'if var != /regex/');
117 like(http_get('/if_neq_re.html?v=XreeeegexX'), qr/^xx$/m,
118 'if var != /regex/ (false)');
119 }
111 120
112 121
113 $t->write_file('if_varvar.html', 122 $t->write_file('if_varvar.html',
114 'x<!--#if expr="$arg_v = var$arg_v2" -->OK<!--#endif -->x'); 123 'x<!--#if expr="$arg_v = var$arg_v2" -->OK<!--#endif -->x');
115 124
116 like(http_get('/if_varvar.html?v=varHERE&v2=HERE'), qr/^xOKx$/m, 125 like(http_get('/if_varvar.html?v=varHERE&v2=HERE'), qr/^xOKx$/m,
117 'if var = complex'); 126 'if var = complex');
118 127
119 128
120 $t->write_file('if_cap_re.html', 129 SKIP: {
121 'x<!--#if expr="$arg_v = /(CAP\d).*(CAP\d)/" -->' 130 # PCRE may not be available unless we have rewrite module
122 . '<!--#echo var="1" -->x<!--#echo var="2" -->' 131
123 . '<!--#endif -->x'); 132 skip 'no PCRE', 2 unless $t->has_module('rewrite');
124 133
125 like(http_get('/if_cap_re.html?v=hereCAP1andCAP2'), qr/^xCAP1xCAP2x$/m, 134 $t->write_file('if_cap_re.html',
126 'if regex with captures'); 135 'x<!--#if expr="$arg_v = /(CAP\d).*(CAP\d)/" -->'
127 136 . '<!--#echo var="1" -->x<!--#echo var="2" -->'
128 137 . '<!--#endif -->x');
129 $t->write_file('if_ncap_re.html', 138
130 'x<!--#if expr="$arg_v = /(?P<ncap>HERE)/" -->' 139 like(http_get('/if_cap_re.html?v=hereCAP1andCAP2'), qr/^xCAP1xCAP2x$/m,
131 . '<!--#echo var="ncap" -->' 140 'if regex with captures');
132 . '<!--#endif -->x'); 141
133 142
134 like(http_get('/if_ncap_re.html?v=captureHEREeee'), qr/^xHEREx$/m, 143 $t->write_file('if_ncap_re.html',
135 'if regex with named capture'); 144 'x<!--#if expr="$arg_v = /(?P<ncap>HERE)/" -->'
145 . '<!--#echo var="ncap" -->'
146 . '<!--#endif -->x');
147
148 like(http_get('/if_ncap_re.html?v=captureHEREeee'), qr/^xHEREx$/m,
149 'if regex with named capture');
150 }
136 151
137 152
138 $t->write_file('if.html', 'x' . $if_elif_else . 'x'); 153 $t->write_file('if.html', 'x' . $if_elif_else . 'x');
139 154
140 like(http_get('/if.html?if=1'), qr/^xIFx$/m, 'if'); 155 like(http_get('/if.html?if=1'), qr/^xIFx$/m, 'if');