1 use strict;

     2 use warnings;

     3 use Test::More;

     4 

     5 use_ok "Message::2822"

     6     or BAIL_OUT "Can't load the Message::2822 module";

     7 

     8 my $file = "ex/mails/unsigned";

     9 

    10 # the object itself

    11 my $message = Message::2822->new(file => $file);

    12 isa_ok($message => "Message::2822");

    13 

    14 # the complete header, we need it for later verification 

    15 # as well

    16 my @header_lines = split /\n/ => $message->orig_header();

    17 ok(scalar(@header_lines), "got some header lines");

    18 

    19 my $received = grep /^received:/i => @header_lines;

    20 my @received0 = $message->header_content("received:");

    21 my @received1 = $message->header_content("Received:");

    22 

    23 is(scalar(@received0), $received, "$received received headers");

    24 is_deeply(\@received0, \@received1, "case insensitive field names");

    25 

    26 

    27 done_testing();