1 files changed, 57 insertions, 0 deletions
diff --git a/test/stderr/3000 b/test/stderr/3000
new file mode 100644
index 000000000..032c996c5
--- /dev/null
+++ b/test/stderr/3000
@@ -0,0 +1,57 @@
+1999-03-02 09:44:33 this is a warning at TESTSUITE/aux-fixed/3000.pl line 25.
+Exim version x.yz ....
+configuration file is TESTSUITE/test-config
+admin user
+expanding: foo
+   result: foo
+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
+
+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
+LOG: MAIN
+  log from Perl
+expanding: ${perl{log_write}{log from Perl}}
+   result: Wrote log
+>>>>>>>>>>>>>>>> Exim pid=pppp terminating with rc=0 >>>>>>>>>>>>>>>>
+LOG: smtp_connection MAIN
+  SMTP connection from CALLER
+LOG: MAIN
+  this is a warning at TESTSUITE/aux-fixed/3000.pl line 25.
+LOG: smtp_connection MAIN
+  SMTP connection from CALLER closed by QUIT
+>>> host in hosts_connection_nolog? no (option unset)
+>>> host in host_lookup? no (option unset)
+>>> host in host_reject_connection? no (option unset)
+>>> host in sender_unqualified_hosts? no (option unset)
+>>> host in recipient_unqualified_hosts? no (option unset)
+>>> host in helo_verify_hosts? no (option unset)
+>>> host in helo_try_verify_hosts? no (option unset)
+>>> host in helo_accept_junk_hosts? no (option unset)
+>>> x.y.z in helo_lookup_domains? no (end of list)
+>>> host in pipelining_advertise_hosts? yes (matched "*")
+>>> using ACL "check_rcpt"
+>>> processing "accept"
+LOG: this is a warning at TESTSUITE/aux-fixed/3000.pl line 25.
+>>> check condition = ${if !eq {${perl{foo_warn}}}{}}
+>>>                 = true
+>>> accept: condition test succeeded
+
+******** SERVER ********