Lines Matching refs:warnings
19 my $warnings = '';
20 local $SIG{__WARN__} = sub { $warnings .= join '', @_ };
23 is( $warnings, '', ' no warnings' );
26 is( $warnings, '', ' no warnings' );
32 is( $warnings, '', ' no warnings' );
35 is( $warnings, '', 'eq_array() no warnings' );
39 is( $warnings, '', 'eq_hash() no warnings' );
42 is( $warnings, '', 'eq_set() no warnings' );
47 is( $warnings, '', 'eq_hash() no warnings' );
60 is( $warnings, '', 'diag(undef) no warnings' );