diff options
author | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
---|---|---|
committer | cvs2git <cvs2git> | 2010-12-27 00:04:45 +0000 |
commit | c82d349f864e6bd9f96fd1156903bc1f7193a203 (patch) | |
tree | e117a87533656110b6acd56fc0ca64289892a9f5 /rt/t/web/rest-non-ascii-subject.t | |
parent | 74e058c8a010ef6feb539248a550d0bb169c1e94 (diff) |
This commit was manufactured by cvs2svn to create tag 'TORRUS_1_0_9'.TORRUS_1_0_9
Diffstat (limited to 'rt/t/web/rest-non-ascii-subject.t')
-rw-r--r-- | rt/t/web/rest-non-ascii-subject.t | 55 |
1 files changed, 0 insertions, 55 deletions
diff --git a/rt/t/web/rest-non-ascii-subject.t b/rt/t/web/rest-non-ascii-subject.t deleted file mode 100644 index 70c910afe..000000000 --- a/rt/t/web/rest-non-ascii-subject.t +++ /dev/null @@ -1,55 +0,0 @@ -#!/usr/bin/env perl -# Test ticket creation with REST using non ascii subject -use strict; -use warnings; -use RT::Test tests => 7; - -local $RT::Test::SKIP_REQUEST_WORK_AROUND = 1; - -use Encode; -# \x{XX} where XX is less than 255 is not treated as unicode code point -my $subject = Encode::decode('latin1', "Sujet accentu\x{e9}"); -my $text = Encode::decode('latin1', "Contenu accentu\x{e9}"); - -my ($baseurl, $m) = RT::Test->started_ok; - -my $queue = RT::Test->load_or_create_queue(Name => 'General'); -ok($queue->Id, "loaded the General queue"); - -my $content = "id: ticket/new -Queue: General -Requestor: root -Subject: $subject -Cc: -AdminCc: -Owner: -Status: new -Priority: -InitialPriority: -FinalPriority: -TimeEstimated: -Starts: 2009-03-10 16:14:55 -Due: 2009-03-10 16:14:55 -Text: $text"; - -$m->post("$baseurl/REST/1.0/ticket/new", [ - user => 'root', - pass => 'password', -# error message from HTTP::Message: content must be bytes - content => Encode::encode_utf8($content), -], Content_Type => 'form-data' ); - -my ($id) = $m->content =~ /Ticket (\d+) created/; -ok($id, "got ticket #$id"); - -my $ticket = RT::Ticket->new($RT::SystemUser); -$ticket->Load($id); -is($ticket->Id, $id, "loaded the REST-created ticket"); -is($ticket->Subject, $subject, "ticket subject successfully set"); - -my $attach = $ticket->Transactions->First->Attachments->First; -is($attach->Subject, $subject, "attachement subject successfully set"); -TODO: { - local $TODO = "Not fixed yet, but not a regression"; - is($attach->GetHeader('Subject'), $subject, "attachement header subject successfully set"); -} |