From 59371ea735c941334861aa5b8e1e9a06facf044f Mon Sep 17 00:00:00 2001 From: Philip Hazel Date: Tue, 7 Feb 2006 10:54:33 +0000 Subject: Hopefully the final lot of test files. --- test/scripts/3000-Perl/3000 | 59 +++++++++++++++++++++++++++++++++++++++++ test/scripts/3000-Perl/REQUIRES | 1 + 2 files changed, 60 insertions(+) create mode 100644 test/scripts/3000-Perl/3000 create mode 100644 test/scripts/3000-Perl/REQUIRES (limited to 'test/scripts/3000-Perl') 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: +quit +**** +exim -bh 10.0.0.1 +ehlo x.y.z +mail from:<> +rcpt to: +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: +??? 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 -- cgit v1.2.3