equal
deleted
inserted
replaced
15 # as well |
15 # as well |
16 my @header_lines = split /\n/ => $message->orig_header(); |
16 my @header_lines = split /\n/ => $message->orig_header(); |
17 ok(scalar(@header_lines), "got some header lines"); |
17 ok(scalar(@header_lines), "got some header lines"); |
18 |
18 |
19 my $received = grep /^received:/i => @header_lines; |
19 my $received = grep /^received:/i => @header_lines; |
20 my @received0 = $message->header_content("received:"); |
20 my @received0 = $message->header_contents("received:"); |
21 my @received1 = $message->header_content("Received:"); |
21 my @received1 = $message->header_contents("Received:"); |
|
22 my $received0 = $message->header_contents("received:"); # single lines |
22 |
23 |
23 is(scalar(@received0), $received, "$received received headers"); |
24 is(scalar(@received0), $received, "$received received headers in list"); |
|
25 is(scalar(@received0), scalar(my @a = $received0 =~ /\n/g), "$received received lines in scalar"); |
24 is_deeply(\@received0, \@received1, "case insensitive field names"); |
26 is_deeply(\@received0, \@received1, "case insensitive field names"); |
25 |
27 |
26 |
|
27 done_testing(); |
28 done_testing(); |