check print a chain

2 files changed, 23 insertions, 18 deletions

diff --git a/regress/base/multipart_maker.pl b/regress/base/multipart_maker.pl
index 7c672233..4af55a06 100755
--- a/regress/base/multipart_maker.pl
+++ b/regress/base/multipart_maker.pl
@@ -1,28 +1,32 @@
 use strict;
 use File::Basename;
+use MailingList::Messages;
 
 my $dir = dirname($0);
 
 $| = 1;
 
-my $msg = shift || "/etc/fml/main.cf";
-
-use FileHandle;
-my $fh = new FileHandle $msg;
-
 my $header;
 my $boundary;
 my $body;
-
-use MailingList::Messages;
-my $m = new MailingList::Messages { 
-    content_type   => 'text/plain',
-    charset        => 'iso-2022-jp',
-    boundary       => $boundary,
-    filename       => $msg,
-    debug          => 1,
-};
-
-$m->raw_print;
+my $m_prev;
+my $msg;
+my $master;
+
+for $msg (@ARGV) {
+    my $m = new MailingList::Messages { 
+	content_type   => 'text/plain',
+	charset        => 'iso-2022-jp',
+	boundary       => $boundary,
+	filename       => $msg,
+	debug          => 1,
+    };
+
+    $m_prev->next_chain( $m ) if defined $m_prev;
+    $m_prev = $m;
+    $master = $m unless $master; 
+}
+
+$master->raw_print;
 
 exit 0;
diff --git a/regress/base/multipart_maker.sh b/regress/base/multipart_maker.sh
index f6880a82..04bfef89 100644
--- a/regress/base/multipart_maker.sh
+++ b/regress/base/multipart_maker.sh
@@ -13,13 +13,14 @@ trap "rm -f $tmp $buf" 0 1 3 15
 
 DIFF () {
 	local msg=$1
- 
-	perl $dir/multipart_maker.pl $msg > $buf
+
+	perl $dir/multipart_maker.pl $1 $2 $3 > $buf
 	sed '1,/^$/d' $buf > $tmp
 
 	diff -ub $msg $tmp && echo ok || echo fail
 }
 
 DIFF /etc/fml/main.cf
+DIFF /etc/fml/main.cf /etc/group
 
 exit 0;