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

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