Fix assertion function on value encoding

68254919 · Pieter Noordhuis · 0c7a9dec · 68254919
隐藏空白更改
内联并排

Showing with 2 addition and 2 deletion

tests/support/test.tcl tests/support/test.tcl +2 -2

未找到文件。
--- 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