Initial revision

1 files changed, 23 insertions, 0 deletions

diff --git a/regress/header/subject_tag.pl b/regress/header/subject_tag.pl
new file mode 100755
index 00000000..cacc53f4
--- /dev/null
+++ b/regress/header/subject_tag.pl
@@ -0,0 +1,23 @@
+#!/usr/local/bin/perl -w
+#
+# $Id$
+#
+
+use lib qw(../../fml/lib);
+use FML::Header::Subject;
+
+my $format      = "%8s %s\n";
+my $subject_tag = '[%s %05d]';
+my $x           = sprintf($subject_tag, 'elena', 100). " uja";
+
+{
+    printf $format,  "tag:", $subject_tag;
+    $re = FML::Header::Subject::_regexp_compile( $subject_tag );
+    printf $format,  "regexp:", $re;
+
+    printf $format,  "in:", $x;
+    $x = FML::Header::Subject::_delete_subject_tag( $x , $subject_tag );
+    printf $format,  "out:", $x;
+}
+
+exit 0;