X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=rt%2Ft%2Fweb%2Frest-non-ascii-subject.t;h=0d3e14dfb576915c524ee58801dcafc69065e9f3;hb=ed1f84b4e8f626245995ecda5afcf83092c153b2;hp=70c910afeb03b91c0a0d59b6744eb89a7b5867b6;hpb=b4b0c7e72d7eaee2fbfc7022022c9698323203dd;p=freeside.git

diff --git a/rt/t/web/rest-non-ascii-subject.t b/rt/t/web/rest-non-ascii-subject.t
index 70c910afe..0d3e14dfb 100644
--- a/rt/t/web/rest-non-ascii-subject.t
+++ b/rt/t/web/rest-non-ascii-subject.t
@@ -1,13 +1,8 @@
-#!/usr/bin/env perl
 # Test ticket creation with REST using non ascii subject
 use strict;
 use warnings;
-use RT::Test tests => 7;
+use RT::Test tests => 9;
 
-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}");
 
@@ -35,21 +30,17 @@ 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 => Encode::encode( "UTF-8", $content),
 ], Content_Type => 'form-data' );
 
 my ($id) = $m->content =~ /Ticket (\d+) created/;
 ok($id, "got ticket #$id");
 
-my $ticket = RT::Ticket->new($RT::SystemUser);
+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");
-}
+is($attach->GetHeader('Subject'), $subject, "attachement header subject successfully set");