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=d7a89af5edb4f794d78d4b9309f41fcd2179bf3d;hpb=f3c4966ed1f6ec3db7accd6dcdd3a5a3821d72a7;p=freeside.git

diff --git a/rt/t/web/rest-non-ascii-subject.t b/rt/t/web/rest-non-ascii-subject.t
index d7a89af5e..0d3e14dfb 100644
--- a/rt/t/web/rest-non-ascii-subject.t
+++ b/rt/t/web/rest-non-ascii-subject.t
@@ -1,11 +1,8 @@
-#!/usr/bin/env perl
 # Test ticket creation with REST using non ascii subject
 use strict;
 use warnings;
 use RT::Test tests => 9;
 
-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}");
 
@@ -33,8 +30,7 @@ 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/;