view release on metacpan or  search on metacpan

t/9_direct_invok.t  view on Meta::CPAN

use Test;
use strict;

BEGIN { plan tests => 6 };

use Mail::MboxParser::Mail;

ok(1);

my ($header, $body, $all) = 
    do {    local $/ = ""; my $hd = <DATA>;
            local $/;      my $bd = <DATA>;
            my $al = "$hd\n$bd";
            ("$hd\n", $bd, $al)    };


ok(my $m1 = Mail::MboxParser::Mail->new($header, $body));
ok(my $m2 = Mail::MboxParser::Mail->new( [ split /\n/, $header ],
                                         [ split /\n/, $body ] ));
ok($m1->body eq $m2->body);
ok($m1->header->{subject} eq $m2->header->{subject});

t/old_9_direct_invok.t  view on Meta::CPAN

use Test;
use strict;

BEGIN { plan tests => 6 };

use Mail::MboxParser::Mail;

ok(1);

my ($header, $body, $all) = 
    do {    local $/ = ""; my $hd = <DATA>;
            local $/;      my $bd = <DATA>;
            my $al = "$hd\n$bd";
            ("$hd\n", $bd, $al)    };


ok(my $m1 = Mail::MboxParser::Mail->new($header, $body));
ok(my $m2 = Mail::MboxParser::Mail->new( [ split /\n/, $header ],
                                         [ split /\n/, $body ] ));
ok($m1->body eq $m2->body);
ok($m1->header->{subject} eq $m2->header->{subject});