diff options
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"); -} |