rt/t/web/offline_messages_utf8.t

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