diff options
Diffstat (limited to 'testsuite/runtest.libs/mockutil.tcl')
| -rw-r--r-- | testsuite/runtest.libs/mockutil.tcl | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/testsuite/runtest.libs/mockutil.tcl b/testsuite/runtest.libs/mockutil.tcl index 20b6b9b..4614274 100644 --- a/testsuite/runtest.libs/mockutil.tcl +++ b/testsuite/runtest.libs/mockutil.tcl @@ -236,8 +236,9 @@ proc test_proc_with_mocks { name sicmd code args } { } elseif { $callpos eq "U" } { # prefix selects one unique call if { [llength $calls] != 1 } { - error "expected unique call" - return + verbose " expected unique call... failed!" + set result fail + continue } if { ![match_argpat $argpat [lindex $calls 0]] } { verbose " failed!" @@ -249,8 +250,9 @@ proc test_proc_with_mocks { name sicmd code args } { set result fail } } else { - error "failed to select trace record" - return + verbose " expected trace record not found... failed!" + set result fail + continue } } |