File tree Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Expand file tree Collapse file tree 1 file changed +4
-4
lines changed Original file line number Diff line number Diff line change @@ -102,18 +102,18 @@ sub verify_exception
102
102
{
103
103
my ($msg , $fail , $expected_reset , $noreset ) = @_ ;
104
104
$expected_reset = 1 if (! defined ($expected_reset ));
105
- is($exception_reset , $expected_reset , " exception_reset called $expected_reset after $msg " );
105
+ is($exception_reset , $expected_reset , " _reset_exception_fail called $expected_reset times after $msg " );
106
106
if ($noreset ) {
107
107
ok($ec_check -> error(), " Error not reset after $msg " );
108
108
} else {
109
109
ok(! $ec_check -> error(), " Error reset after $msg " );
110
110
};
111
- if ($noreset ) {
111
+ if ($noreset && $mc -> { fail } ) {
112
112
like($mc -> {fail }, qr { ^origfailure } , " Fail attribute matches originalfailure on noreset after $msg " );
113
- } elsif ($fail ) {
113
+ } elsif ($fail && $mc -> { fail } ) {
114
114
like($mc -> {fail }, qr {$fail } , " Fail attribute matches $fail after $msg " );
115
115
unlike($mc -> {fail }, qr { origfailure} , " original fail attribute reset" );
116
- } else {
116
+ } elsif ( ! $noreset ) {
117
117
ok(! defined ($mc -> {fail }), " Fail attribute reset after $msg " );
118
118
};
119
119
};
You can’t perform that action at this time.
0 commit comments