X-Git-Url: https://vcs.fsf.org/?a=blobdiff_plain;f=test%2Fstderr%2F3000;h=2c441541538885fbe96e62fbca8a68ad7cb3f08a;hb=897024f1b30dfde19f8ed9477c49b7cd5a1f5512;hp=6859068af3b25cfa7f0a89cc3d1f2c141f80a0e4;hpb=cc5a3f43827026193110cb663151a95eac4ee379;p=exim.git diff --git a/test/stderr/3000 b/test/stderr/3000 index 6859068af..2c4415415 100644 --- a/test/stderr/3000 +++ b/test/stderr/3000 @@ -2,35 +2,46 @@ Exim version x.yz .... configuration file is TESTSUITE/test-config admin user -expanding: foo - result: foo -expanding: arg1 - result: arg1 + ┌considering: ${perl{foo}{arg1}} + ┌considering: foo}{arg1}} + ├──expanding: foo + └─────result: foo + ┌considering: arg1}} + ├──expanding: arg1 + └─────result: arg1 Starting Perl interpreter -expanding: ${perl{foo}{arg1}} - result: Subroutine foo called with args: arg1 -expanding: 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 -expanding: debug_write - result: debug_write -expanding: debug from Perl\n - result: debug from Perl - + ├──expanding: ${perl{foo}{arg1}} + └─────result: Subroutine foo called with args: arg1 + ┌considering: ${perl{foo_undef}} + ┌considering: foo_undef}} + ├──expanding: 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}} + ├──expanding: debug_write + └─────result: debug_write + ┌considering: debug from Perl\n}} + ├──expanding: debug from Perl\n + └─────result: debug from Perl + debug from Perl -expanding: ${perl{debug_write}{debug from Perl\n}} - result: Wrote debug -expanding: log_write - result: log_write -expanding: log from Perl - result: log 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}} + ├──expanding: log_write + └─────result: log_write + ┌considering: log from Perl}} + ├──expanding: log from Perl + └─────result: log from Perl LOG: MAIN log from Perl -expanding: ${perl{log_write}{log from Perl}} - result: Wrote log ->>>>>>>>>>>>>>>> Exim pid=pppp terminating with rc=0 >>>>>>>>>>>>>>>> + ├──expanding: ${perl{log_write}{log from Perl}} + └─────result: Wrote log +>>>>>>>>>>>>>>>> Exim pid=pppp (main: expansion test) terminating with rc=0 >>>>>>>>>>>>>>>> LOG: smtp_connection MAIN SMTP connection from CALLER LOG: MAIN @@ -48,8 +59,9 @@ LOG: smtp_connection MAIN >>> x.y.z in helo_lookup_domains? no (end of list) >>> host in dsn_advertise_hosts? no (option unset) >>> 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