# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1309703552 -14400
# Node ID 2644bad81b0bbb09b39d9fd26e51c953be6ff644
# Parent  26cf61c5ac35309a254d1b8783c32be35924f10d
Tests: add test for preread body and extra data problem.

diff --git a/dav.t b/dav.t
--- a/dav.t
+++ b/dav.t
@@ -21,7 +21,7 @@ use Test::Nginx;
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/http dav/)->plan(11);
+my $t = Test::Nginx->new()->has(qw/http dav/)->plan(13);
 
 $t->write_file_expand('nginx.conf', <<'EOF');
 
@@ -89,6 +89,23 @@ like($r, qr/204 No Content/, 'delete fil
 unlike($r, qr/Content-Length|Transfer-Encoding/, 'no length in 204');
 ok(!-f $t->testdir() . '/file', 'file deleted');
 
+$r = http(<<EOF . '0123456789' . 'extra');
+PUT /file HTTP/1.1
+Host: localhost
+Connection: close
+Content-Length: 10
+
+EOF
+
+like($r, qr/201 Created.*(Content-Length|\x0d\0a0\x0d\x0a)/ms,
+	'put file extra data');
+TODO: {
+local $TODO = 'not yet';
+
+is(-s $t->testdir() . '/file', 10,
+	'put file extra data size');
+}
+
 TODO: {
 local $TODO = 'broken in 0.8.32';