1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
#!/usr/bin/perl
use lib "lib", "t";
use MIME::Lite;
use ExtUtils::TBone;
use Utils;
# Make a tester... here are 3 different alternatives:
my $T = typical ExtUtils::TBone; # standard log
$MIME::Lite::VANILLA = 1;
$MIME::Lite::PARANOID = 1;
# Begin testing:
$T->begin(4);
my ($me, $str);
#------------------------------
$me = MIME::Lite->build(Type => 'text/plain',
Data => "Hello\nWorld\n");
$str = $me->as_string;
$T->ok(($str =~ m{Hello\nWorld\n}),
$from,
"Data string");
#------------------------------
$me = MIME::Lite->build(Type => 'text/plain',
Data => ["Hel", "lo\n", "World\n"]);
$str = $me->as_string;
$T->ok(($str =~ m{Hello\nWorld\n}),
$from,
"Data array 1");
#------------------------------
$me = MIME::Lite->build(Type => 'text/plain',
Data => ["Hel", "lo", "\n", "", "World", "", "","\n"]);
$str = $me->as_string;
$T->ok(($str =~ m{Hello\nWorld\n}),
$from,
"Data array 2");
#------------------------------
$me = MIME::Lite->build(Type => 'text/plain',
Path => "./testin/hello");
$str = $me->as_string;
$T->ok(($str =~ m{Hello\r?\nWorld\r?\n}),
$from,
"Data file");
$T->end;
|
