rt/t/web/group_create.t

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