# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1295407211 -10800
# Node ID 2ea7cd95ff05e3531f4d8a7d75d9df2c2b36f540
# Parent  6e11354cae8ad4c3f637c09c22980efe2be43a6d
Tests: basic tests for range requests from cache.

Just to prevent regressions while getting rid of r->cache dependency
in range filter.

diff --git a/proxy-cache.t b/proxy-cache.t
--- a/proxy-cache.t
+++ b/proxy-cache.t
@@ -21,7 +21,7 @@ use Test::Nginx qw/ :DEFAULT :gzip /;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/http proxy cache gzip/)->plan(10)
+my $t = Test::Nginx->new()->has(qw/http proxy cache gzip/)->plan(12)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 %%TEST_GLOBALS%%
@@ -93,6 +93,10 @@ unlike(http_head('/t2.html'), qr/SEE-THI
 like(http_get('/t2.html'), qr/SEE-THIS/, 'get after head');
 unlike(http_head('/t2.html'), qr/SEE-THIS/, 'head after get');
 
+like(http_get_range('/t.html', 'Range: bytes=4-'), qr/^THIS/m, 'cached range');
+like(http_get_range('/t.html', 'Range: bytes=0-2,4-'), qr/^SEE.*^THIS/ms,
+	'cached multipart range');
+
 like(http_get('/empty.html'), qr/HTTP/, 'empty get first');
 like(http_get('/empty.html'), qr/HTTP/, 'empty get second');
 
@@ -124,6 +128,19 @@ like(http_get('/fake/unfinished'), qr/un
 
 ###############################################################################
 
+sub http_get_range {
+        my ($url, $extra) = @_;
+        return http(<<EOF);
+GET $url HTTP/1.1
+Host: localhost
+Connection: close
+$extra
+
+EOF
+}
+
+###############################################################################
+
 sub http_fake_daemon {
 	my $server = IO::Socket::INET->new(
 		Proto => 'tcp',