diff options
Diffstat (limited to 'test/scripts/3000-Perl')
| -rw-r--r-- | test/scripts/3000-Perl/3000 | 59 | ||||
| -rw-r--r-- | test/scripts/3000-Perl/REQUIRES | 1 |
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 |