# Copyright (c) 2012 bivio Software, Inc.  All Rights Reserved.
# $Id: forum-user-delete.btest,v 2.2 2012/01/05 22:39:36 schellj Exp $
test_setup('PetShop', 'groupware');
home_page();
my($e, $n) = create_user();
login_as('root');
foreach my $f (qw(fourem$ fourem-sub1$ fourem-sub2)) {
    follow_link($f, qw(roster add_member));
    submit_form(Add => {
	email => $e,
	full_name => $n
    });
    verify_text($e);
}
do_test_backdoor(ForumUserDeleteForm => {
    realm => 'fourem',
    'Email.email' => $e,
});
home_page();
foreach my $f (qw(fourem$ fourem-sub1$ fourem-sub2)) {
    follow_link($f, 'roster');
    verify_no_text($e);
}