Redis test: when assertion fails print not just the expression but also expanded...

diff --git a/tests/support/test.tcl b/tests/support/test.tcl
index c875cfd8030755c752f9aa72a9aa034419393512..e53d497bb3d79c35ac86fb771266a82bda7b20fd 100644 (file)
--- a/tests/support/test.tcl
+++ b/tests/support/test.tcl
@@ -5,7 +5,7 @@ set ::tests_failed {}
 
 proc assert {condition} {
     if {![uplevel 1 expr $condition]} {
-        error "assertion:Expected condition '$condition' to be true"
+        error "assertion:Expected condition '$condition' to be true ([uplevel 1 [list subst -nocommands $condition]])"
     }
 }