rt/lib/t/regression/mime_tests

   1 use RT::Ticket;
   2 use RT::Queue;
   3
   4 use MIME::Parser;
   5 use File::Temp;
   6 use RT::EmailParser;
   7
   8 open (HANDLE, "data/nested-mime-sample");
   9 my $parser = RT::EmailParser->new()
  10  $parser->ParseMIMEEntityFromFileHandle(\*HANDLE);
  11 my $entity = $parser->Entity;
  12
  13 my $q = RT::Queue->new($RT::SystemUser);
  14 $q->Load('general');
  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);
  18 ok ($tid, $msg);
  19 ok($Ticket->Id);