comparison range_flv.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 6a0d934950bc
children e9064d691790
comparison
equal deleted inserted replaced
490:65d2d372ee31 491:d5bf5942a8b2
55 my $t1; 55 my $t1;
56 56
57 # FLV has 13 byte header at start. 57 # FLV has 13 byte header at start.
58 58
59 $t1 = http_get_range('/t1.flv?start=100', 'Range: bytes=0-9'); 59 $t1 = http_get_range('/t1.flv?start=100', 'Range: bytes=0-9');
60 like($t1, qr/206/, 'first bytes - 206 partial reply'); 60 like($t1, qr/ 206 /, 'first bytes - 206 partial reply');
61 like($t1, qr/Content-Length: 10/, 'first bytes - correct length'); 61 like($t1, qr/Content-Length: 10/, 'first bytes - correct length');
62 like($t1, qr/Content-Range: bytes 0-9\/913/, 'first bytes - content range'); 62 like($t1, qr/Content-Range: bytes 0-9\/913/, 'first bytes - content range');
63 like($t1, qr/^FLV.{7}$/m, 'first bytes - correct content'); 63 like($t1, qr/^FLV.{7}$/m, 'first bytes - correct content');
64 64
65 $t1 = http_get_range('/t1.flv?start=100', 'Range: bytes=-10'); 65 $t1 = http_get_range('/t1.flv?start=100', 'Range: bytes=-10');
66 like($t1, qr/206/, 'final bytes - 206 partial reply'); 66 like($t1, qr/ 206 /, 'final bytes - 206 partial reply');
67 like($t1, qr/Content-Length: 10/, 'final bytes - content length'); 67 like($t1, qr/Content-Length: 10/, 'final bytes - content length');
68 like($t1, qr/Content-Range: bytes 903-912\/913/, 68 like($t1, qr/Content-Range: bytes 903-912\/913/,
69 'final bytes - content range'); 69 'final bytes - content range');
70 like($t1, qr/^X099XXXXXX$/m, 'final bytes - correct content'); 70 like($t1, qr/^X099XXXXXX$/m, 'final bytes - correct content');
71 71
72 $t1 = http_get_range('/t1.flv?start=100', 'Range: bytes=0-99'); 72 $t1 = http_get_range('/t1.flv?start=100', 'Range: bytes=0-99');
73 like($t1, qr/206/, 'multi buffers - 206 partial reply'); 73 like($t1, qr/ 206 /, 'multi buffers - 206 partial reply');
74 like($t1, qr/Content-Length: 100/, 'multi buffers - content length'); 74 like($t1, qr/Content-Length: 100/, 'multi buffers - content length');
75 like($t1, qr/Content-Range: bytes 0-99\/913/, 'multi buffers - content range'); 75 like($t1, qr/Content-Range: bytes 0-99\/913/, 'multi buffers - content range');
76 like($t1, qr/^FLV.{10}X010XXXXXX(X01[1-7]XXXXXX){7}X018XXX$/m, 76 like($t1, qr/^FLV.{10}X010XXXXXX(X01[1-7]XXXXXX){7}X018XXX$/m,
77 'multi buffers - correct content'); 77 'multi buffers - correct content');
78 78