Searched refs:diag (Results 1 - 25 of 30) sorted by relevance

12

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Sys/Syslog/t/
H A D00-load.t7 diag( "Testing Sys::Syslog $Sys::Syslog::VERSION, Perl $], $^X" )
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Drestrict.t89 my $diag = $@;
90 $diag =~ s/\n.*\z//s;
91 print "# \$\@: $diag\n";
124 my $diag = $@;
125 $diag =~ s/\n.*\z//s;
126 print "# \$\@: $diag\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Ddiag.t28 diag("a single line");
33 $ret = diag("multiple\n", "lines");
37 is( @lines, 3, 'diag() should send messages to its filehandle' );
41 ok( !$ret, 'diag returns false' );
46 $ret = diag("# foo");
49 is( $output, "# # foo\n", "diag() adds a # even if there's one already" );
50 ok( !$ret, 'diag returns false' );
H A Dundef.t56 diag(undef);
60 is( $warnings, '', 'diag(undef) no warnings' );
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Harness/t/
H A D00compile.t16 BEGIN { diag( "Testing Test::Harness $Test::Harness::VERSION" ) unless $ENV{PERL_CORE}}
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dhashwarn.t22 my($num, $bool, $diag) = @_;
28 return unless defined $diag;
29 $diag =~ s/\Z\n?/\n/; # unchomp
30 print map "# $num : $_", split m/^/m, $diag;
H A Dtaint.t103 my($serial, $boolean, $diag) = @_;
108 for (split m/^/m, $diag) {
112 $diag eq ''
113 or substr($diag, -1) eq "\n";
/osnet-11/usr/src/cmd/perl/contrib/Sun/Solaris/Lgrp/t/
H A DLgrp_api.t82 diag("lgrp_nlgrps: $!");
88 diag("lgrp_lgrps: $!");
105 diag("lgrp_parents: $!");
122 diag("lgrp_parents: $!");
149 diag("lgrp_affinity_set(): $!");
155 diag("lgrp_affinity_set(): $!");
166 diag("lgrp_affinity_set(): $!");
187 diag("lgrp_mem_size(): $!");
203 diag("lgrp_latency: $!");
207 diag("lgrp_latency_cooki
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Safe/t/
H A Dsafeload.t26 ok( defined $r, "Can load version.pm in a Safe compartment" ) or diag $@;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ExtUtils/t/
H A Drecurs.t44 diag("chdir failed: $!");
51 diag(@mpl_out);
67 diag("chdir failed: $!");
74 diag(@mpl_out);
91 diag("chdir failed: $!");
99 diag(@mpl_out);
108 ok( open(MAKEFILE, $submakefile) ) || diag("Can't open $submakefile: $!");
H A Dbasic.t42 diag("chdir failed: $!");
48 diag(@mpl_out);
81 is( $?, 0, ' exited normally' ) || diag $ppd_out;
110 diag $test_out;
118 diag $test_out;
122 is( $?, 0, 'install' ) || diag $install_out;
142 is( $?, 0, 'install with PREFIX override' ) || diag $install_out;
162 diag $install_out;
178 diag("Can't open $files{'perllocal.pod'}: $!");
186 # diag("Ca
[all...]
H A DLiblist.t35 is( grep(/\QNote (probably harmless): No library found for \E(-l)?n0tt43r3_perl/, map { @$_ } @warn), 1 ) || diag Dumper @warn;
H A Doneliner.t37 $TB->is_eq(scalar `$cmd`, $expect, $name) || $TB->diag("oneliner:\n$cmd");
H A Dprereq_print.t33 diag("chdir failed: $!");
H A DINST.t37 diag("chdir failed: $!");
H A Dwritemakefile_args.t29 diag("chdir failed: $!");
H A DCommand.t82 diag "mtime == $stamp, should be $now";
H A DINST_PREFIX.t39 diag("chdir failed: $!");
/osnet-11/usr/src/lib/storage/liba5k/
H A DMakefile.com28 OBJECTS = diag.o \
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/
H A Ddbm_filter_util.pl17 #diag "Stored [$k][$v]";
39 #diag "Match [$k][$v]";
43 #diag "No Match [$k][$v]";
63 diag "${bad}\n" ;
H A Dconstant.t29 my($num, $bool, $diag) = @_;
35 return unless defined $diag;
36 $diag =~ s/\Z\n?/\n/; # unchomp
37 print map "# $num : $_", split m/^/m, $diag;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Dxref.t18 open SAVEOUT, ">&STDOUT" or diag $!;
25 open STDOUT, ">&SAVEOUT" or diag $!;
/osnet-11/usr/src/lib/libwrap/
H A DMakefile.com31 update.o misc.o diag.o percent_m.o
53 DISTFILES = clean_exit.c diag.c eval.c fix_options.c fromhost.c \
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/
H A DBuilder.pm292 $self->diag(<<ERR) if defined $name and $name =~ /^[\d\s]+$/;
343 $self->diag(" $msg test ($file at line $line)\n");
416 return $self->diag(sprintf <<DIAGNOSTIC, $got, $expect);
555 $self->diag(" '$regex' doesn't look much like a regex to me.");
569 $self->diag(sprintf <<DIAGNOSTIC, $this, $match, $regex);
618 return $self->diag(sprintf <<DIAGNOSTIC, $got, $type, $expect);
868 =item B<diag>
870 $Test->diag(@msgs);
882 Returns false. Why? Because diag() is often used in conjunction with
883 a failing test (C<ok() || diag()>) i
892 sub diag { subroutine
[all...]
H A DMore.pm32 diag
71 diag("here's what went wrong");
464 $Test->diag(' can_ok() called with no methods');
481 $Test->diag(map " $class->can('$_') failed\n", @nok);
518 my $diag;
522 $diag = "$obj_name isn't defined";
525 $diag = "$obj_name isn't a reference";
535 $diag = "$obj_name isn't a '$class' it's a '$ref'";
548 $diag = "$obj_name isn't a '$class' it's a '$ref'";
555 if( $diag ) {
628 sub diag { subroutine
[all...]

Completed in 398 milliseconds

12