# Copyright (c) 2009 bivio Software Inc.  All Rights Reserved.
# $Id: create-forum.btest,v 1.9 2010/05/17 21:44:12 dobbs Exp $
test_setup('PetShop', 'groupware');
home_page();
login_as('root');
follow_link(qw(site$ new_forum));
my($title) = 'BTest ' . random_string();
(my $name = lc($title)) =~ s/ /_/g;
test_deviance(qr{top forum.*change}i);
submit_form({
    title => $title,
    '^forum' => $name,
});
test_conformance();
follow_link(qw(site-admin new_forum));
submit_form({
    title => $title,
    '^forum' => $name,
    blog => 1,
    calendar => 1,
    poll => 0,
    tables => 0,
});
follow_menu_link($name);
follow_link('^wiki', 'calendar$');
test_deviance();
follow_link('tables');
test_conformance();
follow_link('features');
verify_text($title);
verify_form({
    blog => 1,
    calendar => 1,
    poll => 0,
    tables => 0,
});
submit_form({
    calendar => 0,
    tables => 1,
});
follow_link('tables');
test_deviance();
follow_link('calendar');