Home
last modified time | relevance | path

Searched refs:warnings (Results 1 – 25 of 2221) sorted by relevance

12345678910>>...89

/openbsd/src/gnu/usr.bin/perl/t/op/
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 …]
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 …]
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/t/lib/warnings/
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 …]
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 …]
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 …]
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 …]
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 …]
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 …]
Dsv56 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' ;
104 use warnings 'uninitialized' ;
107 no warnings 'uninitialized' ;
[all …]
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 …]
Dperl19 no warnings 'once' ;
21 use warnings 'once' ;
29 no warnings 'once' ;
37 no warnings 'once' ;
43 use warnings 'once';
68 no warnings 'once' ;
70 use warnings 'once' ;
79 use warnings 'once' ;
85 { use warnings 'once' ; $x = 3 ; }
94 { no warnings 'once' ; $x = 3 ; }
[all …]
Dutil27 use warnings 'digit' ;
29 no warnings 'digit' ;
35 use warnings 'digit' ;
37 no warnings 'digit' ;
43 use warnings 'digit' ;
45 no warnings 'digit' ;
51 use warnings 'overflow' ;
53 no warnings 'overflow' ;
59 use warnings 'overflow' ;
61 no warnings 'overflow' ;
[all …]
D4lint31 # lint: check "no warnings" is zapped
32 no warnings ;
41 # lint: check "no warnings" is zapped
43 no warnings ;
61 no warnings 'syntax' ;
66 no warnings 'uninitialized' ;
76 no warnings 'syntax' ;
81 no warnings 'uninitialized' ;
120 no warnings ;
132 use warnings;
[all …]
Dpp28 use warnings 'substr' ;
31 no warnings 'substr' ;
38 use warnings 'substr' ;
44 no warnings 'substr' ;
54 use warnings 'misc' ;
61 no warnings 'misc' ;
73 use warnings 'uninitialized';
75 no warnings 'uninitialized' ;
81 use warnings 'misc' ;
83 no warnings 'misc' ;
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/ExtUtils-MakeMaker/t/
Dprereq.t40 my $warnings = '';
47 $warnings .= join '', @_;
58 is $warnings, '', 'basic prereq';
63 $warnings = '';
70 is $warnings, '', 'version range';
73 $warnings = '';
80 is $warnings,
84 $warnings = '';
91 is $warnings,
94 $warnings = '';
[all …]
Dwritemakefile_args.t40 my $warnings = '';
47 $warnings .= join '', @_;
60 is( $warnings, <<VERIFY );
65 $warnings = '';
74 is( $warnings, <<VERIFY );
81 $warnings = '';
89 unlike( $warnings, qr/WARNING: .* takes/ );
92 $warnings = '';
100 unlike( $warnings, qr/WARNING: .* takes/ );
103 $warnings = '';
[all …]
Dbuild_man.t51 my @warnings = ();
52 local $SIG{__WARN__} = sub { push @warnings, shift; };
58 isnt (scalar(@warnings), 0);
59 if (scalar(@warnings)) {
60 …note (sprintf('suppressed warnings: [ "%s" ]', do { my $s = join(q/" , "/, @warnings); $s =~ s/([^…
74 my @warnings = ();
75 local $SIG{__WARN__} = sub { push @warnings, shift; };
82 isnt (scalar(@warnings), 0);
83 if (scalar(@warnings)) {
84 …note (sprintf('suppressed warnings: [ "%s" ]', do { my $s = join(q/" , "/, @warnings); $s =~ s/([^…
[all …]
Dmin_perl_version.t79 my $warnings = '';
81 $warnings .= join '', @_;
90 is( $warnings, '', 'MIN_PERL_VERSION=5 does not trigger a warning' );
94 $warnings = '';
101 is( $warnings, '', 'MIN_PERL_VERSION=X.Y.Z does not trigger a warning' );
105 $warnings = '';
112 is( $warnings, '', 'MIN_PERL_VERSION=X.Y.Z does not trigger a warning' );
116 $warnings = '';
123 is( $warnings, '', 'MIN_PERL_VERSION=X.Y.Z does not trigger a warning' );
127 $warnings = '';
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Test-Simple/t/Test2/behavior/
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/ext/Hash-Util-FieldHash/t/
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/
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/dist/constant/t/
Dconstant.t3 use warnings;
4 our ( @warnings, $fagwoosh, $putt, $kloong );
6 $SIG{'__WARN__'} = sub { push @warnings, @_ }
8 END { @warnings && print STDERR join "\n- ", "accumulated warnings:", @warnings }
169 @warnings = ();
171 no warnings;
172 use warnings 'constant';
215 push @warnings, "";
219 if (@warnings == 16) {
220 push @warnings, "";
[all …]
/openbsd/src/gnu/usr.bin/perl/cpan/Encode/t/
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 …]
/openbsd/src/gnu/usr.bin/perl/ext/XS-APItest/t/
Dutf8.t586 my @warnings;
589 local $SIG{__WARN__} = sub { push @warnings, @_ };
650 undef @warnings;
668 is(scalar @warnings, 0, " Verify is_utf8_valid_partial_char_flags"
670 or output_warnings(@warnings);
755 undef @warnings;
769 unless (is(scalar @warnings, 0,
772 output_warnings(@warnings);
777 undef @warnings;
783 unless (is(scalar @warnings, 0,
[all …]

12345678910>>...89