# HG changeset patch
# User Maxim Dounin <mdounin@mdounin.ru>
# Date 1218816623 -14400
# Node ID c731d50dd6b1d3662e942f09d7e9da0bc842e0fc
# Parent  de28d9f761be5b4743a47b72ee4d44557a148d61
Tests: check pipelining after invalid command.

diff --git a/smtp.t b/smtp.t
--- a/smtp.t
+++ b/smtp.t
@@ -9,7 +9,7 @@
 use warnings;
 use strict;
 
-use Test::More tests => 24;
+use Test::More tests => 25;
 
 use IO::Socket;
 use MIME::Base64;
@@ -55,6 +55,11 @@ smtp_check(qr/^250 /, "ehlo");
 TODO: {
 	local $TODO = "pipelining not implemented yet";
 
+	smtp_send('INVALID COMMAND WITH ARGUMENTS' . CRLF
+		. 'RSET');
+	smtp_read();
+	smtp_ok('rset after invalid command');
+
 	smtp_send('AUTH PLAIN '
 		. encode_base64("test\@example.com\0\0bad", '') . CRLF
 		. 'MAIL FROM:<test@example.com> SIZE=100');