test of Mail::Message::summary

1 files changed, 34 insertions, 0 deletions

diff --git a/regress/message/summary.pl b/regress/message/summary.pl
new file mode 100755
index 00000000..7e3f08c0
--- /dev/null
+++ b/regress/message/summary.pl
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+#-*- perl -*-
+#
+#  Copyright (C) 2004 Ken'ichi Fukamachi
+#   All rights reserved. This program is free software; you can
+#   redistribute it and/or modify it under the same terms as Perl itself. 
+#
+# $FML: basic_io.pl,v 1.5 2002/04/18 14:18:09 fukachan Exp $
+#
+
+use strict;
+use Carp;
+use lib qw(../../cpan/lib);
+use Mail::Message;
+
+my $test_mode = $ENV{'test_mode'} ? 1 : 0;
+
+my $tmp = "/tmp/buf$$";
+
+for my $f (@ARGV) {
+    print "// $f\n";	
+
+    my $fh  = new FileHandle $f;
+    my $wh  = new FileHandle "> $tmp";
+    my $msg = Mail::Message->parse( { fd => $fh } );
+
+    print $msg->one_line_summary($wh);
+    print "\n";
+    print "\n";
+}
+
+unlink $tmp;
+
+exit 0;