rt/t/web/ticket-create-utf8.t

   1 #!/usr/bin/perl
   2
   3 use strict;
   4 use warnings;
   5
   6 use RT::Test tests => 41;
   7
   8 $RT::Test::SKIP_REQUEST_WORK_AROUND = 1;
   9
  10 use Encode;
  11
  12 my $ru_test = "\x{442}\x{435}\x{441}\x{442}";
  13 my $ru_support = "\x{43f}\x{43e}\x{434}\x{434}\x{435}\x{440}\x{436}\x{43a}\x{430}";
  14
  15 # latin-1 is very special in perl, we should test everything with latin-1 umlauts
  16 # and not-ascii+not-latin1, for example cyrillic
  17 my $l1_test = Encode::decode('latin-1', "t\xE9st");
  18 my $l1_support = Encode::decode('latin-1', "supp\xF6rt");
  19
  20
  21 my $q = RT::Test->load_or_create_queue( Name => 'Regression' );
  22 ok $q && $q->id, 'loaded or created queue';
  23
  24 RT::Test->set_rights(
  25     Principal => 'Everyone',
  26     Right => ['CreateTicket', 'ShowTicket', 'SeeQueue', 'ReplyToTicket', 'ModifyTicket'],
  27 );
  28
  29 my ($baseurl, $m) = RT::Test->started_ok;
  30 ok $m->login, 'logged in';
  31
  32 # create a ticket with a subject only
  33 foreach my $test_str ( $ru_test, $l1_test ) {
  34     ok $m->goto_create_ticket( $q ), "go to create ticket";
  35     $m->form_number(3);
  36     $m->field( Subject => $test_str );
  37     $m->submit;
  38
  39     $m->content_like(
  40         qr{<td\s+class="message-header-value"[^>]*>\s*\Q$test_str\E\s*</td>}i,
  41         'header on the page'
  42     );
  43
  44     my $ticket = RT::Test->last_ticket;
  45     is $ticket->Subject, $test_str, "correct subject";
  46 }
  47
  48 # create a ticket with a subject and content
  49 foreach my $test_str ( $ru_test, $l1_test ) {
  50     foreach my $support_str ( $ru_support, $l1_support ) {
  51         ok $m->goto_create_ticket( $q ), "go to create ticket";
  52         $m->form_number(3);
  53         $m->field( Subject => $test_str );
  54         $m->field( Content => $support_str );
  55         $m->submit;
  56
  57         $m->content_like(
  58             qr{<td\s+class="message-header-value"[^>]*>\s*\Q$test_str\E\s*</td>}i,
  59             'header on the page'
  60         );
  61         $m->content_like(
  62             qr{\Q$support_str\E}i,
  63             'content on the page'
  64         );
  65
  66         my $ticket = RT::Test->last_ticket;
  67         is $ticket->Subject, $test_str, "correct subject";
  68     }
  69 }
  70
  71 # create a ticket with a subject and content
  72 foreach my $test_str ( $ru_test, $l1_test ) {
  73     foreach my $support_str ( $ru_support, $l1_support ) {
  74         ok $m->goto_create_ticket( $q ), "go to create ticket";
  75         $m->form_number(3);
  76         $m->field( Subject => $test_str );
  77         $m->field( Content => $support_str );
  78         $m->submit;
  79
  80         $m->content_like(
  81             qr{<td\s+class="message-header-value"[^>]*>\s*\Q$test_str\E\s*</td>}i,
  82             'header on the page'
  83         );
  84         $m->content_like(
  85             qr{\Q$support_str\E}i,
  86             'content on the page'
  87         );
  88
  89         my $ticket = RT::Test->last_ticket;
  90         is $ticket->Subject, $test_str, "correct subject";
  91     }
  92 }
  93