comparison autoindex.t @ 125:f10f077a3174

Tests: autoindex utf8 handling fixed in 0.8.32.
author Maxim Dounin <mdounin@mdounin.ru>
date Mon, 11 Jan 2010 20:04:13 +0300
parents 8aa0dd396a83
children 0a2f750790c9
comparison
equal deleted inserted replaced
124:6edd29865109 125:f10f077a3174
89 like($r, qr!test-long-0{37}\.\.&gt;!ms, 'long name'); 89 like($r, qr!test-long-0{37}\.\.&gt;!ms, 'long name');
90 90
91 like($r, qr!href="test-escape-url-%25"!ms, 'escaped url'); 91 like($r, qr!href="test-escape-url-%25"!ms, 'escaped url');
92 92
93 { 93 {
94 local $TODO = 'patches under review'; 94 local $TODO = 'patch under review';
95 95
96 like($r, qr!test-escape-html-&lt;&gt;&amp;!ms, 'escaped html'); 96 like($r, qr!test-escape-html-&lt;&gt;&amp;!ms, 'escaped html');
97 like($r, qr!test-long-(&gt;){37}\.\.&gt;!ms, 'long escaped html'); 97 like($r, qr!test-long-(&gt;){37}\.\.&gt;!ms, 'long escaped html');
98
99 }
98 100
99 $r = http_get('/utf8/'); 101 $r = http_get('/utf8/');
100 102
101 like($r, qr!test-utf8-(\xd1\x84){3}</a>!ms, 'utf8'); 103 like($r, qr!test-utf8-(\xd1\x84){3}</a>!ms, 'utf8');
102 like($r, qr!test-utf8-(\xd1\x84){37}\.\.!ms, 'utf8 long'); 104 like($r, qr!test-utf8-(\xd1\x84){37}\.\.!ms, 'utf8 long');
105
106 {
107 local $TODO = 'patch under review';
108
103 like($r, qr!test-utf8-&lt;&gt;&amp;-\xd1\x84</a>!ms, 'utf8 escaped'); 109 like($r, qr!test-utf8-&lt;&gt;&amp;-\xd1\x84</a>!ms, 'utf8 escaped');
104 like($r, qr!test-utf8-&lt;&gt;&amp;-(\xd1\x84){33}\.\.!ms, 110 like($r, qr!test-utf8-&lt;&gt;&amp;-(\xd1\x84){33}\.\.!ms,
105 'utf8 escaped long'); 111 'utf8 escaped long');
106 like($r, qr!test-utf8-(\xd1\x84){3}-(&gt;){33}\.\.!ms, 'utf8 long escaped'); 112 like($r, qr!test-utf8-(\xd1\x84){3}-(&gt;){33}\.\.!ms, 'utf8 long escaped');
107 113