comparison range_mp4.t @ 491:d5bf5942a8b2

Tests: disambiguated parsing of the status code.
author Sergey Kandaurov <pluknet@nginx.com>
date Fri, 07 Nov 2014 13:05:07 +0300
parents 847ea345becb
children e9064d691790
comparison
equal deleted inserted replaced
490:65d2d372ee31 491:d5bf5942a8b2
70 70
71 my $start = $fsz - 10; 71 my $start = $fsz - 10;
72 my $last = $fsz - 1; 72 my $last = $fsz - 1;
73 73
74 $t1 = http_get_range('/test.mp4?start=1', 'Range: bytes=0-9'); 74 $t1 = http_get_range('/test.mp4?start=1', 'Range: bytes=0-9');
75 like($t1, qr/206/, 'first bytes - 206 partial reply'); 75 like($t1, qr/ 206 /, 'first bytes - 206 partial reply');
76 like($t1, qr/Content-Length: 10/, 'first bytes - content length'); 76 like($t1, qr/Content-Length: 10/, 'first bytes - content length');
77 like($t1, qr/Content-Range: bytes 0-9\/$fsz/, 'first bytes - content range'); 77 like($t1, qr/Content-Range: bytes 0-9\/$fsz/, 'first bytes - content range');
78 78
79 $t1 = http_get_range('/test.mp4?start=1', 'Range: bytes=-10'); 79 $t1 = http_get_range('/test.mp4?start=1', 'Range: bytes=-10');
80 like($t1, qr/206/, 'final bytes - 206 partial reply'); 80 like($t1, qr/ 206 /, 'final bytes - 206 partial reply');
81 like($t1, qr/Content-Length: 10/, 'final bytes - content length'); 81 like($t1, qr/Content-Length: 10/, 'final bytes - content length');
82 like($t1, qr/Content-Range: bytes $start-$last\/$fsz/, 82 like($t1, qr/Content-Range: bytes $start-$last\/$fsz/,
83 'final bytes - content range'); 83 'final bytes - content range');
84 84
85 $t1 = http_get_range('/test.mp4?start=1', 'Range: bytes=0-99'); 85 $t1 = http_get_range('/test.mp4?start=1', 'Range: bytes=0-99');
86 like($t1, qr/206/, 'multi buffers - 206 partial reply'); 86 like($t1, qr/ 206 /, 'multi buffers - 206 partial reply');
87 like($t1, qr/Content-Length: 100/, 'multi buffers - content length'); 87 like($t1, qr/Content-Length: 100/, 'multi buffers - content length');
88 like($t1, qr/Content-Range: bytes 0-99\/$fsz/, 88 like($t1, qr/Content-Range: bytes 0-99\/$fsz/,
89 'multi buffers - content range'); 89 'multi buffers - content range');
90 90
91 TODO: { 91 TODO: {
92 local $TODO = 'multipart range on mp4'; 92 local $TODO = 'multipart range on mp4';
93 93
94 $t1 = http_get_range('/test.mp4?start=1', 'Range: bytes=0-10,11-99'); 94 $t1 = http_get_range('/test.mp4?start=1', 'Range: bytes=0-10,11-99');
95 like($t1, qr/206/, 'multipart range - 206 partial reply'); 95 like($t1, qr/ 206 /, 'multipart range - 206 partial reply');
96 like($t1, qr/Content-Length: 100/, 'multipart range - content length'); 96 like($t1, qr/Content-Length: 100/, 'multipart range - content length');
97 like($t1, qr/Content-Range: bytes 0-10,11-99\/$fsz/, 97 like($t1, qr/Content-Range: bytes 0-10,11-99\/$fsz/,
98 'multipart range - content range'); 98 'multipart range - content range');
99 99
100 } 100 }