diff options
author | Matt Stancliff <matt@genges.com> | 2014-11-13 14:11:47 -0500 |
---|---|---|
committer | Matt Stancliff <matt@genges.com> | 2015-01-02 11:16:08 -0500 |
commit | 5e362b84ab8b769bf2738daea97b45a375d223f1 (patch) | |
tree | c17e1417c72aa07b8c0b5b7d6fc2bb31130cccbf /tests/support/test.tcl | |
parent | d956d809acb848aec0f6524e1337d274a635980d (diff) | |
download | redis-5e362b84ab8b769bf2738daea97b45a375d223f1.tar.gz |
Add quicklist implementation
This replaces individual ziplist vs. linkedlist representations
for Redis list operations.
Big thanks for all the reviews and feedback from everybody in
https://github.com/antirez/redis/pull/2143
Diffstat (limited to 'tests/support/test.tcl')
-rw-r--r-- | tests/support/test.tcl | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index 7d390cc47..31371c567 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -19,9 +19,12 @@ proc assert_match {pattern value} { } } -proc assert_equal {expected value} { +proc assert_equal {expected value {detail ""}} { if {$expected ne $value} { - error "assertion:Expected '$value' to be equal to '$expected'" + if {$detail ne ""} { + set detail " (detail: $detail)" + } + error "assertion:Expected '$value' to be equal to '$expected'$detail" } } |