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