changeset 1:c731d50dd6b1

Tests: check pipelining after invalid command.
author Maxim Dounin <mdounin@mdounin.ru>
date Fri, 15 Aug 2008 20:10:23 +0400
parents de28d9f761be
children 33cb557f69d4
files smtp.t
diffstat 1 files changed, 6 insertions(+), 1 deletions(-) [+]
line wrap: on
line diff
--- 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');