added tests for invalid bulk argument

2010-08-24 11:49:05 +02:00 · 2010-08-24 11:49:05 +02:00 · 01daeecee7
parent a679185aa5
commit 01daeecee7
1 changed files with 7 additions and 0 deletions
--- a/tests/unit/protocol.tcl
+++ b/tests/unit/protocol.tcl
@ -27,6 +27,13 @@ start_server {} {
        gets $fd
    } {*invalid bulk*count*}

+    test {bulk payload is not a number} {
+        set fd [r channel]
+        puts -nonewline $fd "SET x blabla\r\n"
+        flush $fd
+        gets $fd
+    } {*invalid bulk*count*}
+
    test {Multi bulk request not followed by bulk args} {
        set fd [r channel]
        puts -nonewline $fd "*1\r\nfoo\r\n"