5 use RT::Test tests => 4;
10 ok (require RT::Attachment);
17 my $test1 = "From: jesse";
18 my @headers = RT::Attachment->_SplitHeaders($test1);
19 is ($#headers, 0, $test1 );
21 my $test2 = qq{From: jesse
26 @headers = RT::Attachment->_SplitHeaders($test2);
27 is ($#headers, 2, "testing a bunch of singline multiple headers" );
30 my $test3 = qq{From: jesse
38 @headers = RT::Attachment->_SplitHeaders($test3);
39 is ($#headers, 2, "testing a bunch of singline multiple headers" );