From 467de61c84965208aea6d446010a504181b453f0 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 5ceef150..5381b0e3 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