Tests: perl and conditional requests processing.
diff --git a/perl.t b/perl.t
index f8e7abe..589b1a4 100644
--- a/perl.t
+++ b/perl.t
@@ -23,7 +23,7 @@
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 @@
}
+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(
