# Copyright (c) 2005 bivio Software, Inc.  All Rights Reserved.
# $Id: easy-form.btest,v 1.11 2011/04/27 21:36:19 moeller Exp $
test_setup('PetShop', 'groupware');
home_page();
my($form_uri) = '/Forms/btest.csv';
my($r) = random_string();
foreach my $u ('', 'root') {
    home_page();
    login_as($u)
	if $u;
    visit_uri('/fourem/file/EasyForm-btest.html');
    submit_form(OK => {
	'Input:' => "$u$r",
    });
    verify_text('completed');
    verify_local_mail(qr{root}, $form_uri) =~ /$r/;
}
visit_uri('/fourem/bp/EasyForm_btest');
submit_form(OK => {
    'Input:' => my $input = "easyform$r",
});
verify_text('wiki completed');
verify_local_mail(qr{root}, qr{submission.*$input}s);
follow_link('fourem$', 'files', 'forms', 'btest.csv');
verify_text(qr{\n.*,$r,OK\n.*,[^,]+root\@[^,]+,root$r,OK\n.*easyform$r,OK\n}s);
do_test_backdoor(RealmFile => '-r fourem delete_deep ' . $form_uri);
visit_uri('/fourem/bp/EasyForm_btest');
submit_form(OK => {
    'Input:' => "emptyform$r",
});