rt/lib/t/regression/19-rtname.t

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