e_serial($serials[1], 'sub call stackframe serial is different than first call') };
do_test { isnt_stackframe_serial($serials[0], 'sub call stackframe serial matches expected') };
db_continue;
al($serials[1], 'sub call stackframe serial is still different than first call') };
do_test { isnt_stackframe_serial($serials[0], 'sub call stackframe serial still matches expected') };
}
sub is_
kframe->serial, $serial, $message);
}
sub isnt_stackframe_serial {
my($serial, $message) = @_;
my $stackframe = TestHelper->stack->frame(0);
isnt($stackframe->serial, $serial, $message);