rt/t/rtname.t

   1 #!/usr/bin/perl
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test nodata => 1, tests => 9;
   6
   7 use RT::Interface::Email;
   8
   9 # normal use case, regexp set to rtname
  10 RT->Config->Set( rtname => "site" );
  11 RT->Config->Set( EmailSubjectTagRegex => qr/site/ );
  12 RT->Config->Set( rtname => undef );
  13 is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123);
  14 is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef);
  15
  16 # oops usecase, where the regexp is scragged
  17 RT->Config->Set( rtname => "site" );
  18 RT->Config->Set( EmailSubjectTagRegex => undef );
  19 is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123);
  20 is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef);
  21
  22 # set to a simple regexp. NOTE: we no longer match "site"
  23 RT->Config->Set( rtname => "site");
  24 RT->Config->Set( EmailSubjectTagRegex => qr/newsite/);
  25 is(RT::Interface::Email::ParseTicketId("[site #123] test"), undef);
  26 is(RT::Interface::Email::ParseTicketId("[newsite #123] test"), 123);
  27
  28 # set to a more complex regexp
  29 RT->Config->Set( rtname => "site" );
  30 RT->Config->Set( EmailSubjectTagRegex => qr/newsite|site/ );
  31 is(RT::Interface::Email::ParseTicketId("[site #123] test"), 123);
  32 is(RT::Interface::Email::ParseTicketId("[newsite #123] test"), 123);
  33 is(RT::Interface::Email::ParseTicketId("[othersite #123] test"), undef);
  34