rt/t/web/quickcreate.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test tests => 11;
   6
   7 RT->Config->Set('DisplayTicketAfterQuickCreate' => 0);
   8
   9 my ($baseurl, $m) = RT::Test->started_ok;
  10
  11 ok($m->login, 'logged in');
  12
  13 $m->form_with_fields('Subject', 'Content');
  14 $m->field(Subject => 'from quick create');
  15 $m->submit;
  16
  17 $m->content_like(qr/Ticket \d+ created in queue/, 'created ticket');
  18 like( $m->uri, qr{^\Q$baseurl\E/(?:index\.html)?\?results=}, 'still in homepage' );
  19 unlike( $m->uri, qr{Ticket/Display.html}, 'not on ticket display page' );
  20
  21 $m->get_ok($baseurl . '/Prefs/Other.html');
  22 $m->submit_form(
  23     form_name => 'ModifyPreferences',
  24     fields    => { 'DisplayTicketAfterQuickCreate' => 1, },
  25     button => 'Update',
  26 );
  27
  28 $m->content_contains( 'Preferences saved',
  29     'enabled DisplayTicketAfterQuickCreate' );
  30 $m->get($baseurl);
  31
  32 $m->form_with_fields('Subject', 'Content');
  33 $m->field(Subject => 'from quick create');
  34 $m->submit;
  35
  36 $m->content_like(qr/Ticket \d+ created in queue/, 'created ticket');
  37 like( $m->uri, qr!/Ticket/Display.html!, 'still in homepage' );