comparison sub_filter.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 6bee817c9e97
children 847ea345becb
comparison
equal deleted inserted replaced
318:68b94b83412b 319:e9de4da234c0
85 85
86 like(http_get('/once?b=foofoo'), qr/barfoo/, 'once'); 86 like(http_get('/once?b=foofoo'), qr/barfoo/, 'once');
87 like(http_get('/many?b=foofoo'), qr/barbar/, 'many'); 87 like(http_get('/many?b=foofoo'), qr/barbar/, 'many');
88 88
89 TODO: { 89 TODO: {
90 local $TODO = 'not yet'; 90 local $TODO = 'not yet' unless $t->has_version('1.5.3');
91 91
92 like(http_get('/many?b=fo'), qr/fo/, 'incomplete'); 92 like(http_get('/many?b=fo'), qr/fo/, 'incomplete');
93 like(http_get('/many?b=foofo'), qr/barfo/, 'incomplete long'); 93 like(http_get('/many?b=foofo'), qr/barfo/, 'incomplete long');
94 94
95 } 95 }
96 96
97 like(http_get('/complex?b=abac'), qr/_replaced/, 'complex'); 97 like(http_get('/complex?b=abac'), qr/_replaced/, 'complex');
98 like(http_get('/complex?b=abaabac'), qr/aba_replaced/, 'complex 1st char'); 98 like(http_get('/complex?b=abaabac'), qr/aba_replaced/, 'complex 1st char');
99 99
100 TODO: { 100 TODO: {
101 local $TODO = 'not yet'; 101 local $TODO = 'not yet' unless $t->has_version('1.5.3');
102 102
103 like(http_get('/complex?b=ababac'), qr/replaced/, 'complex 2nd char'); 103 like(http_get('/complex?b=ababac'), qr/replaced/, 'complex 2nd char');
104 104
105 } 105 }
106 106
107 like(http_get('/complex2?b=ababX'), qr/_replaced/, 'complex2'); 107 like(http_get('/complex2?b=ababX'), qr/_replaced/, 'complex2');
108 108
109 TODO: { 109 TODO: {
110 local $TODO = 'not yet'; 110 local $TODO = 'not yet' unless $t->has_version('1.5.3');
111 111
112 like(http_get('/complex2?b=abababX'), qr/ab_replaced/, 'complex2 long'); 112 like(http_get('/complex2?b=abababX'), qr/ab_replaced/, 'complex2 long');
113 113
114 } 114 }
115 115
116 like(http_get('/complex3?b=aab'), qr/_replaced/, 'complex3 aab in aab'); 116 like(http_get('/complex3?b=aab'), qr/_replaced/, 'complex3 aab in aab');
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('/complex3?b=aaab'), qr/a_replaced/, 'complex3 aab in aaab'); 121 like(http_get('/complex3?b=aaab'), qr/a_replaced/, 'complex3 aab in aaab');
122 122
123 } 123 }
124 124