added tests for invalid bulk argument

diff --git a/tests/unit/protocol.tcl b/tests/unit/protocol.tcl
index 8717cd9ffa02914a3f82c7dd8858d3e9bec9efee..9eebf77fdf5d96e3e87cb169ce991c4ec243da96 100644 (file)
--- 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"