Testsuite: revert some of the modernish Perl constructs

[exim.git] / test / scripts / 2000-GnuTLS / 2090

diff --git a/test/scripts/2000-GnuTLS/2090 b/test/scripts/2000-GnuTLS/2090
index f799016f1475a6d78a8d87478a982773b150cfbc..278f0342903d8b2d1f02f4793ae5b941d320cfe4 100644 (file)
--- a/test/scripts/2000-GnuTLS/2090
+++ b/test/scripts/2000-GnuTLS/2090
@@ -1,6 +1,6 @@
 # TLS server, CHUNKING reception
 gnutls
 # TLS server, CHUNKING reception
 gnutls

-exim -DSERVER=server -DY=tls -bd -oX PORT_D
+exim -DSERVER=server -DSRV=tls -bd -oX PORT_D

 ****
 #
 # non-piplined
 ****
 #
 # non-piplined


@@ -25,7 +25,7 @@ EHLO rhu.barb
 ??? 250 HELP
 MAIL FROM:<someone@some.domain>
 ??? 250
 ??? 250 HELP
 MAIL FROM:<someone@some.domain>
 ??? 250

-RCPT TO:<CALLER@HOSTNAME>
+RCPT TO:<CALLER@test.ex>

 ??? 250
 BDAT 88 LAST
 To: Susan@random.com
 ??? 250
 BDAT 88 LAST
 To: Susan@random.com


@@ -59,7 +59,7 @@ EHLO rhu.barb
 ??? 250-CHUNKING
 ??? 250 HELP
 MAIL FROM:<someone@some.domain>
 ??? 250-CHUNKING
 ??? 250 HELP
 MAIL FROM:<someone@some.domain>

-RCPT TO:<CALLER@HOSTNAME>
+RCPT TO:<CALLER@test.ex>

 BDAT 88 LAST
 To: Susan@random.com
 From: Sam@random.com
 BDAT 88 LAST
 To: Susan@random.com
 From: Sam@random.com