From: Pieter Noordhuis <pcnoordhuis@gmail.com>
Date: Sun, 1 Aug 2010 09:20:26 +0000 (+0200)
Subject: Fix assertion function on value encoding
X-Git-Url: https://git.saurik.com/redis.git/commitdiff_plain/68254919284ec958225e1bc5fb2951ef096c92d1

Fix assertion function on value encoding
---

diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index 298e4c77..93f64928 100644
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -36,8 +36,8 @@ proc assert_encoding {enc key} {
     # Swapped out values don't have an encoding, so make sure that
     # the value is swapped in before checking the encoding.
     set dbg [r debug object $key]
-    while {[string match "* swapped:*" $dbg]} {
-        [r debug swapin $key]
+    while {[string match "* swapped at:*" $dbg]} {
+        r debug swapin $key
         set dbg [r debug object $key]
     }
     assert_match "* encoding:$enc *" $dbg