ヤミRoot VoidGate

Viewing: internet.t

#!perl -w

require Mail::Internet;
use Config;

$ENV{LOGNAME} ||= 'unknown';

print "1..3\n";
$|=1;

$head = <<EOF;
From from_\@localhost
To: Some perl administrator <$Config{perladmin}>
From: Somebody <$ENV{LOGNAME}\@localhost>
Subject: Mail::Internet test subject
EOF

$body = <<EOF;
This is a test message that was sent by the test suite of
Mail::Internet.

Testing.

one

From foo
four

>From bar
seven
EOF

$mail = "$head\n$body";
($mbox = $mail) =~ s/^(>*)From /$1>From /gm;
$mbox =~ s/^>From /From / or die;
$mbox .= "\n";
@mail = map { "$_\n" } split /\n/, $mail;

sub ok {
    my ($n, $result, @info) = @_;
    if ($result) {
    	print "ok $n\n";
    }
    else {
    	for (@info) {
	    s/^/# /mg;
	}
    	print "not ok $n\n", @info;
	print "\n" if @info && $info[-1] !~ /\n$/;
    }
}

ok 1, $i = new Mail::Internet \@mail, Modify => 0;
ok 2, $i->as_string eq $mail, $i->as_string;
ok 3, $i->as_mbox_string eq $mbox, $i->as_mbox_string;
#ok 4, $i->send;

User / IP	: 216.73.216.2
Host / Server	: 146.88.233.70 / dev.loger.cm
System	: Linux hybrid1120.fr.ns.planethoster.net 3.10.0-957.21.2.el7.x86_64 #1 SMP Wed Jun 5 14:26:44 UTC 2019 x86_64