4 use Test::More qw/no_plan/;
11 use RT::Interface::Email;
13 # normal use case, regexp set to rtname
15 $RT::EmailSubjectTagRegex = qr/$RT::rtname/ ;
17 is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123);
18 is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef);
20 # oops usecase, where the regexp is scragged
22 $RT::EmailSubjectTagRegex = undef;
23 is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123);
24 is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef);
26 # set to a simple regexp. NOTE: we no longer match "site"
28 $RT::EmailSubjectTagRegex = qr/newsite/;
29 is(RT::Interface::Email::ParseTicketId("[site #123] test"), undef);
30 is(RT::Interface::Email::ParseTicketId("[newsite #123] test"), 123);
32 # set to a more complex regexp
34 $RT::EmailSubjectTagRegex = qr/newsite||site/;
35 is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123);
36 is(RT::Interface::Email::ParseTicketId("[newsite #123] test"), 123);
37 is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef);