1#!/usr/bin/perl -w 2 3use strict; 4 5use Params::Validate qw(validate); 6use Test::More tests => 2; 7 8{ 9 my @w; 10 local $SIG{__WARN__} = sub { push @w, @_ }; 11 12 my @p = ( foo => undef); 13 eval { validate( @p, { foo => { regex => qr/^bar/ } } ) }; 14 ok( $@, 'validation failed' ); 15 ok( ! @w, 'no warnings' ); 16} 17