/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/sample-tests/ |
H A D | taint_warn | 6 my $warnings = ''; 8 local $SIG{__WARN__} = sub { $warnings .= join '', @_ }; 11 like( $warnings, '/^Insecure dependency/', '-t honored' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | hashwarn.t | 9 use warnings; 11 use vars qw{ @warnings }; 14 $SIG{'__WARN__'} = sub { push @warnings, @_ }; 19 END { print "not ok\n# Uncaught warnings:\n@warnings\n" if @warnings } 54 test_warning 1, shift @warnings, $odd_msg; 57 test_warning 2, shift @warnings, $odd_msg; 60 test_warning 3, shift @warnings, $odd_msg2; 61 test_warning 4, shift @warnings, [all...] |
H A D | stash.t | 25 q(Insert a non-GV in a stash, under warnings 'once'),
|
H A D | avhv.t | 9 use warnings; 10 no warnings 'deprecated'; 86 no warnings 'uninitialized';
|
H A D | flip.t | 48 use warnings;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | undef.t | 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' ); [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
H A D | writemakefile_args.t | 33 my $warnings = ''; 35 $warnings .= join '', @_; 48 is( $warnings, <<VERIFY ); 53 $warnings = ''; 62 is( $warnings, <<VERIFY ); 69 $warnings = ''; 76 # We'll get warnings about the bogus libs, that's ok. 77 unlike( $warnings, qr/WARNING: .* takes/ ); 80 $warnings = ''; 87 # We'll get warnings abou [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/File/ |
H A D | CheckTree.t | 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); [all...] |
H A D | Path.t | 13 use warnings;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
H A D | via.t | 4 use warnings; 38 my $warnings = ''; 39 local $SIG{__WARN__} = sub { $warnings = join '', @_ }; 41 use warnings 'layer'; 49 like( $warnings, qr/^Cannot find package 'Unknown::Module'/, 'warn about unknown package' ); 65 $warnings = ''; 66 no warnings 'layer'; 68 is( $warnings, "", "don't warn about unknown package" ); 70 $warnings = ''; 71 no warnings 'laye [all...] |
H A D | open.t | 4 use warnings;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | constant.t | 8 use warnings; 9 use vars qw{ @warnings }; 11 $SIG{'__WARN__'} = sub { push @warnings, @_ } 13 END { print STDERR @warnings } 99 no warnings 'numeric'; 130 test 36, @warnings == 0, join "\n", "unexpected warning", @warnings; 131 @warnings = (); # just in case 133 test 37, @warnings && 134 ($warnings[ [all...] |
H A D | blib.t | 52 my $warnings = ''; 53 local $SIG{__WARN__} = sub { $warnings = join '', @_ }; 55 is( $warnings, '', 'use blib is nice and quiet' );
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Pod/t/ |
H A D | text-errors.t | 40 # Capture warnings for inspection. 41 my $warnings = ''; 42 $SIG{__WARN__} = sub { $warnings .= $_[0] }; 55 $warnings = ''; 58 if ($warnings eq $expected) { 61 print " # '$warnings'\n # '$expected'\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/MIME/Base64/t/ |
H A D | warn.t | 12 require warnings; 26 use warnings; 37 no warnings; 41 no warnings;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Digest/t/ |
H A D | security.t | 6 use warnings;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/CGI/t/ |
H A D | utf8.t | 4 use warnings; 16 no warnings qw/ once /;
|
H A D | charset.t | 4 use warnings;
|
/osnet-11/usr/src/lib/libxcurses/src/tic/ |
H A D | ticerror.c | 47 int warnings = 0; variable 70 warnings++;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Data/Dumper/t/ |
H A D | overload.t | 8 no warnings 'once';
|
H A D | pair.t | 11 no warnings 'once'; 23 no warnings qw(once);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/ |
H A D | safeuniversal.t | 13 use warnings; 22 ? q(no warnings 'redefine';)
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
H A D | IO.t | 37 no warnings ; 59 use warnings 'deprecated' ; 67 use warnings ;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/ |
H A D | showlex.t | 13 use warnings;
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Text/ |
H A D | ParseWords.t | 8 use warnings; 23 no warnings 'uninitialized' ; 77 no warnings 'uninitialized' ;
|