rt/t/web/offline_messages_utf8.t

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