rt/t/api/attachment.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::Attachment);
  11
  12
  13 }
  14
  15 {
  16
  17 my $test1 = "From: jesse";
  18 my @headers = RT::Attachment->_SplitHeaders($test1);
  19 is ($#headers, 0, $test1 );
  20
  21 my $test2 = qq{From: jesse
  22 To: bobby
  23 Subject: foo
  24 };
  25
  26 @headers = RT::Attachment->_SplitHeaders($test2);
  27 is ($#headers, 2, "testing a bunch of singline multiple headers" );
  28
  29
  30 my $test3 = qq{From: jesse
  31 To: bobby,
  32  Suzie,
  33     Sally,
  34     Joey: bizzy,
  35 Subject: foo
  36 };
  37
  38 @headers = RT::Attachment->_SplitHeaders($test3);
  39 is ($#headers, 2, "testing a bunch of singline multiple headers" );
  40
  41
  42
  43 }
  44
  45 1;