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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
|
#!/usr/bin/perl -T
#
# Test threading on Mbox folders.
#
use strict;
use warnings;
use lib qw(. .. tests);
use Tools;
use Test::More tests => 23;
use File::Copy;
use Mail::Box::Manager;
#
# We will work with a copy of the original to avoid that we write
# over our test file.
#
copy $src, $cpy
or die "Cannot create test folder $cpy: $!\n";
my $mgr = Mail::Box::Manager->new;
ok($mgr);
my $folder = $mgr->open
( folder => "=$cpyfn"
, folderdir => 'folders'
, lock_type => 'NONE'
, extract => 'LAZY'
, access => 'rw'
, save_on_exit => 0
# , thread_timespan => 'EVER'
);
ok($folder);
my $threads = $mgr->threads(folder => $folder);
# First try message which is single.
my $single = $folder->messageID(
'<200010041822.e94IMZr19712@mystic.es.dupont.com>');
ok($single);
my $single2 = $folder->messageID(
'200010041822.e94IMZr19712@mystic.es.dupont.com');
ok($single2);
is($single2, $single);
my $single3 = $folder->messageID(
'garbage <200010041822.e94IMZr19712@mystic.es.dupont.com> trash');
ok($single3);
is($single3, $single);
my $start = $threads->threadStart($single);
ok($start);
is($single->messageID, $start->message->messageID);
my $message = $folder->messageID('NDBBJJFDMKFOAIFBEPPJIELLCBAA.cknoos@atg.com');
ok($message);
my $this = $threads->thread($message);
ok($this);
compare_thread_dumps($this->threadToString, <<'MIDDLE', 'thread from here');
1.2K Problem resizing images through perl script
820 `- Re: Problem resizing images through perl script
1.8K `- RE: Problem resizing images through perl script
1.0K `- Re: Problem resizing images through perl script
MIDDLE
$start = $threads->threadStart($message);
ok(defined $start);
my $startmsg = $start->message;
ok(defined $startmsg);
isa_ok($startmsg, 'Mail::Message::Dummy');
isa_ok($startmsg, 'Mail::Message');
ok($startmsg->isDummy);
ok($startmsg->messageID ne $message->messageID);
compare_thread_dumps($start->threadToString, <<'START', 'thread from top');
1.2K *- Problem resizing images through perl script
820 | `- Re: Problem resizing images through perl script
1.8K | `- RE: Problem resizing images through perl script
1.0K | `- Re: Problem resizing images through perl script
1.2K `- Re: Convert HTM, HTML files to the .jpg format
START
$this->folded(1);
compare_thread_dumps($start->threadToString, <<'FOLDED', 'folded thread');
*- [4] Problem resizing images through perl script
1.2K `- Re: Convert HTM, HTML files to the .jpg format
FOLDED
$this->folded(0);
compare_thread_dumps($start->threadToString, <<'START', 'unfolded thread');
1.2K *- Problem resizing images through perl script
820 | `- Re: Problem resizing images through perl script
1.8K | `- RE: Problem resizing images through perl script
1.0K | `- Re: Problem resizing images through perl script
1.2K `- Re: Convert HTM, HTML files to the .jpg format
START
my $out = join '', map {$_->threadToString} $threads->sortedKnown;
my @lines = sort split "\n", $out;
ok(@lines = $folder->messages);
$out = join '', @lines;
my $dump = <<'DUMP';
1.3K Resize with Transparency
1.2K *- Re: File Conversion From HTML to PS and TIFF
2.1K `--*- Re: File Conversion From HTML to PS and TIFF
2.1K `- Re: File Conversion From HTML to PS and TIFF
1.4K Transparency question
2.4K RE: Transparency question
3.3K RE: Transparency question
5.5K RE: Transparency question
7.2K RE: Transparency question
2.7K RE: jpeg2000 question
1.2K *- Problem resizing images through perl script
820 | `- Re: Problem resizing images through perl script
1.8K | `- RE: Problem resizing images through perl script
1.0K | `- Re: Problem resizing images through perl script
1.2K `- Re: Convert HTM, HTML files to the .jpg format
747 Undefined Symbol: SetWarningHandler
1.1K `- Re: Undefined Symbol: SetWarningHandler
1.8K *- Re: watermarks/embossing
307 Re: Annotate problems (PR#298)
573 `- Re: Annotate problems (PR#298)
1.0K
1.4K `- Re: your mail
1.9K `- Re: your mail
152 Re: your mail
686 `- Re: your mail
189 Re: your mail
2.0K
670 Re: your mail
4.4K `- Re: your mail
552 mailing list archives
1.4K delegates.mgk set-up for unixware printing
1.5K printing solution for UW 7.1
1.4K *- Re: converts new sharpen factors
1.2K New ImageMagick mailing list
27 subscribe
822 Confirmation for subscribe magick-developer
63 `- Re: Confirmation for subscribe magick-developer
11K Welcome to magick-developer
1.7K core dump in simple ImageMagick example
2.2K `- Re: core dump in simple ImageMagick example
882 `- Re: core dump in simple ImageMagick example
754 `- Re: core dump in simple ImageMagick example
2.0K Core Dump on ReadImage
1.0K `- Re: Core Dump on ReadImage
1.6K Font metrics
DUMP
$dump = join '', sort split /^/, $out;
compare_thread_dumps($out, $dump , 'sorted full dump');
|
