view release on metacpan or  search on metacpan

t/99_errors.t  view on Meta::CPAN

# 5
like($@, qr/argument skip/, 'Argument skip 3');

# ------------------------------------------------------------------------
# Check warning on unrecognized arguments

use vars qw($last_warning);
undef $last_warning;
{
    local $SIG{__WARN__} = sub { $last_warning = shift };
    my $weird_arg = '__this_is_not_a_valid_argument__';
    my $t = Benchmark::Timer->new( $weird_arg => undef );

    # 6
    like($last_warning, qr/skipping unknown/, 'Invalid argument');
}


# ========================================================================
__END__