# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1220469726 -14400
# Node ID ce002b2323d3475ae24e925252f42d81be32380c
# Parent  33cb557f69d4923588902563222b3c1b63a86438
Tests: test for smtp_greeting_delay.

diff --git a/smtp.t b/smtp.t
--- a/smtp.t
+++ b/smtp.t
@@ -131,6 +131,15 @@ log_out('HEL');
 smtp_send('O example.com');
 smtp_ok('splitted command');
 
+# With smtp_greeting_delay session expected to be closed after first error
+# message if client sent something before greeting.  Use 10026 port
+# configured with smtp_greeting_delay 0.1s to check this.
+
+$s = smtp_connect(PeerPort => 10026);
+smtp_send('HELO example.com');
+smtp_check(qr/^5.. /, "command before greeting - session must be rejected");
+ok($s->eof(), "session have to be closed");
+
 ###############################################################################
 
 sub log_out {
@@ -152,6 +161,7 @@ sub smtp_connect {
 		Proto => "tcp",
 		PeerAddr => "localhost",
 		PeerPort => 10025,
+		@_
 	)
 		or die "Can't connect to nginx: $!\n";