test tool for FML::Confirm

1 files changed, 18 insertions, 0 deletions

diff --git a/regress/base/confirm.pl b/regress/base/confirm.pl
new file mode 100755
index 00000000..8fe40cf3
--- /dev/null
+++ b/regress/base/confirm.pl
@@ -0,0 +1,18 @@
+#!/usr/bin/env perl
+#
+# $FML$
+#
+
+use lib qw(../../fml/lib ../../cpan/lib);
+use FML::Confirm;
+
+my $confirm = new FML::Confirm {
+    cache_dir => "/tmp/confirm.cache",
+    class     => "subscribe",
+    address   => "fukachan\@fml.org",
+    buffer    => "subscribe kenichi fukamachi",
+};
+
+print "id = ", $confirm->assign_id(), "\n";
+
+exit 0;