2 files changed, 48 insertions, 0 deletions
diff --git a/regress/filter/Makefile b/regress/filter/Makefile
new file mode 100644
index 00000000..020c67c4
--- /dev/null
+++ b/regress/filter/Makefile
@@ -0,0 +1,8 @@
+#
+# $FML$
+#
+
+all:
+	@ echo "* check BodyCheck basic functions"
+	../filter/bodycheck.pl ../testmails/text=* \
+		../testmails/multipart=*
diff --git a/regress/filter/bodycheck.pl b/regress/filter/bodycheck.pl
new file mode 100755
index 00000000..4501656f
--- /dev/null
+++ b/regress/filter/bodycheck.pl
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+#
+# $FML$
+#
+
+use lib qw(../../fml/lib ../../cpan/lib ../../img/lib);
+use FileHandle;
+use Mail::Message;
+use FML::Filter::BodyCheck;
+
+for my $f (@ARGV) {
+    my $checker = new FML::Filter::BodyCheck;
+    my $fh      = new FileHandle $f;
+    my $message = Mail::Message->parse( { fd => $fh } );
+
+    if (defined $message) {
+	my $m = $message->get_first_plaintext_message();
+
+	_print(" - analyze $f");
+
+	_print("num of paragraph(s) =", $m->num_paragraph);
+
+	_print("need_one_line_check =",
+	       ($checker->need_one_line_check($m) ? "yes" : "no"));
+
+	_print("first part =",
+	       ($checker->is_empty($m) ? "empty" : $m->size." bytes"));
+		
+	print STDERR "\n";
+    }
+}
+
+exit 0;
+
+
+sub _print
+{
+    my (@args) = @_;
+    printf STDERR "%30s %s %s %s\n", @args;
+}