rt/t/web/queue_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 $queue_name = 'test queue';
  14
  15 my $queue_id;
  16 diag "Create a queue";
  17 {
  18     $m->follow_link( id => 'tools-config-queues-create');
  19
  20     # Test queue form validation
  21     $m->submit_form(
  22         form_name => 'ModifyQueue',
  23         fields => {
  24             Name => '',
  25         },
  26     );
  27     $m->text_contains('Queue name is required');
  28     $m->submit_form(
  29         form_name => 'ModifyQueue',
  30         fields => {
  31             Name => '0',
  32         },
  33     );
  34     $m->text_contains("'0' is not a valid name");
  35     $m->submit_form(
  36         form_name => 'ModifyQueue',
  37         fields => {
  38             Name => '1',
  39         },
  40     );
  41     $m->text_contains("'1' is not a valid name");
  42     $m->submit_form(
  43         form_name => 'ModifyQueue',
  44         fields => {
  45             Name => $queue_name,
  46         },
  47     );
  48     $m->content_contains('Queue created', 'created queue sucessfully' );
  49
  50     # Test validation on update
  51     $m->form_name('ModifyQueue');
  52     $m->set_fields(
  53         Name => '',
  54     );
  55     $m->click_button(value => 'Save Changes');
  56     $m->content_contains('Illegal value for Name');
  57
  58     $m->form_name('ModifyQueue');
  59     $m->set_fields(
  60         Name => '0',
  61     );
  62     $m->click_button(value => 'Save Changes');
  63     $m->content_contains('Illegal value for Name');
  64
  65     $m->form_name('ModifyQueue');
  66     $m->set_fields(
  67         Name => '1',
  68     );
  69     $m->click_button(value => 'Save Changes');
  70     $m->content_contains('Illegal value for Name');
  71
  72     $queue_id = $m->form_name('ModifyQueue')->value('id');
  73     ok $queue_id, "found id of the queue in the form, it's #$queue_id";
  74 }
  75