168 lines
4.4 KiB
Perl
168 lines
4.4 KiB
Perl
use strict;
|
|
use warnings FATAL => 'all';
|
|
|
|
use Apache::Test;
|
|
use Apache::TestRequest;
|
|
use Apache::TestUtil;
|
|
use HTTP::Date;
|
|
|
|
##
|
|
## mod_dav tests
|
|
##
|
|
|
|
plan tests => 19, [qw(dav HTTP::DAV)];
|
|
require HTTP::DAV;
|
|
|
|
my $vars = Apache::Test::vars();
|
|
my $dav = HTTP::DAV->new;
|
|
my $server = "$vars->{servername}:$vars->{port}";
|
|
|
|
my $htdocs = Apache::Test::vars('documentroot');
|
|
my $response;
|
|
my $dir = "modules/dav";
|
|
my $uri = "/$dir/dav.html";
|
|
my $body = <<CONTENT;
|
|
<html>
|
|
<body>
|
|
<center>
|
|
<h1>mod_dav test page</h1>
|
|
this is a page generated by<br>
|
|
the mod_dav test in the Apache<br>
|
|
perl test suite.<br>
|
|
</center>
|
|
</body>
|
|
</html>
|
|
CONTENT
|
|
|
|
## make sure its clean before we begin ##
|
|
unlink "$htdocs$uri" if -e "$htdocs$uri";
|
|
mkdir "$htdocs/$dir", oct('755') unless -e "$htdocs/$dir";
|
|
|
|
Apache::TestUtil::t_chown("$htdocs/$dir");
|
|
|
|
## set up resource and lock it ##
|
|
my $resource = $dav->new_resource( -uri => "http://$server$uri");
|
|
$response = $resource->lock;
|
|
print "resource lock test:\n";
|
|
ok $response->is_success;
|
|
|
|
## write new resource ##
|
|
$response = $resource->put($body);
|
|
print "DAV put test:\n";
|
|
ok $response->is_success;
|
|
|
|
## get properties ##
|
|
## Wait until none of the returned time
|
|
## properties equals "now"
|
|
sleep(2);
|
|
$response = $resource->propfind;
|
|
print "getting DAV resource properties:\n";
|
|
ok $response->is_success;
|
|
|
|
my $createdate = $resource->get_property( "creationdate" );
|
|
my $lastmodified = $resource->get_property( "getlastmodified" );
|
|
my $now = HTTP::Date::time2str(time());
|
|
print "created: $createdate\n";
|
|
print "modified: $lastmodified\n";
|
|
print "now: $now\n";
|
|
ok $createdate ne $now;
|
|
ok $createdate eq $lastmodified;
|
|
|
|
## should be locked ##
|
|
print "resource lock status test:\n";
|
|
ok $resource->is_locked;
|
|
|
|
## unlock ##
|
|
print "resource unlock test:\n";
|
|
$response = $resource->unlock;
|
|
ok $response->is_success;
|
|
|
|
## should be unlocked ##
|
|
print "resource lock status test:\n";
|
|
$response = $resource->is_locked;
|
|
ok !$resource->is_locked;
|
|
|
|
## verify new resource using regular http get ##
|
|
my $actual = GET_BODY $uri;
|
|
print "getting uri...\nexpect:\n->$body<-\ngot:\n->$actual<-\n";
|
|
ok $actual eq $body;
|
|
|
|
|
|
## testing with second dav client ##
|
|
my $d2 = HTTP::DAV->new;
|
|
my $r2 = $d2->new_resource( -uri => "http://$server$uri");
|
|
|
|
## put an unlocked resource (will work) ##
|
|
$response = $r2->get;
|
|
my $b2 = $r2->get_content;
|
|
$b2 =~ s#<h1>mod_dav test page</h1>#<h1>mod_dav test page take two</h1>#;
|
|
|
|
print "putting with 2nd dav client (on unlocked resource)\n";
|
|
$response = $r2->put($b2);
|
|
ok $response->is_success;
|
|
|
|
$actual = GET_BODY $uri;
|
|
print "getting new uri...\nexpect:\n->$b2<-\ngot:\n->$actual<-\n";
|
|
ok $actual eq $b2;
|
|
|
|
## client 1 locks, client 2 should not be able to lock ##
|
|
print "client 1 locking resource\n";
|
|
$response = $resource->lock
|
|
(
|
|
-owner => 'mod_dav test client 1',
|
|
-depth => 'Infinity',
|
|
-scope => 'exclusive',
|
|
-type => 'write',
|
|
-timeout => 120
|
|
);
|
|
ok $response->is_success;
|
|
|
|
print "client 2 attempting to lock same resource\n";
|
|
$response = $r2->lock
|
|
(
|
|
-owner => 'mod_dav test client 2',
|
|
-depth => 'Infinity',
|
|
-scope => 'exclusive',
|
|
-type => 'write',
|
|
-timeout => 120
|
|
);
|
|
ok !$response->is_success;
|
|
|
|
## client 2 should not be able to put because the resource is already locked by client 1 ##
|
|
$response = $r2->get;
|
|
my $b3 = $r2->get_content;
|
|
$b3 =~ s#mod_dav#f00#g;
|
|
|
|
print "client 2 attempting to put resource locked by client 1\n";
|
|
$response = $r2->put($b3);
|
|
ok !$response->is_success;
|
|
|
|
print "verifying all is well through http\n";
|
|
$actual = GET_BODY $uri;
|
|
print "getting new uri...\nexpect:\n->$b2<-\ngot:\n->$actual<-\n";
|
|
ok $actual ne $b3;
|
|
ok $actual eq $b2;
|
|
|
|
## delete resource ##
|
|
$response = $resource->forcefully_unlock_all; ## trusing this will work
|
|
$response = $resource->delete;
|
|
print "resource delete test:\n";
|
|
ok $response->is_success;
|
|
|
|
$actual = GET_RC $uri;
|
|
print "expect 404 not found got: $actual\n";
|
|
ok $actual == 404;
|
|
|
|
## PR 49825 ##
|
|
my $user_agent = $dav->get_user_agent;
|
|
# invalid content-range header
|
|
$user_agent->default_header('Content-Range' => 'bytes 1-a/44' );
|
|
$response = $resource->put($body);
|
|
$actual = $response->code;
|
|
print "PR 49825: expect 400 bad request got: $actual\n";
|
|
ok $actual == 400;
|
|
$user_agent->default_header('Content-Range' => undef);
|
|
|
|
## clean up ##
|
|
rmdir "$htdocs/$dir/.DAV" or print "warning: could not remove .DAV dir: $!";
|
|
rmdir "$htdocs/$dir" or print "warning: could not remove dav dir: $!";
|