# (pseudocode)
our $croakcount;
sub main::croak {
    $croakcount++;
}
myfunc(my $badoptions);
is ($croakcount, 1, "myfunc() calls croak()");