# Copyright (c) 2009 bivio Software, Inc.  All Rights Reserved.
# $Id: wiki-form.btest,v 2.3 2011/10/12 21:07:03 schellj Exp $
test_setup('PetShop', 'groupware');
home_page();
my($f, $uri) = create_forum();
do_test_backdoor(RealmAdmin => "-realm $f -user site_adm join_user ADMINISTRATOR FILE_WRITER MAIL_RECIPIENT");
visit_uri("$uri/wiki");
verify_text('Save');
submit_form(Validate => {
    title => my $t = 'btest_' . random_string(),
    anon => '^' . (my $l = random_string()),
});
verify_uri('validate');
verify_text("$l: Not found");
follow_link('edit_this_page');
submit_form('Save' => {
    title => $t,
    anon => "^$l",
});
test_deviance();
verify_uri('validate');
test_conformance();
verify_no_text('Not found');
visit_uri('/adm/su');
submit_form(OK => {
    email => 'site_adm',
});
visit_uri("$uri/edit-wiki/$t");
verify_text('Save');
do_logout();
login_as('site_adm');
visit_uri("$uri/edit-wiki/$t");
verify_no_text('Save');
submit_form('OK' => {
    title => $t,
    anon => "^$l",
});
verify_uri('validate');
verify_text("$l: Not found");