rt/t/api/emailparser.t

   1
   2 use strict;
   3 use warnings;
   4
   5 use RT::Test tests => 4;
   6
   7 RT->Config->Set( RTAddressRegexp => qr/^rt\@example.com$/i );
   8
   9
  10 ok(require RT::EmailParser);
  11
  12 is(RT::EmailParser::IsRTAddress("","rt\@example.com"),1, "Regexp matched rt address" );
  13 is(RT::EmailParser::IsRTAddress("","frt\@example.com"),undef, "Regexp didn't match non-rt address" );
  14
  15 my @before = ("rt\@example.com", "frt\@example.com");
  16 my @after = ("frt\@example.com");
  17 ok(eq_array(RT::EmailParser::CullRTAddresses("",@before),@after), "CullRTAddresses only culls RT addresses");
  18
  19 1;