More tests.

Author: arut

t/dav_ext.t

@@ -22,7 +22,7 @@ use HTTP::DAV
 select STDERR; $| = 1;
 select STDOUT; $| = 1;
 
-my $t = Test::Nginx->new()->has(qw/http dav/)->plan(13);
+my $t = Test::Nginx->new()->has(qw/http dav/)->plan(20);
 
 $t->write_file_expand('nginx.conf', <<'EOF');
 
@@ -65,6 +65,10 @@ my $content;
 my $d = HTTP::DAV->new();
 $d->open($url);
 
+#debug:
+#$d->DebugLevel(3);
+#see /tmp/perldav_debug.txt.
+
 my $p = $d->propfind('/', 1);
 is($p->is_collection, 1, 'propfind dir collection');
 is($p->get_property('displayname'), '/', 'propfind dir displayname');
@@ -85,32 +89,54 @@ is($d->lock('/foo'), 0, 'prevent double lock');
 $d->unlock('/foo');
 is($d->lock('/foo'), 1, 'relock');
 
+$d->lock('/bar');
+$p = $d->propfind('/bar');
+is($p->get_property('displayname'), 'bar', 'lock creates a file');
+
+$d->get('/bar', \$content) or $content = 'none';
+is($content, '', 'lock creates an empty file');
+
 $content = "bar";
-$d->put(\$content, '/foo');
-$content = '';
-$d->get('/foo', \$content);
+$d->put(\$content, '/bar');
+$d->get('/bar', \$content) or $content = '';
 is($content, 'bar', 'put lock');
 
 $content = "qux";
-$d2->put(\$content, '/foo');
-$content = '';
-$d2->get('/foo', \$content);
+$d2->put(\$content, '/bar');
+$d2->get('/bar', \$content) or $content = '';
 isnt($content, 'qux', 'prevent put lock');
 
-$d->mkcol('/d');
+$d->mkcol('/d/');
 $d->lock('/d/');
-$d->copy('/foo', '/d/foo');
-$content = '';
-$d->get('/d/foo', \$content);
+$d->copy('/bar', '/d/bar');
+$d->get('/d/bar', \$content) or $content = '';
 is($content, 'bar', 'copy lock');
 
-$d->unlock('/foo');
-$d2->copy('/foo', '/d/bar');
-$content = '';
-$d2->get('/d/bar', \$content);
+$d2->copy('/bar', '/d/qux');
+$d2->get('/d/qux', \$content) or $content = '';
 isnt($content, 'bar', 'prevent copy lock');
 
-$d->unlock('/d');
+$d2->delete('/d/bar');
+$d2->get('/d/bar', \$content) or $content = '';
+is($content, 'bar', 'prevent delete lock');
+
+$d->delete('/d/bar');
+$d->get('/d/bar', \$content) or $content = '';
+is($content, '', 'delete lock');
+
+$d->mkcol('/d/c/');
+$p = $d->propfind('/d/c/');
+is($p->is_collection, 1, 'mkcol lock');
+
+$d2->mkcol('/d/e/');
+is($d2->propfind('/d/e/'), 0, 'prevent mkcol lock');
+
+$d->unlock('/d/');
+$d->lock('/d/', -depth=>"0");
+$content = 'qux';
+$d2->put(\$content, '/d/c/qux');
+$d2->get('/d/c/qux', \$content) or $content = '';
+is($content, 'qux', 'put to a depth-0-locked subdirectory');
 
 
 ###############################################################################