X-Git-Url: https://git.saurik.com/redis.git/blobdiff_plain/efb6022529469813cd946f6bb22d762dc20e606d..202e3091d7554df42e520c3e6f7c6d54c1ad7728:/tests/support/test.tcl diff --git a/tests/support/test.tcl b/tests/support/test.tcl index c875cfd8..e53d497b 100644 --- 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]])" } }