# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1496399284 -10800
# Node ID a69de1aba1adecd1e6e335b8732c350a70dea951
# Parent  660147bfe68c761a9e5f4e53540230f5865d1304
Tests: added perl test with not satisfiable range.

diff --git a/perl.t b/perl.t
--- a/perl.t
+++ b/perl.t
@@ -23,7 +23,7 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/http perl rewrite/)->plan(16)
+my $t = Test::Nginx->new()->has(qw/http perl rewrite/)->plan(17)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 %%TEST_GLOBALS%%
@@ -173,6 +173,17 @@ like(http(
 ), qr/Content-Length: (?!42).*^xx\x0d.*^xxx\x0d/ms,
 	'perl header_out content-length multipart');
 
+TODO: {
+local $TODO = 'not yet';
+
+like(http(
+	'GET /range HTTP/1.0' . CRLF
+	. 'Host: localhost' . CRLF
+	. 'Range: bytes=100000-' . CRLF . CRLF
+), qr|^\QHTTP/1.1 416\E.*(?!xxx)|ms, 'perl range not satisfiable');
+
+}
+
 # various request body tests
 
 like(http(