read test of virtual_maps (only file: now)

1 files changed, 35 insertions, 0 deletions

diff --git a/regress/base/virtual_maps.pl b/regress/base/virtual_maps.pl
new file mode 100755
index 00000000..14ff6056
--- /dev/null
+++ b/regress/base/virtual_maps.pl
@@ -0,0 +1,35 @@
+#!/usr/bin/env perl
+#
+# $FML$
+#
+
+if (-f "/etc/postfix/virtual") {
+    print "IO::Adapter::find() for /etc/postfix/virtual\n";
+
+    use IO::Adapter;
+
+    my $map = new IO::Adapter ("file:/etc/postfix/virtual");
+
+    if (defined $map) {
+	$map->open;
+
+	print "# want is not specified.\n";
+	my $r = $map->find('^nuinui');
+	print $r, "\n";
+
+	print "# want = key,value\n";
+	my $r = $map->find('^nuinui', { want => 'key,value' } );
+	print $r, "\n";
+
+	print "# want = key\n";
+	my $r = $map->find('^nuinui', { want => 'key' } );
+	print $r, "\n";
+
+    }
+    else {
+	use Carp;
+	croak("undefined");
+    }
+}
+
+exit 0;