Searched defs:ok (Results 26 - 50 of 93) sorted by relevance

1234

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dextra.t17 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 Dfail-more.t26 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 Dfail.t26 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 DSimple.pm16 *{$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 DMore.pm23 @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 DV.pm10 @EXPORT_OK = qw( notok ok $num );
50 $x ? &ok : &notok;
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 Dmagic.t14 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 Dgmagic.t14 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 Dtaint.t20 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 Dsort.t44 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 Dpat.t20 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 DTest.pm28 @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 DExporter.t10 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 Dndbm.t18 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 Dodbm.t18 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 Dsdbm.t18 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 Dst-dump.pl13 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 Dgmatch.c76 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 Dredef.t10 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 Dsetenviron.c31 * 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 Dutil.c42 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 Ddtview.c40 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 Dgrub-mklayout.c356 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 Dtest.pl59 $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 DCmd.pm227 sub ok subroutine
229 @_ == 1 or croak 'usage: $obj->ok()';
636 =item ok ()

Completed in 103 milliseconds

1234