6 use RT::Test tests => 14;
9 my ($baseurl, $m) = RT::Test->started_ok;
10 RT::Test->set_mail_catcher;
12 my $queue = RT::Test->load_or_create_queue(
14 CorrespondAddress => 'rt-recipient@example.com',
15 CommentAddress => 'rt-recipient@example.com',
17 my $subject_tag = 'Windows/Servers-Desktops';
18 ok $queue && $queue->id, 'loaded or created queue';
20 diag "Set Subject Tag" if $ENV{'TEST_VERBOSE'};
22 is(RT->System->SubjectTag($queue), undef, 'No Subject Tag yet');
23 my ($status, $msg) = $queue->SetSubjectTag( $subject_tag );
24 ok $status, "set subject tag for the queue" or diag "error: $msg";
25 is(RT->System->SubjectTag($queue), $subject_tag, "Set Subject Tag to $subject_tag");
28 my $original_ticket = RT::Ticket->new( $RT::SystemUser );
29 diag "Create a ticket and make sure it has the subject tag" if $ENV{'TEST_VERBOSE'};
31 $original_ticket->Create(
34 Requestor => 'root@localhost'
36 my @mails = RT::Test->fetch_caught_mails;
37 ok @mails, "got some outgoing emails";
40 foreach my $mail ( @mails ) {
41 my $entity = parse_mail( $mail );
42 my $subject = $entity->head->get('Subject');
43 $subject =~ /\[\Q$subject_tag\E #\d+\]/
44 or do { $status = 0; diag "wrong subject: $subject" };
46 ok $status, "Correctly added subject tag to ticket";
50 diag "Test that a reply with a Subject Tag doesn't change the subject" if $ENV{'TEST_VERBOSE'};
52 my $ticketid = $original_ticket->Id;
55 To: general\@$RT::rtname
56 Subject: [$subject_tag #$ticketid] test
58 reply with subject tag
60 my ($status, $id) = RT::Test->send_via_mailgate($text, queue => $queue->Name);
61 is ($status >> 8, 0, "The mail gateway exited normally");
62 is ($id, $ticketid, "Replied to ticket $id correctly");
64 my $freshticket = RT::Ticket->new( $RT::SystemUser );
65 $freshticket->LoadById($id);
66 is($original_ticket->Subject,$freshticket->Subject,'Stripped Queue Subject Tag correctly');
70 diag "Test that a reply with another RT's subject tag changes the subject" if $ENV{'TEST_VERBOSE'};
72 my $ticketid = $original_ticket->Id;
75 To: general\@$RT::rtname
76 Subject: [$subject_tag #$ticketid] [remote-rt-system #79] test
78 reply with subject tag and remote rt subject tag
81 my ($status, $id) = RT::Test->send_via_mailgate($text, queue => $queue->Name);
82 is ($status >> 8, 0, "The mail gateway exited normally");
83 is ($id, $ticketid, "Replied to ticket $id correctly");
85 my $freshticket = RT::Ticket->new( $RT::SystemUser );
86 $freshticket->LoadById($id);
87 like($freshticket->Subject,qr/\[remote-rt-system #79\]/,"Kept remote rt's subject tag");
88 unlike($freshticket->Subject,qr/\[\Q$subject_tag\E #$ticketid\]/,'Stripped Queue Subject Tag correctly');
94 require RT::EmailParser;
95 my $parser = new RT::EmailParser;
96 $parser->ParseMIMEEntityFromScalar( $mail );
97 return $parser->Entity;