8 open (HANDLE, "data/nested-mime-sample");
9 my $parser = RT::EmailParser->new()
10 $parser->ParseMIMEEntityFromFileHandle(\*HANDLE);
11 my $entity = $parser->Entity;
13 my $q = RT::Queue->new($RT::SystemUser);
15 ok ($q->Id, "Queue is loaded");
16 my $Ticket = RT::Ticket->new($RT::SystemUser);
17 my ($tid, $ttid, $msg) =$Ticket->Create( Queue => $q->Id, Subject => "Nested mime test", MIMEObj => $entity);