diff options
| -rwxr-xr-x | regress/header/message_id.pl | 19 |
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"; +} |