summaryrefslogtreecommitdiff
path: root/tests/support/test.tcl
diff options
context:
space:
mode:
authorMatt Stancliff <matt@genges.com>2014-11-13 14:11:47 -0500
committerMatt Stancliff <matt@genges.com>2015-01-02 11:16:08 -0500
commit5e362b84ab8b769bf2738daea97b45a375d223f1 (patch)
treec17e1417c72aa07b8c0b5b7d6fc2bb31130cccbf /tests/support/test.tcl
parentd956d809acb848aec0f6524e1337d274a635980d (diff)
downloadredis-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.tcl7
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"
}
}