Make sure that SELECT argument is an integer or return an error.

[redis.git] / tests / unit / basic.tcl

diff --git a/tests/unit/basic.tcl b/tests/unit/basic.tcl
index b76c45a47d77acdfb3dd6dd4bf94c049d8ee556b..4210f48bc52448722d3177dfe5dc1cddf92dff76 100644 (file)
--- a/tests/unit/basic.tcl
+++ b/tests/unit/basic.tcl
@@ -152,13 +152,15 @@ start_server {tags {"basic"}} {
 
     test {INCRBYFLOAT against non existing key} {
         r del novar
-        list [r incrbyfloat novar 1] [r get novar] [r incrbyfloat novar 0.25] \
-             [r get novar]
+        list    [roundFloat [r incrbyfloat novar 1]] \
+                [roundFloat [r get novar]] \
+                [roundFloat [r incrbyfloat novar 0.25]] \
+                [roundFloat [r get novar]]
     } {1 1 1.25 1.25}
 
     test {INCRBYFLOAT against key originally set with SET} {
         r set novar 1.5
-        r incrbyfloat novar 1.5
+        roundFloat [r incrbyfloat novar 1.5]
     } {3}
 
     test {INCRBYFLOAT over 32bit value} {
@@ -213,8 +215,8 @@ start_server {tags {"basic"}} {
 
     test {INCRBYFLOAT decrement} {
         r set foo 1
-        r incrbyfloat foo -1.256
-    } {-0.256}
+        roundFloat [r incrbyfloat foo -1.1]
+    } {-0.1}
 
     test "SETNX target key missing" {
         r del novar