# Copyright (c) 2005 bivio Software, Inc.  All Rights Reserved.
# $Id: dav.btest,v 1.7 2005/12/15 00:40:06 nagler Exp $
test_setup('PetShop');
home_page();
follow_link('Dogs');
follow_link('Corgi');
follow_link('Female Puppy Corgi');
add_to_cart();
checkout_as_demo();
my($order_content) = get_content() =~ m{^.+?\n\n(.+)}s;
my($order_realm) = get_uri() =~ m{/(o\d+)/};
die unless $order_realm;
basic_authorization('demo');
my($root) = '/demo/dav/orders';
send_request(PROPFIND => $root);
my($order_href) = get_content() =~ m{<D:href>(.+?/$order_realm/)</D:href>};
die(get_content()) unless $order_href;
test_deviance(qr{not.found}i);
send_request(PROPFIND => "$root/not-to-be-found");
send_request(PROPFIND => "/demo/dav/not-to-be-found");
test_conformance();
send_request(PROPFIND => $order_href);
$order_href = (get_content() =~ m{<D:href>(.+?/$order_realm/Detail.html)</D:href>})[0];
die(get_content()) unless $order_href;
send_request(GET => $order_href);
verify_content_type('text/html');
my($new) = get_content() =~ m{^.+?\n\n(.+)}s;
die unless $new eq $order_content;
$root = '/demo/dav/files';
my($a) = {d1 => "$root/dav-btest"};
$a->{d2} = "$a->{d1}.New";
$a->{f1} = "$a->{d1}/a.txt";
$a->{f2} = "$a->{d2}/a.txt";
foreach my $x (reverse(sort(values(%$a)))) {
    unsafe_op(sub {send_request(DELETE => $x)});
}
test_deviance(qr{not.found}i);
foreach my $x (sort(values(%$a))) {
    send_request(PROPFIND => $x);
}
send_request(DELETE => $a->{d1});
test_conformance();
send_request(MKCOL => $a->{d1});
test_deviance('conflict');
send_request(MKCOL => $a->{d1});
test_deviance('forbidden');
visit_uri($a->{d1});
test_conformance();
send_request(PUT => $a->{f1}, undef, my $content = "$$");
visit_uri($a->{f1});
verify_content_type('text/plain');
die unless get_content() eq $content;
send_request(PROPFIND => $root);
die unless get_content() =~ m{\Q$a->{d1}/<};
send_request(PROPFIND => $root, {
    Depth => 0,
});
die unless get_content() =~ m{<D:displayname>/</D:displayname>\n
<D:getlastmodified>.*</D:getlastmodified>\n
<D:resourcetype>\n
<D:collection/>\n
</D:resourcetype>\n
</D:prop>}xs;
send_request(PROPFIND => $a->{d1});
die unless get_content() =~ m{\Q$a->{f1}<};
send_request(MOVE => $a->{d1} => {
    Destination => absolute_uri($a->{d2}),
});
send_request(PROPFIND => $root);
die unless get_content() =~ m{\Q$a->{d2}/<};
send_request(PROPFIND => $a->{d2});
die unless get_content() =~ m{\Q$a->{f2}<};
visit_uri($a->{f2});
die unless get_content() eq $content;
test_deviance(qr{not.found}i);
visit_uri($a->{d1});
visit_uri($a->{f1});
test_conformance();
send_request(MKCOL => $a->{d1});
my($x) = absolute_uri($a->{d1});
test_deviance(qr{precondition}i);
send_request(MOVE => $a->{d2} => {
    Overwrite => 'F',
    Destination => $x,
});
test_conformance();
send_request(PUT => $a->{f1}, undef, "$$.2");
send_request(MOVE => $a->{d2} => {
    Destination => absolute_uri($a->{d1}),
});
visit_uri($a->{f1});
die unless get_content() eq $content;
test_deviance(qr{not.found}i);
visit_uri($a->{d2});
visit_uri($a->{f2});
test_conformance();
send_request(COPY => $a->{d1} => {
    Destination => absolute_uri($a->{d2}),
});
visit_uri($a->{f2});
die unless get_content() eq $content;