Lines Matching refs:warnings
24 #### TEST 1 -- No warnings ####
31 my @warnings;
32 local $SIG{__WARN__} = sub { push @warnings, "@_" };
46 if ( !$@ && !@warnings && defined($num_warnings) && $num_warnings == 0 ) {
58 my ($num_warnings, @warnings);
60 local $SIG{__WARN__} = sub { push @warnings, "@_" };
69 if ( !$@ && @warnings == 1
70 && $warnings[0] =~ /lib is not a plain file/
82 #### TEST 3 -- Multiple warnings ####
87 my ($num_warnings, @warnings);
89 local $SIG{__WARN__} = sub { push @warnings, "@_" };
100 if ( !$@ && @warnings == 3
101 && $warnings[0] =~ /lib is not a plain file/
102 && $warnings[1] =~ /t\/TEST is not a directory/
103 && $warnings[2] =~ /my warning: lib/
118 my ($num_warnings, @warnings, $path_to_libFile, $path_to_dist);
122 local $SIG{__WARN__} = sub { push @warnings, "@_" };
137 if ( !$@ && @warnings == 2
138 && $warnings[0] =~ /Spec is not a plain file/
139 && $warnings[1] =~ /INSTALL is not a directory/