rt/t/web/offline_messages_utf8.t

   1 #!/usr/bin/env perl
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test tests => 8;
   6 use Encode;
   7 use RT::Ticket;
   8
   9 my ( $url, $m ) = RT::Test->started_ok;
  10 $m->default_header( 'Accept-Language' => "zh-tw" );
  11 ok( $m->login, 'logged in' );
  12
  13 my $ticket_id;
  14 my $template;
  15
  16 {
  17
  18     # test create message
  19     $template = <<EOF;
  20 ===Create-Ticket: ticket1
  21 Queue: General
  22 Subject: test message
  23 Status: new
  24 Content:
  25 ENDOFCONTENT
  26 Due:
  27 TimeEstimated: 100
  28 TimeLeft: 100
  29 FinalPriority: 90
  30 EOF
  31
  32     $m->get_ok( $url . '/Tools/Offline.html' );
  33
  34     $m->submit_form(
  35         form_name => 'TicketUpdate',
  36         fields    => { string => $template, },
  37         button    => 'UpdateTickets',
  38     );
  39     my $content = encode 'utf8', $m->content;
  40     ok( $content =~ m/申請單 #(\d+) 成功新增於 &#39;General&#39; 表單/, 'message is shown right' );
  41     $ticket_id = $1;
  42 }
  43
  44 {
  45
  46     # test update message
  47     $template = <<EOF;
  48 ===Update-Ticket: 1
  49 Subject: test message update
  50 EOF
  51
  52     $m->get_ok( $url . '/Tools/Offline.html' );
  53     $m->submit_form(
  54         form_name => 'TicketUpdate',
  55         fields    => { string => $template, },
  56         button    => 'UpdateTickets',
  57     );
  58
  59     my $content = encode 'utf8', $m->content;
  60     ok(
  61         $content =~
  62 qr/主題\s*的值從\s*&#39;test message&#39;\s*改為\s*&#39;test message update&#39;/,
  63         'subject is updated'
  64     );
  65 }
  66