| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/PerlIO/t/ |
| H A D | fail.t | 12 my $warn;
14 $SIG{__WARN__} = sub { $warn = shift };
22 $warn = ''; $! = 0;
26 like($warn,qr/in PerlIO layer/,"Got warning");
28 $warn = ''; $! = 0;
32 like($warn,qr/nonesuch/,"Got warning");
35 $warn = ''; $! = 0;
39 like($warn,qr/in PerlIO layer/,"Got warning");
41 $warn = ''; $! = 0;
45 like($warn,q
[all...] |
| H A D | encoding.t | 7 # to warn here:
78 $SIG{__WARN__} = sub {$warn .= $_[0]};
85 if (!defined $warn) {
87 } elsif ($warn =~ /^Cannot find encoding "NoneSuch" at/) {
90 print "not ok 10 # warning is '$warn'";
119 undef $warn;
128 if (!defined $warn) {
130 } elsif ($warn =~ /^Cannot find encoding "latin42" at.*line \d+\.$/) {
134 $warn =~ s/^/# /mg;
135 print "$warn";
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/MIME/Base64/t/ |
| H A D | warn.t | 28 my @warn;
29 $SIG{__WARN__} = sub { push(@warn, @_) };
31 warn;
35 warn;
44 warn;
53 warn;
56 for (@warn) {
61 for (@warn) {
65 print "not " unless join("", @warn) eq <<"EOT"; print "ok 1\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
| H A D | flip.t | 49 my $warn='';
50 $SIG{__WARN__} = sub { $warn .= join '', @_ };
54 if ($warn =~ /uninitialized/) { print "ok 13\n" } else { print "not ok 13\n" }
55 $warn = '';
59 if ((() = ($warn =~ /isn't numeric/g)) == 2) {
65 $warn = '';
|
| H A D | sprintf2.t | 41 my ($warn, $bad) = (0,0);
44 $warn++
53 is($warn, 36, "expected warnings");
63 warn $_[0];
|
| H A D | override.t | 87 BEGIN { *OverridenWarn::warn = sub { CORE::warn "@_ overriden"; }; }
90 warn( OverridenWarn->foo() );
91 warn OverridenWarn->foo();
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/ |
| H A D | Liblist.t | 26 my @warn;
27 local $SIG{__WARN__} = sub {push @warn, [@_]};
33 ok( @warn, 'had warning');
35 is( grep(/\QNote (probably harmless): No library found for \E(-l)?n0tt43r3_perl/, map { @$_ } @warn), 1 ) || diag Dumper @warn;
|
| H A D | Manifest.t | 48 my $warn;
49 local $SIG{__WARN__} = sub { $warn .= $_[0] };
50 return join('', $_[0]->() ), $warn;
74 my ($res, $warn) = catch_warning( \&mkmanifest );
76 $warn = join("", map { "$_|" }
77 sort { lc($a) cmp lc($b) } split /\r?\n/, $warn);
78 is( $warn, "Added to MANIFEST: foo|Added to MANIFEST: MANIFEST|",
93 ($res, $warn) = catch_warning( \&filecheck );
95 like( $warn, qr/^Not in MANIFEST: bar/, 'warning that bar has been added' );
99 ($res, $warn)
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
| H A D | redef.t | 6 $warn = "";
7 $SIG{__WARN__} = sub { $warn .= join("",@_) }
21 ok 1, $warn =~ s/Subroutine sub0 redefined[^\n]+\n//s;
26 ok 2, $warn =~ s/$NEWPROTO \Qsub main::sub1: none vs ()\E[^\n]+\n//s;
27 ok 3, $warn =~ s/Subroutine sub1 redefined[^\n]+\n//s;
32 ok 4, $warn =~ s/$NEWPROTO \Qsub main::sub2: none vs ($)\E[^\n]+\n//s;
33 ok 5, $warn =~ s/Subroutine sub2 redefined[^\n]+\n//s;
38 ok 6, $warn =~ s/$NEWPROTO \Qsub main::sub3 () vs none\E[^\n]+\n//s;
39 ok 7, $warn =~ s/Constant subroutine sub3 redefined[^\n]+\n//s;
44 ok 8, $warn
[all...] |
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/ |
| H A D | IO.t | 33 my $warn = '' ;
34 local $SIG{__WARN__} = sub { $warn = "@_" } ;
39 is( $warn, '', "... import default, should not warn");
40 $warn = '' ;
46 is( $warn, '', "... import default, should not warn");
47 $warn = '' ;
53 like( $warn, qr/^Parameterless "use IO" deprecated at/,
54 "... import default, should warn");
[all...] |
| /osnet-11/usr/src/lib/libmd/capabilities/sun4u/sparc/ |
| H A D | Makefile | 28 ASFLAGS += -xarch=v8plusa -warn
|
| /osnet-11/usr/src/lib/libmd/capabilities/sun4v/sparc/ |
| H A D | Makefile | 28 ASFLAGS += -xarch=v9v -m32 -warn
|
| /osnet-11/usr/src/lib/libmd/capabilities/sun4v-fjathena/sparc/ |
| H A D | Makefile | 28 ASFLAGS += -xarch=v9v -m32 -warn
|
| /osnet-11/usr/src/lib/libc/capabilities/sun4u/sparc/ |
| H A D | Makefile | 28 ASFLAGS += -xarch=v8plusa -warn
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
| H A D | use_ok.t | 34 my $warn; local $SIG{__WARN__} = sub { $warn .= shift; };
37 ::is( $warn, undef, 'no warning');
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/re/t/ |
| H A D | re.t | 25 my $warn;
27 $warn = shift;
30 like( $warn, qr/Useless use/, 'bits() should warn with no args' );
40 like( $warn, qr/Unknown "re" subpragma/,
41 '... should warn about unknown subpragma' );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/demos/ |
| H A D | nntp | 21 warn $nntp->message;
33 warn $nntp->message
|
| /osnet-11/usr/src/cmd/cmd-inet/usr.bin/pppd/plugins/ |
| H A D | passprompt.c | 42 warn("Can't make a pipe for %s", promptprog);
46 warn("Can't fork to run %s", promptprog);
102 warn("error waiting for %s: %m", promptprog);
112 warn("%s terminated abnormally", promptprog);
114 warn("%s exited with code %d", promptprog, WEXITSTATUS(wstat));
|
| /osnet-11/usr/src/cmd/sendmail/db/include/ |
| H A D | clib_ext.h | 15 void warn __P((const char *, ...));
17 void warn();
|
| /osnet-11/usr/src/lib/libresolv2/include/ |
| H A D | err.h | 56 void warn __P((const char *, ...));
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Tie/File/t/ |
| H A D | 08_ro.t | 45 my $warn;
46 local $SIG{__WARN__} = sub { $good = 0; ctrlfix($warn = shift); };
52 print $good ? "ok $N\n" : "not ok $N # $warn\n"; $good = 1; $N++;
54 print $good ? "ok $N\n" : "not ok $N # $warn\n"; $good = 1; $N++;
|
| H A D | 01_gen.t | 91 my $good = 1; my $warn;
93 local $SIG{__WARN__} = sub { $good = 0; $warn = shift(); ctrlfix($warn)};
97 print $good ? "ok $N\n" : "not ok $N # $warn\n";
105 print $good ? "ok $N\n" : "not ok $N # $warn\n";
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
| H A D | Symbol.t | 45 my $warn;
46 local $SIG{__WARN__} = sub { $warn .= "@_" };
48 like( $warn, qr/unopened filehandle/, 'warns like an unopened filehandle' );
|
| H A D | open.t | 30 my $warn;
32 $warn .= shift;
36 $warn = '';
38 is( $warn, '',
39 'should not warn about unknown layer with bad layer provided' );
41 $warn = '';
43 like( $warn, qr/Unknown PerlIO layer/,
44 'should warn about unknown layer with bad layer provided' );
|
| /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Term/ |
| H A D | Cap.t | 93 my $warn;
95 $warn = $_[0];
103 like( $warn, qr/OSPEED was not set/, 'Tgetent() should set default OSPEED' );
107 $warn = 'xxxx';
109 is($warn,'xxxx',"Tgetent() doesn't carp() without warnings on");
113 $warn = '';
115 is( $warn, '', 'Tgetent() should not work if OSPEED is provided' );
|