test to generate a message_id

1 files changed, 18 insertions, 1 deletions

diff --git a/regress/header/message_id.pl b/regress/header/message_id.pl
index f855e738..836306c3 100755
--- a/regress/header/message_id.pl
+++ b/regress/header/message_id.pl
@@ -1,6 +1,6 @@
 #!/usr/local/bin/perl
 #
-# $FML$
+# $FML: message_id.pl,v 1.1 2001/04/15 05:05:06 fukachan Exp $
 #
 
 use strict;
@@ -10,6 +10,8 @@ use lib qw(lib ../../cpan/lib);
 
 test();
 
+gen_message_id();
+
 for my $msg (@ARGV) {
     message_io_test($msg);
 }
@@ -59,3 +61,18 @@ sub message_io_test
     my $h      = $header->extract_message_id_references();
     for (@$h) { print $_, "\n";}
 }
+
+sub gen_message_id
+{
+    print "\n* generate message_id\n";
+
+    use FML::Header::MessageID;
+    my $obj = new FML::Header::MessageID;
+
+    my $curproc = { config => { address_for_post => 'elena@fml.org' }};
+    my $args = {};
+
+    print $obj->gen_id($curproc, $args), "\n";
+    print $obj->gen_id($curproc, $args), "\n";
+    print $obj->gen_id($curproc, $args), "\n";
+}