Mercurial > hg > nginx-tests

comparison range.t @ 170:c5696c97c735

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Tests: range not satisfiable tests.
author Maxim Dounin <mdounin@mdounin.ru>
date Tue, 30 Aug 2011 15:47:34 +0400
parents c0ae29632905
children 2fc8a41e3307
comparison
equal deleted inserted replaced
169:81559ffe5b45 170:c5696c97c735
19 ############################################################################### 19 ###############################################################################
20 20
21 select STDERR; $| = 1; 21 select STDERR; $| = 1;
22 select STDOUT; $| = 1; 22 select STDOUT; $| = 1;
23 23
24 my $t = Test::Nginx->new()->has(qw/http charset/)->plan(25); 24 my $t = Test::Nginx->new()->has(qw/http charset/)->plan(31);
25 25
26 $t->write_file_expand('nginx.conf', <<'EOF'); 26 $t->write_file_expand('nginx.conf', <<'EOF');
27 27
28 %%TEST_GLOBALS%% 28 %%TEST_GLOBALS%%
29 29
101 'multipart - content type'); 101 'multipart - content type');
102 like($t1, qr/X000XXXXXX/m, 'multipart - content 0-9'); 102 like($t1, qr/X000XXXXXX/m, 'multipart - content 0-9');
103 like($t1, qr/^X099XXXXXX\x0d?$/m, 'multipart - content -10 aka 990-999'); 103 like($t1, qr/^X099XXXXXX\x0d?$/m, 'multipart - content -10 aka 990-999');
104 like($t1, qr/X001XXXXXX\x0d?$/m, 'multipart - content 10-19'); 104 like($t1, qr/X001XXXXXX\x0d?$/m, 'multipart - content 10-19');
105 105
106 TODO: {
107 local $TODO = 'not yet';
108
109 $t1 = http_get_range('/t1.html', 'Range: bytes=0-9, -10, 100000-, 10-19');
110 like($t1, qr/206/, 'multipart big - 206 partial reply');
111 like($t1, qr/Content-Type: multipart\/byteranges; boundary=/,
112 'multipart big - content type');
113 like($t1, qr/X000XXXXXX/m, 'multipart big - content 0-9');
114 like($t1, qr/^X099XXXXXX\x0d?$/m, 'multipart big - content -10 aka 990-999');
115 like($t1, qr/X001XXXXXX\x0d?$/m, 'multipart big - content 10-19');
116
117 }
118
119 like(http_get_range('/t1.html', 'Range: bytes=100000-'), qr/416/,
120 'not satisfiable');
121
106 ############################################################################### 122 ###############################################################################
107 123
108 sub http_get_range { 124 sub http_get_range {
109 my ($url, $extra) = @_; 125 my ($url, $extra) = @_;
110 return http(<<EOF); 126 return http(<<EOF);