summaryrefslogtreecommitdiff
path: root/test/scripts/3000-Perl
diff options
context:
space:
mode:
authorPhilip Hazel <ph10@hermes.cam.ac.uk>2006-02-07 10:54:33 +0000
committerPhilip Hazel <ph10@hermes.cam.ac.uk>2006-02-07 10:54:33 +0000
commit59371ea735c941334861aa5b8e1e9a06facf044f (patch)
tree79168561a70a94a3994fbe362b904ff9aab86136 /test/scripts/3000-Perl
parent54c5ebb14ead7439af300e9d7d9d7d2ba29ff32e (diff)
Hopefully the final lot of test files.
Diffstat (limited to 'test/scripts/3000-Perl')
-rw-r--r--test/scripts/3000-Perl/300059
-rw-r--r--test/scripts/3000-Perl/REQUIRES1
2 files changed, 60 insertions, 0 deletions
diff --git a/test/scripts/3000-Perl/3000 b/test/scripts/3000-Perl/3000
new file mode 100644
index 000000000..fc5002012
--- /dev/null
+++ b/test/scripts/3000-Perl/3000
@@ -0,0 +1,59 @@
+# Embedded Perl
+exim -be
+${perl{foo}}
+${perl{foo}{arg1}}
+${perl{foo_undef}}
+${perl{foo_die}}
+${perl{foo_warn}}
+${perl{unknown}}
+${perl{readvar}{primary_hostname}}
+${perl{readvar}{notexists}}
+
+${perl}
+${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}}
+${perl{foo}{1}{2}{3}{4}{5}{6}{7}{8}{9}}
+
+${perl{return_scalar}}
+${perl{return_list}}
+${perl{return_variable_vector}}
+${perl{return_hash}}
+
+$tod_full // ${perl{change_locale}} // $tod_full
+****
+exim -d-all+expand -be
+${perl{foo}{arg1}}
+${perl{foo_undef}}
+${perl{debug_write}{debug from Perl\n}}
+${perl{log_write}{log from Perl}}
+****
+exim -v -bs
+ehlo x.y.z
+mail from:<>
+rcpt to:<abc@x.y.z>
+quit
+****
+exim -bh 10.0.0.1
+ehlo x.y.z
+mail from:<>
+rcpt to:<abc@x.y.z>
+quit
+****
+exim -DSERVER=server -bd -oX PORT_D
+****
+client 127.0.0.1 PORT_D
+??? 220
+helo x.y.z
+??? 250
+mail from:<>
+??? 250
+rcpt to:<abc@x.y.z>
+??? 250
+quit
+??? 221
+****
+killdaemon
+exim -be
+${perl{no_warn}}
+${perl{foo_warn}}
+****
+no_msglog_check
diff --git a/test/scripts/3000-Perl/REQUIRES b/test/scripts/3000-Perl/REQUIRES
new file mode 100644
index 000000000..36471ad08
--- /dev/null
+++ b/test/scripts/3000-Perl/REQUIRES
@@ -0,0 +1 @@
+support Perl