From e8bee5c796d0a53597487a653e1ff3a401e6e0ee Mon Sep 17 00:00:00 2001 From: antirez Date: Mon, 7 Sep 2015 11:14:50 +0200 Subject: [PATCH] Test: print info on HSTRLEN test failure. This additional info may provide more clues about the test randomly failing from time to time. Probably the failure is due to some previous test that overwrites the logical content in the Tcl variable, but this will make the problem more obvious. --- tests/unit/type/hash.tcl | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/tests/unit/type/hash.tcl b/tests/unit/type/hash.tcl index 5ceef150c..5381b0e33 100644 --- a/tests/unit/type/hash.tcl +++ b/tests/unit/type/hash.tcl @@ -406,7 +406,10 @@ start_server {tags {"hash"}} { foreach k [array names bighash *] { if {[string length $bighash($k)] ne [r hstrlen bighash $k]} { set err "[string length $bighash($k)] != [r hstrlen bighash $k]" - break + puts "HSTRLEN and logical length mismatch:" + puts "key: $k" + puts "Logical content: $bighash($k)" + puts "Server content: [r hget bighash $k]" } } set _ $err