Testsuite: revert some of the modernish Perl constructs

[exim.git] / test / scripts / 5700-events / 5700

diff --git a/test/scripts/5700-events/5700 b/test/scripts/5700-events/5700
index f7cd8272cc2cef08abe6c1e43c08c64e57aa4dde..8fb2010f267196ef85f210b55aeb4ab6017b4421 100644 (file)
--- a/test/scripts/5700-events/5700
+++ b/test/scripts/5700-events/5700
@@ -1,5 +1,5 @@
 # Arbitrary expansion after transport
-# (EXPERIMENTAL_TPDA)
+# (EXPERIMENTAL_EVENT)
 #
 need_ipv4
 #
@@ -67,6 +67,24 @@ A message which will hit a timeout at the destination server
 #
 #
 exim -odq userx@domain1
+A message which will get deferred
+****
+server PORT_S
+220 ESMTP
+EHLO
+250-OK
+250 HELP
+MAIL
+250 OK
+RCPT
+450 NOT RIGHT NOW
+QUIT
+220 OK
+****
+exim -qqf
+****
+#
+exim -odq userx@domain1
 A message which will get refused
 ****
 server PORT_S