rt/t/api/emailparser.t

   1
   2 use strict;
   3 use warnings;
   4 use RT;
   5 use RT::Test tests => 4;
   6
   7
   8 {
   9
  10 ok(require RT::EmailParser);
  11
  12
  13 }
  14
  15 {
  16
  17 is(RT::EmailParser::IsRTAddress("","rt\@example.com"),1, "Regexp matched rt address" );
  18 is(RT::EmailParser::IsRTAddress("","frt\@example.com"),undef, "Regexp didn't match non-rt address" );
  19
  20
  21 }
  22
  23 {
  24
  25 my @before = ("rt\@example.com", "frt\@example.com");
  26 my @after = ("frt\@example.com");
  27 ok(eq_array(RT::EmailParser::CullRTAddresses("",@before),@after), "CullRTAddresses only culls RT addresses");
  28
  29
  30 }
  31
  32 1;