1 # Test ticket creation with REST using non ascii subject
4 use RT::Test tests => 9;
6 my $subject = Encode::decode('latin1', "Sujet accentu\x{e9}");
7 my $text = Encode::decode('latin1', "Contenu accentu\x{e9}");
9 my ($baseurl, $m) = RT::Test->started_ok;
11 my $queue = RT::Test->load_or_create_queue(Name => 'General');
12 ok($queue->Id, "loaded the General queue");
14 my $content = "id: ticket/new
26 Starts: 2009-03-10 16:14:55
27 Due: 2009-03-10 16:14:55
30 $m->post("$baseurl/REST/1.0/ticket/new", [
33 content => Encode::encode( "UTF-8", $content),
34 ], Content_Type => 'form-data' );
36 my ($id) = $m->content =~ /Ticket (\d+) created/;
37 ok($id, "got ticket #$id");
39 my $ticket = RT::Ticket->new(RT->SystemUser);
41 is($ticket->Id, $id, "loaded the REST-created ticket");
42 is($ticket->Subject, $subject, "ticket subject successfully set");
44 my $attach = $ticket->Transactions->First->Attachments->First;
45 is($attach->Subject, $subject, "attachement subject successfully set");
46 is($attach->GetHeader('Subject'), $subject, "attachement header subject successfully set");