# Copyright (c) 2009 bivio Software, Inc.  All Rights Reserved.
# $Id: remote-copy.btest,v 1.4 2009/03/10 12:49:06 nagler Exp $
test_setup('PetShop', 'groupware');
home_page();
login_as('remote_copy_user');
unsafe_op(qw(send_request DELETE /dav/remote_copy_btest/Files/RemoteCopyBtest/file4));
my($new) = "file$$";
send_request(
    PUT => "/dav/remote_copy_btest/Files/RemoteCopyBtest/$new", undef, random_string());
my($cfg) = sub {
    my($uri) = shift || 'http://petshop.bivio.biz';
    send_request(PUT =>
        '/dav/site/site-admin/Files/Settings/RemoteCopy.csv', undef, <<"EOF");
Realm,Folders,User,Password,URI
remote_copy_btest,/RemoteCopyBtest
remote_copy_bunit,/RemoteCopyBunit
,,remote_copy_user,password,$uri
EOF
    go_back();
    return;
};
home_page();
follow_link(qw(remote_copy_btest files RemoteCopyBtest));
verify_no_text(qr{file4\b});
$cfg->('http://no-such-host.bivio.biz');
follow_link('remote_copy$');
test_deviance(qr{\Qhttp://no-such-host});
submit_form(prepare => {});
test_conformance();
go_back();
$cfg->();
submit_form(prepare => {});
verify_text(qr{remote_copy_btest.*delete:.*$new.*copy:.*file4\b.*remote_copy_bunit.*up to date}is);
verify_no_text(qr{\bto replace\b}i);
submit_form(Copy => {});
follow_link(qw(remote_copy_btest files RemoteCopyBtest));
verify_no_text(qr{file99\b});
verify_text(qr{file4\b});
follow_link(qr{^file3$});
verify_text(qr{^file3$}m);
go_back();
follow_link('remote_copy$');
submit_form(prepare => {});
verify_text(qr{nothing to update}i);
login_as('root');
follow_link('remote_copy');
test_deviance(qr{not.*write access.*local realm}i);
submit_form(prepare => {});