From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Wed, 15 Dec 2010 10:49:39 +0000 (+0100)
Subject: Update tests for STRLEN
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/7d5f5712d948b19d0778e4ef53a27d213aff7bdc?hp=-c

Update tests for STRLEN
---

7d5f5712d948b19d0778e4ef53a27d213aff7bdc
diff --git a/tests/unit/basic.tcl b/tests/unit/basic.tcl
index a9b25fce..5098b010 100644
--- a/tests/unit/basic.tcl
+++ b/tests/unit/basic.tcl
@@ -361,18 +361,18 @@ start_server {tags {"basic"}} {
         list [r msetnx x1 xxx y2 yyy] [r get x1] [r get y2]
     } {1 xxx yyy}
 
-    test {STRLEN against non existing key} {
-        r strlen notakey
-    } {0}
+    test "STRLEN against non-existing key" {
+        assert_equal 0 [r strlen notakey]
+    }
 
-    test {STRLEN against integer} {
+    test "STRLEN against integer-encoded value" {
         r set myinteger -555
-        r strlen myinteger
-    } {4}
+        assert_equal 4 [r strlen myinteger]
+    }
 
-    test {STRLEN against plain string} {
+    test "STRLEN against plain string" {
         r set mystring "foozzz0123456789 baz"
-        r strlen mystring
+        assert_equal 20 [r strlen mystring]
     }
 
     test "SETBIT against non-existing key" {