# Copyright (c) 2008 bivio Software, Inc.  All Rights Reserved.
# $Id: group-admin.btest,v 1.6 2009/12/26 23:03:05 nagler Exp $
test_setup('PetShop', 'groupware');
home_page();
login_as('root');
my($forum) = create_forum();
home_page();
follow_link($forum, 'roster');
find_page_with_text('User, Root');
follow_link_in_table('first', 'first', 'root', 'privileges', 'admin');
verify_text('for Root User');
verify_form({
    level => 'Admin',
    editor => 1,
    subscribed => 1,
});
follow_link('add_member');
follow_link('roster');
follow_link('add_member');
my($email) = generate_local_email(random_string()),
my($name) = random_string();
submit_form({
    email => $email,
    name => $name,
});
follow_link('roster');
follow_link_in_table('first', 'first', $name, 'privileges', 'member');
#TODO: test changing privs
#TODO: Test can't escalate privs higher than current user