use "Message-ID" capitalization consistently

[ssoma-mda.git] / t / extractor.t

diff --git a/t/extractor.t b/t/extractor.t
index 62a5571da4b51d6c6bd27d5352c50ff18fff5e7b..c517d73be3a75a54e1f5f285ae92974889d07fdc 100644 (file)
--- a/t/extractor.t
+++ b/t/extractor.t
@@ -23,7 +23,7 @@ my $mda = Ssoma::MDA->new($mdagit);
 my $email = Email::Simple->new(<<'EOF');
 From: U <u@example.com>
 To: Me <me@example.com>
-Message-Id: <666@example.com>
+Message-ID: <666@example.com>
 Subject: :o
 
 HIHI
@@ -87,7 +87,7 @@ my $check_last = sub {
 my $another = Email::Simple->new(<<'EOF');
 From: U <u@example.com>
 To: Me <me@example.com>
-Message-Id: <666666@example.com>
+Message-ID: <666666@example.com>
 Subject: byebye
 
 *yawn*
@@ -136,7 +136,7 @@ $mda->deliver($another);
 my $conflict = Email::Simple->new(<<'EOF');
 From: U <u@example.com>
 To: Me <me@example.com>
-Message-Id: <666666@example.com>
+Message-ID: <666666@example.com>
 Subject: BYE
 
 *YAWN*
@@ -181,7 +181,7 @@ $mda->deliver($conflict);
        my @lines = <$fh>;
        my @subjects = grep /^Subject:/, @lines;
        my @from = grep /^From:/, @lines;
-       my @mid = grep /^Message-Id:/i, @lines;
+       my @mid = grep /^Message-ID:/i, @lines;
        is(scalar @subjects, 3, "3 subjects in dump");
        is(scalar @mid, 3, "3 message-ids in dump");
        is(scalar @from, 3, "3 From: lines in dump");