rt/t/web/group_create.t

   1 use strict;
   2 use warnings;
   3
   4 use RT::Test tests => 13;
   5
   6 my ( $baseurl, $m ) = RT::Test->started_ok;
   7 ok $m->login, 'logged in as root';
   8 my $root = RT::User->new(RT->SystemUser);
   9 ok( $root->Load('root'), 'load root user' );
  10
  11 my $group_name = 'test group';
  12
  13 my $group_id;
  14 diag "Create a group";
  15 {
  16     $m->follow_link( id => 'admin-groups-create');
  17
  18     # Test group form validation
  19     $m->submit_form(
  20         form_name => 'ModifyGroup',
  21         fields => {
  22             Name => '',
  23         },
  24     );
  25     $m->text_contains('Name is required');
  26     $m->submit_form(
  27         form_name => 'ModifyGroup',
  28         fields => {
  29             Name => '0',
  30         },
  31     );
  32     $m->text_contains('Could not create group');
  33     $m->submit_form(
  34         form_name => 'ModifyGroup',
  35         fields => {
  36             Name => '1',
  37         },
  38     );
  39     $m->text_contains('Could not create group');
  40     $m->submit_form(
  41         form_name => 'ModifyGroup',
  42         fields => {
  43             Name => $group_name,
  44         },
  45     );
  46     $m->content_contains('Group created', 'created group sucessfully' );
  47
  48     # Test validation on updae
  49     $m->form_name('ModifyGroup');
  50     $m->set_fields(
  51         Name => '',
  52     );
  53     $m->click_button(value => 'Save Changes');
  54     $m->text_contains('Illegal value for Name');
  55
  56     $m->form_name('ModifyGroup');
  57     $m->set_fields(
  58         Name => '0',
  59     );
  60     $m->click_button(value => 'Save Changes');
  61     $m->text_contains('Illegal value for Name');
  62
  63     $m->form_name('ModifyGroup');
  64     $m->set_fields(
  65         Name => '1',
  66     );
  67     $m->click_button(value => 'Save Changes');
  68     $m->text_contains('Illegal value for Name');
  69
  70     $group_id           = $m->form_name('ModifyGroup')->value('id');
  71     ok $group_id, "found id of the group in the form, it's #$group_id";
  72 }
  73