# HG changeset patch
# User Sergey Kandaurov <pluknet@nginx.com>
# Date 1560946049 -10800
# Node ID fe0765147e1596bcbeb5fecd0567610b01513caa
# Parent  723c7e08eec7c27bfe6828cc42ba44dce66f82ee
Tests: perl and conditional requests processing.

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(17)
+my $t = Test::Nginx->new()->has(qw/http perl rewrite/)->plan(18)
 	->write_file_expand('nginx.conf', <<'EOF');
 
 %%TEST_GLOBALS%%
@@ -184,6 +184,18 @@ like(http(
 
 }
 
+TODO: {
+todo_skip 'leaves coredump', 1 unless $t->has_version('1.17.1')
+	or $ENV{TEST_NGINX_UNSAFE};
+
+like(http(
+	'GET / HTTP/1.0' . CRLF
+	. 'Host: localhost' . CRLF
+	. 'If-Match: tt' . CRLF . CRLF
+), qr|200 OK|ms, 'perl precondition failed');
+
+}
+
 # various request body tests
 
 like(http(