check MailingList::Message multipart maker

2 files changed, 53 insertions, 0 deletions

diff --git a/regress/base/multipart_maker.pl b/regress/base/multipart_maker.pl
new file mode 100755
index 00000000..7c672233
--- /dev/null
+++ b/regress/base/multipart_maker.pl
@@ -0,0 +1,28 @@
+use strict;
+use File::Basename;
+
+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;
+
+exit 0;
diff --git a/regress/base/multipart_maker.sh b/regress/base/multipart_maker.sh
new file mode 100644
index 00000000..f6880a82
--- /dev/null
+++ b/regress/base/multipart_maker.sh
@@ -0,0 +1,25 @@
+#!/bin/sh
+#
+# $Id$
+#
+
+dir=`dirname $0`
+
+tmp=/tmp/buf$$
+buf=/tmp/buf2-$$
+
+trap "rm -f $tmp $buf" 0 1 3 15
+
+
+DIFF () {
+	local msg=$1
+ 
+	perl $dir/multipart_maker.pl $msg > $buf
+	sed '1,/^$/d' $buf > $tmp
+
+	diff -ub $msg $tmp && echo ok || echo fail
+}
+
+DIFF /etc/fml/main.cf
+
+exit 0;