Fix test failure with tcl8.5 (test only issue)

Former-commit-id: 5e40ea6ee7f0f34a9e11fdd7518d81383dd73c41
2019-11-04 17:31:29 -08:00 · 2019-11-04 17:31:29 -08:00 · 21bffec0d7
commit 21bffec0d7
parent a55fe8a3ba
1 changed files with 1 additions and 1 deletions
--- a/tests/unit/bitops.tcl
+++ b/tests/unit/bitops.tcl
@ -238,7 +238,7 @@ start_server {tags {"bitops"}} {
        r set a "abcdefg"
        r bitop lshift x a 8
        r get x
-    } "\x00abcdefg"
+    } "\000abcdefg"

    test {BITOP lshift char} {
        r set a "\xAA"