diff options
Diffstat (limited to 'tests/support/test.tcl')
| -rw-r--r-- | tests/support/test.tcl | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/tests/support/test.tcl b/tests/support/test.tcl index a4fec1564..b35b29185 100644 --- a/tests/support/test.tcl +++ b/tests/support/test.tcl @@ -76,11 +76,11 @@ proc assert_range {value min max {detail ""}} { } } -proc assert_error {pattern code} { +proc assert_error {pattern code {detail ""}} { if {[catch {uplevel 1 $code} error]} { assert_match $pattern $error } else { - error "assertion:Expected an error but nothing was caught" + assert_failed "assertion:Expected an error but nothing was caught" $detail } } |