Test LINSERT syntax error.

diff --git a/tests/unit/type/list.tcl b/tests/unit/type/list.tcl
index 9a63d45137f628daed75782c6cfc84de724bcd84..035cf3de5dc2d11dc9e41832dcc0461c59af04de 100644 (file)
--- a/tests/unit/type/list.tcl
+++ b/tests/unit/type/list.tcl
@@ -399,6 +399,11 @@ start_server {
         }
     }
 
+    test {LINSERT raise error on bad syntax} {
+        catch {[r linsert xlist aft3r aa 42]} e
+        set e
+    } {*ERR*syntax*error*}
+
     test {LPUSHX, RPUSHX convert from ziplist to list} {
         set large $largevalue(linkedlist)