Home
last modified time | relevance | path

Searched full:warnings (Results 1 – 25 of 4036) sorted by relevance

12345678910>>...162

/openbsd-src/gnu/usr.bin/perl/t/lib/warnings/
H A D9enabled1 Check warnings::enabled, warnings::warn and other functionality of
2 warnings.pm.
8 use warnings "io" ;
9 print "ok1\n" if ! warnings::enabled('all') ;
10 print "ok2\n" if ! warnings::enabled("io") ;
13 no warnings;
22 no warnings ;
23 print "ok1\n" if !warnings::enabled('all') ;
24 print "ok2\n" if warnings::enabled("syntax") ;
27 use warnings 'syntax' ;
[all …]
H A D2use1 Check lexical warnings functionality
9 use warnings 'this-should-never-be-a-warning-category' ;
11 Unknown warnings category 'this-should-never-be-a-warning-category' at - line 3.
16 use warnings 'syntax' ;
18 no warnings ;
27 no warnings;
29 use warnings 'syntax' ;
38 use warnings 'uninitialized' ;
40 no warnings ;
49 no warnings ;
[all …]
H A D7fatal6 use warnings FATAL => 'syntax' ;
8 no warnings ;
18 use warnings FATAL => 'all' ;
20 no warnings ;
30 use warnings FATAL => 'uninitialized' ;
32 no warnings ;
42 use warnings FATAL => 'all' ;
44 no warnings ;
54 no warnings ;
56 use warnings FATAL => 'uninitialized' ;
[all …]
H A D3both5 # Check interaction of $^W and use warnings
7 use warnings ;
19 # Check interaction of $^W and use warnings
21 use warnings ;
33 # Check interaction of $^W and use warnings
35 no warnings ;
47 # Check interaction of $^W and use warnings
49 no warnings ;
61 # Check interaction of $^W and use warnings
62 use warnings ;
[all …]
H A Dsv39 Mandatory Warnings
44 Mandatory Warnings TODO
56 use warnings 'uninitialized' ;
58 no warnings 'uninitialized' ;
71 use warnings 'uninitialized' ;
73 no warnings 'uninitialized' ;
80 use warnings 'uninitialized' ;
82 no warnings 'uninitialized' ;
94 use warnings 'uninitialized' ;
97 no warnings 'uninitialized' ;
[all …]
H A D6default1 Check default warnings
4 # default warnings should be displayed if you don't add anything
10 # no warnings should be displayed
11 no warnings ;
15 # all warnings should be displayed
16 use warnings ;
24 use warnings ;
27 no warnings ;
39 # all warnings should be displayed
40 use warnings ;
[all …]
H A D5nolint27 # nolint: check "no warnings" is zapped
28 use warnings ;
35 # nolint: check "no warnings" is zapped
37 use warnings ;
52 use warnings 'syntax' ;
57 use warnings 'uninitialized' ;
64 use warnings 'syntax' ;
69 use warnings 'uninitialized' ;
100 use warnings;
102 no warnings ;
[all …]
H A Dpad32 use warnings 'shadow' ;
40 no warnings 'shadow' ;
51 use warnings 'shadow' ;
60 no warnings 'shadow' ;
77 use warnings 'shadow';
88 no warnings 'shadow' ;
103 use warnings 'shadow' ;
112 no warnings 'shadow' ;
129 use warnings 'closure' ;
140 no warnings 'closure' ;
[all …]
H A Ddoio48 Mandatory Warnings ALL TODO
62 use warnings 'io' ;
65 no warnings 'io' ;
72 use warnings 'io' ;
74 no warnings 'io' ;
80 use warnings 'io' ;
82 no warnings 'io' ;
88 use warnings 'io' ;
92 no warnings 'io' ;
101 use warnings 'unopened' ;
[all …]
/openbsd-src/gnu/usr.bin/perl/t/op/
H A Dwarn.t13 my @warnings;
15 $SIG{__WARN__} = sub { push @warnings, $_[0] };
17 @warnings = ();
20 ok @warnings==1 && $warnings[0] eq "foo\n";
22 @warnings = ();
25 ok @warnings==1 && $warnings[0] eq "foobar\n";
27 @warnings = ();
30 ok @warnings==1 && $warnings[0] eq "foo at warn.t line 29.\n";
32 @warnings = ();
35 ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $wa;
[all …]
H A Dattrproto.t12 use warnings;
16 my @warnings;
19 $SIG{__WARN__} = sub { push @warnings, shift;};
24 like shift @warnings, qr/Illegal character in prototype for Q::A : bar/,
26 like shift @warnings, qr/Illegal character in prototype for Q::A : bad/,
28 like shift @warnings, qr/Prototype \'bar\' overridden by attribute \'prototype\(bad\)\' in Q::A/,
30 is @warnings, 0, "No more warnings";
32 # The override warning should not be hidden by no warnings (similar to prototype changed warnings)
[all...]
H A Dhashwarn.t12 use warnings;
14 our @warnings;
17 $SIG{'__WARN__'} = sub { push @warnings, @_ };
27 @warnings = ();
29 cmp_ok(scalar(@warnings),'==',1,'odd count');
30 cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'odd msg');
32 @warnings = ();
34 cmp_ok(scalar(@warnings),'==',1,'scalar count');
35 cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'scalar msg');
37 @warnings
[all...]
H A Dprotowarn.t10 use warnings;
14 our (@warnings, $sub, $warn);
21 cmp_ok(scalar(@warnings), '==', 1, 'One warning');
22 cmp_ok(substr($warnings[0],0,length($warn)),'eq',$warn,'warning message');
23 @warnings = ();
27 cmp_ok(scalar(@warnings), '==', 0, 'No warnings');
28 @warnings = ();
32 $SIG{'__WARN__'} = sub { push @warnings, @_ };
36 BEGIN { @warnings = () }
45 no warnings 'syntax';
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/behavior/
H A Dnested_context_exception.t2 use warnings;
41 my @warnings;
43 local $SIG{__WARN__} = sub { push @warnings => @_ };
46 ok(!@warnings, "no warnings") || diag @warnings;
48 @warnings = ();
52 local $SIG{__WARN__} = sub { push @warnings => @_ };
55 ok(@warnings, "got warnings");
57 $warnings[0],
64 @warnings = ();
65 local $SIG{__WARN__} = sub { push @warnings => @_ };
[all …]
/openbsd-src/gnu/usr.bin/perl/regen/
H A Dwarnings.pl5 # lib/warnings.pm
6 # warnings.h
9 # template for warnings.pm in the DATA section.
11 # When changing the number of warnings, t/op/caller.t should change to
12 # correspond with the value of $BYTES in lib/warnings.pm
31 # Define the hierarchy of warnings.
35 # version when that warnings category was introduced and, if a terminal
43 # of 'io', a warnings category called 'io::pipe' is NOT automatically
44 # created. But the warnings category 'io' WILL include all the mask bits
321 # return a string containing a visual representation of the warnings tre
[all...]
/openbsd-src/gnu/usr.bin/perl/lib/
H A Dwarnings.pm3 # This file is built by regen/warnings.pl.
6 package warnings; package
10 # Verify that we're called correctly so that warnings will work.
19 # Warnings Categories added in Perl 5.008
67 # Warnings Categories added in Perl 5.011
71 # Warnings Categories added in Perl 5.011003
75 # Warnings Categories added in Perl 5.013
80 # Warnings Categories added in Perl 5.017
84 # Warnings Categories added in Perl 5.019
87 # Warnings Categorie
[all...]
/openbsd-src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/
H A Dprereq.t11 use warnings;
40 my $warnings = '';
47 $warnings .= join '', @_;
49 # prerequisite warnings are disabled while building the perl core:
58 is $warnings, '', 'basic prereq';
63 $warnings = '';
70 is $warnings, '', 'version range';
73 $warnings = '';
80 is $warnings,
84 $warnings = '';
[all …]
H A Dwritemakefile_args.t11 use warnings;
40 my $warnings = '';
47 $warnings .= join '', @_;
60 is( $warnings, <<VERIFY );
65 $warnings = '';
74 is( $warnings, <<VERIFY );
81 $warnings = '';
88 # We'll get warnings about the bogus libs, that's ok.
89 unlike( $warnings, qr/WARNING: .* takes/ );
92 $warnings = '';
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/bignum/t/
H A Dimport-bigfloat.t6 use warnings;
12 # Catch warnings.
14 my $WARNINGS;
16 $WARNINGS = $_[0];
21 $WARNINGS = "";
25 is($WARNINGS, "", "no warnings");
27 $WARNINGS = "";
31 is($WARNINGS, "", "no warnings");
33 $WARNINGS = "";
37 is($WARNINGS, "", "no warnings");
[all …]
H A Dimport-bigint.t6 use warnings;
12 # Catch warnings.
14 my $WARNINGS;
16 $WARNINGS = $_[0];
21 $WARNINGS = "";
25 is($WARNINGS, "", "no warnings");
27 $WARNINGS = "";
31 is($WARNINGS, "", "no warnings");
33 $WARNINGS = "";
37 is($WARNINGS, "", "no warnings");
[all …]
H A Dimport-bignum.t6 use warnings;
12 # Catch warnings.
14 my $WARNINGS;
16 $WARNINGS = $_[0];
21 $WARNINGS = "";
25 is($WARNINGS, "", "no warnings");
27 $WARNINGS = "";
31 is($WARNINGS, "", "no warnings");
33 $WARNINGS = "";
37 is($WARNINGS, "", "no warnings");
[all …]
H A Dimport-bigrat.t6 use warnings;
12 # Catch warnings.
14 my $WARNINGS;
16 $WARNINGS = $_[0];
21 $WARNINGS = "";
25 is($WARNINGS, "", "no warnings");
27 $WARNINGS = "";
31 is($WARNINGS, "", "no warnings");
33 $WARNINGS = "";
37 is($WARNINGS, "", "no warnings");
[all …]
/openbsd-src/gnu/usr.bin/perl/ext/Hash-Util-FieldHash/t/
H A D12_hashwarn.t2 use warnings;
6 our @warnings;
8 $SIG{'__WARN__'} = sub { push @warnings, @_ };
18 @warnings = ();
21 cmp_ok(scalar(@warnings),'==',1,'odd count');
22 cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'odd msg');
24 @warnings = ();
26 cmp_ok(scalar(@warnings),'==',1,'scalar count');
27 cmp_ok(substr($warnings[0],0,length($fail_odd)),'eq',$fail_odd,'scalar msg');
29 @warnings = ();
[all …]
/openbsd-src/gnu/usr.bin/perl/t/lib/feature/
H A Dswitch6 use warnings; no warnings 'deprecated';
13 use warnings; no warnings 'deprecated';
20 use warnings; no warnings 'deprecated';
27 use warnings; no warnings 'deprecated';
39 use feature 'switch'; no warnings 'deprecated';
45 use feature 'switch'; no warnings 'deprecated';
51 use feature 'switch'; no warnings 'deprecated';
63 use warnings; no warnings 'deprecated';
74 use warnings; no warnings 'deprecated';
85 use warnings; no warnings 'deprecated';
[all …]
/openbsd-src/gnu/usr.bin/perl/cpan/Encode/t/
H A Dutf32warnings.t8 use warnings;
26 …s($warn, undef, "Calling encode on UTF32-LE encode object with valid string produces no warnings");
39 no warnings 'utf8';
41 …ef, "Warning from encode method of UTF32-LE encode object can be silenced via no warnings 'utf8'");
46 no warnings;
48 …rn, undef, "Warning from encode method of UTF32-LE encode object can be silenced via no warnings");
53 no warnings 'utf8';
55 … from encode method of UTF32-LE encode object cannot be silenced via no warnings 'utf8' when ONLY_…
60 no warnings;
62 … from encode method of UTF32-LE encode object cannot be silenced via no warnings when ONLY_PRAGMA_…
[all …]

12345678910>>...162