diff options
Diffstat (limited to 'tests/support/test.tcl')
| -rw-r--r-- | tests/support/test.tcl | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index f3f7e132a..34c7986da 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -40,6 +40,12 @@ proc assert_failed {expected_err detail} { error "assertion:$expected_err $detail" } +proc assert_not_equal {value expected {detail ""}} { + if {!($expected ne $value)} { + assert_failed "Expected '$value' not equal to '$expected'" $detail + } +} + proc assert_equal {value expected {detail ""}} { if {$expected ne $value} { assert_failed "Expected '$value' to be equal to '$expected'" $detail |