rt/t/web/offline_messages_utf8.t

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