/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/ |
H A D | extra.t | 17 sub ok ($;$) { subroutine 19 my $ok = ''; 20 $ok .= "not " unless $test; 21 $ok .= "ok $test_num"; 22 $ok .= " - $name" if defined $name; 23 $ok .= "\n"; 24 print $ok; 41 ok(1, 'Foo'); 42 ok( [all...] |
H A D | fail-more.t | 26 sub ok ($;$) { subroutine 28 my $ok = ''; 29 $ok .= "not " unless $test; 30 $ok .= "ok $test_num"; 31 $ok .= " - $name" if defined $name; 32 $ok .= "\n"; 33 print $ok; 48 ok( 0, 'failing' ); 98 My::Test::ok( [all...] |
H A D | fail.t | 26 sub ok ($;$) { subroutine 28 my $ok = ''; 29 $ok .= "not " unless $test; 30 $ok .= "ok $test_num"; 31 $ok .= " - $name" if defined $name; 32 $ok .= "\n"; 33 print $ok; 44 ok( 1, 'passing' ); 45 ok( [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/ |
H A D | Simple.pm | 16 *{$caller.'::ok'} = \&ok; 31 ok( $foo eq $bar, 'foo is bar' ); 43 The basic unit of Perl testing is the ok. For each thing you want to 44 test your program will print out an "ok" or "not ok" to indicate pass 45 or fail. You do this with the ok() function (see below). 59 =item B<ok> 61 ok( $foo eq $bar, $name ); 62 ok( 86 sub ok ($;$) { subroutine [all...] |
H A D | More.pm | 23 @EXPORT = qw(ok use_ok require_ok 64 # Various ways to say "ok" 65 ok($this eq $that, $test_name); 83 ok( foo(), $test_name ); 90 ok( foo(), $test_name ); 119 utilities. Various ways to say "ok" with better diagnostics, 122 C<ok()> function, it doesn't provide good diagnostic output. 206 ok 4 207 not ok 5 208 ok 267 sub ok ($;$) { subroutine [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/dprof/ |
H A D | V.pm | 10 @EXPORT_OK = qw( notok ok $num ); 50 $x ? &ok : ¬ok; 53 sub ok { subroutine 54 print "ok $num\n"; 58 print "not ok $num\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/ |
H A D | magic.t | 14 sub ok { subroutine 15 my($ok, $info, $todo) = @_; 18 printf "%s $test%s\n", $ok ? "ok" : "not ok", 21 unless( $ok ) { 27 return $ok; 33 printf "ok $test # skipped%s\n", defined $reason ? ": $reason" : ''; 59 if ($Is_MSWin32) { ok `set FOO` =~ /^(?:FOO=)?hi there$/; } 60 elsif ($Is_MacOS) { ok " [all...] |
H A D | gmagic.t | 14 sub ok { subroutine 15 my($ok, $got, $exp, $rexp, $wexp) = @_; 17 print $ok ? "ok $t\n" : "# expected $exp, got $got\nnot ok $t\n"; 20 print "ok $t\n"; 24 print "not ok $t\n"; 29 sub ok_undef { ok(!defined($_[0]), shift, "undef", @_) } 30 sub ok_numeric { ok($_[0] == $_[1], @_) } 31 sub ok_string { ok( [all...] |
H A D | taint.t | 20 sub ok ($;$) { subroutine 21 my($ok, $name) = @_; 24 print $ok ? "ok $test - $name\n" : "not ok $test - $name\n"; 26 printf "# Failed test at line %d\n", (caller)[2] unless $ok; 29 return $ok; 105 print "ok $serial\n"; 107 print "not ok $serial\n"; 159 for (2..5) { print "ok [all...] |
H A D | sort.t | 44 print ($x eq $expected ? "ok 1\n" : "not ok 1\n"); 49 print ($x eq $expected ? "ok 2\n" : "not ok 2\n"); 54 print ($x eq $expected ? "ok 3\n" : "not ok 3\n"); 61 print ($x eq $expected ?"ok 4\n":"not ok 4\n"); 65 print ("@b" eq "" ? "ok 5\n" : "not ok 328 sub ok { subroutine [all...] |
H A D | pat.t | 20 if ($x =~ /^abc/) {print "ok 1\n";} else {print "not ok 1\n";} 21 if ($x !~ /^def/) {print "ok 2\n";} else {print "not ok 2\n";} 24 if ($x =~ /^def/) {print "ok 3\n";} else {print "not ok 3\n";} 28 if (/^([0-9][0-9]*)/) {print "ok 4\n";} else {print "not ok 4\n";} 30 if ($x =~ /^xxx/) {print "not ok 5\n";} else {print "ok 2030 sub ok ($$) { subroutine [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/ |
H A D | Test.pm | 28 @EXPORT = qw(&plan &ok &skip); 58 ok(0); # failure 59 ok(1); # success 61 ok(0); # ok, expected failure (see todo list, above) 62 ok(1); # surprise success! 64 ok(0,1); # failure: '0' ne '1' 65 ok('broke','fixed'); # failure: 'broke' ne 'fixed' 66 ok('fixed','fixed'); # success: 'fixed' eq 'fixed' 67 ok('fixe 335 sub ok ($;$$) { subroutine [all...] |
H A D | Exporter.t | 10 sub ok ($;$) { subroutine 11 my($ok, $name) = @_; 14 printf "%sok %d%s\n", ($ok ? '' : 'not '), $test, 17 printf "# Failed test at line %d\n", (caller)[2] unless $ok; 20 return $ok; 26 ok( 1, 'Exporter compiled' ); 45 ::ok( Testing->can($meth), "subclass can $meth()" ); 57 ::ok( Testing->require_version(1.05), 'require_version()' ); 59 ::ok( $@, 'require_version() fail' ); 60 ::ok( Testin [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/NDBM_File/t/ |
H A D | ndbm.t | 18 sub ok subroutine 24 print "ok $no\n" ; 37 ok(1, tie(%h,'NDBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)); 44 print "ok 2 # Skipped: different file permission semantics\n"; 49 print (($mode & 0777) == 0640 ? "ok 2\n" : "not ok 2\n"); 55 print (!$i ? "ok 3\n" : "not ok 3\n"); 77 print (tie(%h,'NDBM_File','Op.dbmx', &O_RDWR, 0640) ? "ok 4\n" : "not ok [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/ODBM_File/t/ |
H A D | odbm.t | 18 sub ok subroutine 24 print "ok $no\n" ; 37 ok(1, tie(%h,'ODBM_File','Op.dbmx', O_RDWR|O_CREAT, 0640)); 44 print "ok 2 # Skipped: different file permission semantics\n"; 49 print (($mode & 0777) == 0640 ? "ok 2\n" : "not ok 2\n"); 55 print (!$i ? "ok 3\n" : "not ok 3\n"); 77 print (tie(%h,'ODBM_File','Op.dbmx', O_RDWR, 0640) ? "ok 4\n" : "not ok [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/SDBM_File/t/ |
H A D | sdbm.t | 18 sub ok subroutine 24 print "ok $no\n" ; 37 ok(1, tie %h,'SDBM_File','Op_dbmx', O_RDWR|O_CREAT, 0640); 44 print "ok 2 # Skipped: different file permission semantics\n"; 49 print (($mode & 0777) == ($^O eq 'vos' ? 0750 : 0640) ? "ok 2\n" : "not ok 2\n"); 55 print (!$i ? "ok 3\n" : "not ok 3\n"); 77 print (tie(%h,'SDBM_File','Op_dbmx', O_RDWR, 0640) ? "ok 4\n" : "not ok [all...] |
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/ |
H A D | st-dump.pl | 13 sub ok { subroutine 14 my ($num, $ok, $name) = @_; 16 print $ok ? "ok $num\n" : "not ok $num\n"; 17 $ok; 22 my $ok = ((defined $left) ? $left == $right : undef); 23 unless (ok ($num, $ok, $name)) { 34 $ok; [all...] |
/osnet-11/usr/src/lib/libgen/common/ |
H A D | gmatch.c | 76 int ok; local 80 ok = 0; 97 ok++; 106 ok++; 115 ok++; 122 ok++; 126 return (ok ? gmatch(s, p) : 0);
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/ |
H A D | redef.t | 10 sub ok ($$) { subroutine 11 print $_[1] ? "ok " : "not ok ", $_[0], "\n"; 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 [all...] |
/osnet-11/usr/src/lib/libast/common/misc/ |
H A D | setenviron.c | 31 * environ==0 is ok 49 static char ok[] = ""; /* delete/optimization ok return*/ local 117 return ok; 132 return ok; 142 return ok;
|
/osnet-11/usr/src/cmd/sendmail/libsm/ |
H A D | util.c | 42 bool ok; local 48 ok = true; 54 ok = false; 59 ok = false; 62 if (ok)
|
/osnet-11/usr/src/lib/libast/common/cdt/ |
H A D | dtview.c | 40 Void_t *o, *n, *ok, *nk; local 66 ok = _DTKEY(o,ky,sz); 69 { cmp = _DTCMP(d,ok,nk,d->disc,cmpf,sz); 77 nk = ok; 149 /* ok */
|
/osnet-11/usr/src/grub/grub2/util/ |
H A D | grub-mklayout.c | 356 int ok; local 361 ok = 0; 410 ok = 1; 415 if (ok == 0)
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/ |
H A D | test.pl | 59 $out = $pass ? "ok $test - $name" : "not ok $test - $name"; 61 $out = $pass ? "ok $test" : "not ok $test"; 85 sub ok ($@) { subroutine 280 print STDOUT "ok $test # skip: $why\n";
|
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/ |
H A D | Cmd.pm | 227 sub ok subroutine 229 @_ == 1 or croak 'usage: $obj->ok()'; 636 =item ok ()
|