X-Git-Url: https://git.exim.org/users/jgh/exim.git/blobdiff_plain/9650d98a07b2ad623c29fae2ff69ffd887ad4738..17ccbda62e05f6ed59a27791643be4b94f7fcdbd:/test/stderr/3000 diff --git a/test/stderr/3000 b/test/stderr/3000 index 3f8338b67..9ba2a62a2 100644 --- a/test/stderr/3000 +++ b/test/stderr/3000 @@ -2,45 +2,46 @@ Exim version x.yz .... configuration file is TESTSUITE/test-config admin user - ┌considering: ${perl{foo}{arg1}} - ┌considering: foo}{arg1}} +dropping to exim gid; retaining priv uid + ╭considering: ${perl{foo}{arg1}} + ╭considering: foo}{arg1}} ├──expanding: foo - └─────result: foo - ┌considering: arg1}} + ╰─────result: foo + ╭considering: arg1}} ├──expanding: arg1 - └─────result: arg1 + ╰─────result: arg1 Starting Perl interpreter ├──expanding: ${perl{foo}{arg1}} - └─────result: Subroutine foo called with args: arg1 - ┌considering: ${perl{foo_undef}} - ┌considering: foo_undef}} + ╰─────result: Subroutine foo called with args: arg1 + ╭considering: ${perl{foo_undef}} + ╭considering: foo_undef}} ├──expanding: foo_undef - └─────result: foo_undef + ╰─────result: foo_undef ├failed to expand: ${perl{foo_undef}} ├───error message: Perl subroutine "foo_undef" returned undef to force failure - └failure was forced - ┌considering: ${perl{debug_write}{debug from Perl\n}} - ┌considering: debug_write}{debug from Perl\n}} + ╰failure was forced + ╭considering: ${perl{debug_write}{debug from Perl\n}} + ╭considering: debug_write}{debug from Perl\n}} ├──expanding: debug_write - └─────result: debug_write - ┌considering: debug from Perl\n}} + ╰─────result: debug_write + ╭considering: debug from Perl\n}} ├──expanding: debug from Perl\n - └─────result: debug from Perl + ╰─────result: debug from Perl debug from Perl ├──expanding: ${perl{debug_write}{debug from Perl\n}} - └─────result: Wrote debug - ┌considering: ${perl{log_write}{log from Perl}} - ┌considering: log_write}{log from Perl}} + ╰─────result: Wrote debug + ╭considering: ${perl{log_write}{log from Perl}} + ╭considering: log_write}{log from Perl}} ├──expanding: log_write - └─────result: log_write - ┌considering: log from Perl}} + ╰─────result: log_write + ╭considering: log from Perl}} ├──expanding: log from Perl - └─────result: log from Perl + ╰─────result: log from Perl LOG: MAIN log from Perl ├──expanding: ${perl{log_write}{log from Perl}} - └─────result: Wrote log + ╰─────result: Wrote log >>>>>>>>>>>>>>>> Exim pid=pppp (main: expansion test) terminating with rc=0 >>>>>>>>>>>>>>>> LOG: smtp_connection MAIN SMTP connection from CALLER @@ -61,7 +62,7 @@ LOG: smtp_connection MAIN >>> host in pipelining_advertise_hosts? yes (matched "*") >>> host in chunking_advertise_hosts? no (end of list) >>> using ACL "check_rcpt" ->>> processing "accept" +>>> processing "accept" (TESTSUITE/test-config 20) LOG: this is a warning at TESTSUITE/aux-fixed/3000.pl line 25. >>> check condition = ${if !eq {${perl{foo_warn}}}{}} >>> = true