# Copyright (c) 2008 bivio Software, Inc.  All Rights Reserved.
# $Id: register.btest,v 1.7 2010/05/13 21:20:04 nagler Exp $
test_setup('PetShop', 'groupware');
home_page();
follow_link(qw(register login));
clear_cookies();
submit_form({
    email => 'root',
    password => default_password(),
});
verify_text('seems that your browser');
clear_cookies();
home_page();
follow_link('register');
submit_form({
    name => 'My Name',
    email => generate_local_email('demo'),
});
verify_text('already in the database');
verify_form({
    email => generate_local_email('demo'),
});
go_back();
my($r) = random_string();
submit_form({
    name => "$r User",
    email => my $u = generate_local_email($r),
});
follow_link_in_mail($u);
submit_form({
    '^new' => default_password(),
    enter => default_password(),
});
verify_no_text('forum');
login_as('root');
home_page();
follow_link('applicants');
follow_link_in_table('name', 'email', $u, 'privileges', 'requested');
submit_form({
    level => 'user',
});
verify_local_mail($u, qr{confirmed}i);
follow_link('roster');
find_page_with_text(qr{\Q$u});
follow_link_in_table('name', 'email', $u, 'privileges', 'user');
my($form) = get_uri();
submit_form({
    level => 'staff',
});
login_as($u);
follow_link('site-contact');
verify_link('tickets');
verify_link('applicants');
login_as('root');
visit_uri($form);
submit_form({
    level => 'admin',
});
login_as($u);
follow_link('site-contact');
verify_link('tickets');
verify_link('applicants');