]> git.saurik.com Git - redis.git/blobdiff - tests/support/test.tcl
Redis test: regexp to check if valgrind reported errors modified. Now we no longer...
[redis.git] / tests / support / test.tcl
index e53d497bb3d79c35ac86fb771266a82bda7b20fd..f66e54b87cfe96b6d584aebb837d1d01e1178096 100644 (file)
@@ -4,7 +4,7 @@ set ::num_failed 0
 set ::tests_failed {}
 
 proc assert {condition} {
-    if {![uplevel 1 expr $condition]} {
+    if {![uplevel 1 [list expr $condition]]} {
         error "assertion:Expected condition '$condition' to be true ([uplevel 1 [list subst -nocommands $condition]])"
     }
 }