--- a/t/000-message.t	Thu Nov 10 16:18:38 2011 +0100
+++ b/t/000-message.t	Fri Nov 11 11:22:50 2011 +0100
@@ -17,11 +17,12 @@
 ok(scalar(@header_lines), "got some header lines");
 
 my $received = grep /^received:/i => @header_lines;
-my @received0 = $message->header_content("received:");
-my @received1 = $message->header_content("Received:");
+my @received0 = $message->header_contents("received:");
+my @received1 = $message->header_contents("Received:");
+my $received0 = $message->header_contents("received:");  # single lines
 
-is(scalar(@received0), $received, "$received received headers");
+is(scalar(@received0), $received, "$received received headers in list");
+is(scalar(@received0), scalar(my @a = $received0 =~ /\n/g), "$received received lines in scalar");
 is_deeply(\@received0, \@received1, "case insensitive field names");
 
-
 done_testing();