Tests: test for smtp_greeting_delay.

smtp.t

diff --git a/smtp.t b/smtp.t
index cb9b1a5..19cd3bf 100644
--- a/smtp.t
+++ b/smtp.t
@@ -131,6 +131,15 @@
 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 @@
 		Proto => "tcp",
 		PeerAddr => "localhost",
 		PeerPort => 10025,
+		@_
 	)
 		or die "Can't connect to nginx: $!\n";