# Copyright (c) 2006 bivio Software, Inc.  All Rights Reserved.
# $Id: email-alias.btest,v 1.5 2006/06/24 16:34:16 moeller Exp $
test_setup('PetShop');
home_page();
my($incoming) = generate_remote_email(test_name());
my($incoming2) = generate_local_email(random_string());
my($outgoing) = generate_local_email(random_string());
my($aliases_uri) = '/dav/Email Aliases.csv';
basic_authorization('root');
send_request(GET => $aliases_uri);
verify_no_text("$incoming,$outgoing");
my($orig_aliases) = get_content();
$orig_aliases =~ s/^$incoming,.*$//m;
send_request(PUT => $aliases_uri, undef, $orig_aliases . <<"EOF");
$incoming,$outgoing
EOF
send_request(GET => $aliases_uri);
verify_text("$incoming,$outgoing");
my($s) = send_mail(
    generate_local_email('root'), $incoming,
)->unsafe_get_header('Subject');

verify_local_mail($outgoing, $s);

# check aliasing on the reply
send_request(PUT => $aliases_uri, undef, $orig_aliases . <<"EOF");
$incoming2,$outgoing
EOF
$s = send_mail(
    $outgoing, $incoming2,
)->unsafe_get_header('Subject');
verify_local_mail($incoming2, $s);

send_request(PUT => $aliases_uri, undef, $orig_aliases);
send_request(GET => $aliases_uri);
verify_no_text("$incoming,$outgoing");