comparison sub_filter_perl.t @ 319:e9de4da234c0

Tests: add version checks to TODOs for committed patches.
author Maxim Dounin <mdounin@mdounin.ru>
date Thu, 25 Jul 2013 18:35:56 +0400
parents 03975bffc368
children 847ea345becb
comparison
equal deleted inserted replaced
318:68b94b83412b 319:e9de4da234c0
93 93
94 like(http_get('/multi?a=a&b=ab'), qr/^_replaced$/m, 'aab in a + ab'); 94 like(http_get('/multi?a=a&b=ab'), qr/^_replaced$/m, 'aab in a + ab');
95 like(http_get('/multi?a=a&b=aaab'), qr/^aa_replaced$/m, 'aab in a + aaab'); 95 like(http_get('/multi?a=a&b=aaab'), qr/^aa_replaced$/m, 'aab in a + aaab');
96 96
97 TODO: { 97 TODO: {
98 local $TODO = 'not yet'; 98 local $TODO = 'not yet' unless $t->has_version('1.5.3');
99 99
100 like(http_get('/multi?a=a&b=aab'), qr/^a_replaced$/m, 'aab in a + aab'); 100 like(http_get('/multi?a=a&b=aab'), qr/^a_replaced$/m, 'aab in a + aab');
101 like(http_get('/multi?a=a&b=aaaab'), qr/^aaa_replaced$/m, 'aab in a + aaaab'); 101 like(http_get('/multi?a=a&b=aaaab'), qr/^aaa_replaced$/m, 'aab in a + aaaab');
102 102
103 } 103 }
104 104
105 TODO: { 105 TODO: {
106 local $TODO = 'not yet'; 106 local $TODO = 'not yet' unless $t->has_version('1.5.3');
107 107
108 like(http_get('/multi?a=aa&b=ab'), qr/^a_replaced$/m, 'aab in aa + ab'); 108 like(http_get('/multi?a=aa&b=ab'), qr/^a_replaced$/m, 'aab in aa + ab');
109 like(http_get('/multi?a=aa&b=aab'), qr/^aa_replaced$/m, 'aab in aa + aab'); 109 like(http_get('/multi?a=aa&b=aab'), qr/^aa_replaced$/m, 'aab in aa + aab');
110 like(http_get('/multi?a=aa&b=aaab'), qr/^aaa_replaced$/m, 'aab in aa + aaab'); 110 like(http_get('/multi?a=aa&b=aaab'), qr/^aaa_replaced$/m, 'aab in aa + aaab');
111 111
114 like(http_get('/multi?a=aa&b=aaaab'), qr/^aaaa_replaced$/m, 'aab in aa + aaaab'); 114 like(http_get('/multi?a=aa&b=aaaab'), qr/^aaaa_replaced$/m, 'aab in aa + aaaab');
115 115
116 # full backtracking 116 # full backtracking
117 117
118 TODO: { 118 TODO: {
119 local $TODO = 'not yet'; 119 local $TODO = 'not yet' unless $t->has_version('1.5.3');
120 120
121 like(http_get('/multi?a=aa&b=xaaab'), qr/^aaxa_replaced$/m, 'aab in aa + xaaab'); 121 like(http_get('/multi?a=aa&b=xaaab'), qr/^aaxa_replaced$/m, 'aab in aa + xaaab');
122 like(http_get('/multi?a=aa&b=axaaab'), qr/^aaaxa_replaced$/m, 122 like(http_get('/multi?a=aa&b=axaaab'), qr/^aaaxa_replaced$/m,
123 'aab in aa + axaaab'); 123 'aab in aa + axaaab');
124 like(http_get('/multi?a=aa&b=aaxaaab'), qr/^aaaaxa_replaced$/m, 124 like(http_get('/multi?a=aa&b=aaxaaab'), qr/^aaaaxa_replaced$/m,
129 # short pattern 129 # short pattern
130 130
131 like(http_get('/short?a=a&b=b'), qr/^_replaced$/m, 'ab in a + b'); 131 like(http_get('/short?a=a&b=b'), qr/^_replaced$/m, 'ab in a + b');
132 132
133 TODO: { 133 TODO: {
134 local $TODO = 'not yet'; 134 local $TODO = 'not yet' unless $t->has_version('1.5.3');
135 135
136 like(http_get('/short?a=a&b=ab'), qr/^a_replaced$/m, 'ab in a + ab'); 136 like(http_get('/short?a=a&b=ab'), qr/^a_replaced$/m, 'ab in a + ab');
137 137
138 } 138 }
139 139
142 like(http_get('/short?a=a&b=aaaab'), qr/^aaaa_replaced$/m, 'ab in a + aaaab'); 142 like(http_get('/short?a=a&b=aaaab'), qr/^aaaa_replaced$/m, 'ab in a + aaaab');
143 143
144 like(http_get('/short?a=aa&b=b'), qr/^a_replaced$/m, 'ab in aa + b'); 144 like(http_get('/short?a=aa&b=b'), qr/^a_replaced$/m, 'ab in aa + b');
145 145
146 TODO: { 146 TODO: {
147 local $TODO = 'not yet'; 147 local $TODO = 'not yet' unless $t->has_version('1.5.3');
148 148
149 like(http_get('/short?a=aa&b=ab'), qr/^aa_replaced$/m, 'ab in aa + ab'); 149 like(http_get('/short?a=aa&b=ab'), qr/^aa_replaced$/m, 'ab in aa + ab');
150 150
151 } 151 }
152 152