Searched defs:ok (Results 1 - 25 of 93) sorted by relevance

1234

/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/base/
H A Dnum.t9 print $a eq "1" ? "ok 1\n" : "not ok 1 # $a\n";
12 print $a eq "-1" ? "ok 2\n" : "not ok 2 # $a\n";
15 print $a eq "1" ? "ok 3\n" : "not ok 3 # $a\n";
18 print $a eq "-1" ? "ok 4\n" : "not ok 4 # $a\n";
21 print $a eq "0.1" ? "ok 5\n" : "not ok
71 sub ok { # Can't assume too much of floating point numbers. subroutine
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/comp/
H A Dcolon.t19 sub ok { subroutine
20 my($test,$ok) = @_;
21 print "not " unless $ok;
22 print "ok $test\n";
29 ok 1, (eval "package ABC; sub zyx {1}; 1;" and
34 ok 2, (eval "package LABEL; sub zyx {1}; 1;" and
39 ok 3, (eval "package XYZZY; sub zyx {1}; 1;" and
44 ok 4, (eval "package m; sub zyx {1}; 1;" and
49 ok 5, (eval "package q; sub zyx {1}; 1;" and
54 ok
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/op/
H A Dtime.t14 sub ok ($$) { subroutine
15 my($ok, $name) = @_;
18 print $ok ? "ok $test - $name\n" : "not ok $test - $name\n";
20 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
23 return $ok;
33 ok($now > $beg && $now - $beg < 10, 'very basic time test');
42 ok($i >= 200000, 'very basic times test');
48 ok(
[all...]
H A Dinc.t9 sub ok { subroutine
12 print "ok $test\n";
18 print "not ok $test # $err\n";
25 printf "not ok $test # line %d$wrong\n", (caller)[2];
38 ok ($a == 2147483648, $a);
42 ok ($a == 2147483648, $a);
46 ok ($a == 2147483648, $a);
50 ok ($a == -2147483649, $a);
54 ok ($a == -2147483649, $a);
58 ok (
[all...]
H A Dconcat.t8 # This ok() function is specially written to avoid any concatenation.
10 sub ok { subroutine
11 my($ok, $name) = @_;
13 printf "%sok %d - %s\n", ($ok ? "" : "not "), $test, $name;
15 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
18 return $ok;
25 ok("$a" eq "foo", "verifying assign");
26 ok("$a$b" eq "foobar", "basic concatenation");
27 ok("$c$a$c" eq "foo", "concatenate undef, fore and aft");
37 ok(
[all...]
H A Ddo.t7 ok($_[0]);
14 ok($_[0]);
20 sub ok { subroutine
21 my($ok, $name) = @_;
24 printf "%s %d%s\n", $ok ? "ok" : "not ok",
28 printf "# Failed test at line %d\n", (caller)[2] unless $ok;
31 return $ok;
40 ok(
[all...]
H A Dgrep.t11 sub ok { subroutine
14 print "ok $test\n";
20 ok "@mapped", "3 0 3";
24 ok "@grepped", "$lol[0] $lol[2]";
28 ok "@grepped", "3 3";
33 print map({$_} ("ok $test\n"));
36 ({$_} ("ok $test\n"));
38 print((map({a => $_}, ("ok $test\n")))[0]->{a});
42 ("ok $test\n")))[0]->{a});
44 print map { $_ } ("ok
[all...]
H A Dstudy.t10 sub ok ($;$) { subroutine
11 my($ok, $name) = @_;
16 printf "%s $test%s\n", $ok ? 'ok' : 'not ok',
19 printf "# Failed test at line %d\n", (caller($Ok_Level))[2] unless $ok;
22 return $ok;
28 ok( !$nok, $name );
46 ok( !$match && !$@, 'testing studys that used to hang' );
55 ok(
[all...]
H A Dsubstr.t26 sub ok { print (($_[1] ? "" : "not ") . "ok $_[0]\n") } subroutine
30 ok 1, substr($a,0,3) eq 'abc'; # P=Q R S
31 ok 2, substr($a,3,3) eq 'def'; # P Q R S
32 ok 3, substr($a,6,999) eq 'xyz'; # P Q S R
34 ok 4, $w-- == 1 ;
36 ok 5, $@ =~ /$FATAL_MSG/;
37 ok 6, substr($a,0,-6) eq 'abc'; # P=Q R S
38 ok 7, substr($a,-3,1) eq 'x'; # P Q R S
42 ok
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/B/t/
H A Ddebug.t22 sub ok { print "ok $test\n"; $test++ } subroutine
35 ok;
41 ok;
69 ok;
H A Dshowlex.t21 sub ok { print "ok $test\n"; $test++ } subroutine
38 ok;
H A Dstash.t21 sub ok { print "ok $test\n"; $test++ } subroutine
80 ok;
82 print "ok $test # skipped: one or more static extensions\n"; $test++;
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/IO/t/
H A Dio_dir.t22 sub ok { subroutine
25 print "${not}ok $tcount\n";
33 ok(defined($dot));
37 ok(+(grep { $_ eq $first } @a));
40 ok(+(join("\0", @a) eq join("\0", @b)));
44 ok(+(join("\0", @b) eq join("\0", @c)));
48 ok(!defined($dot->read));
58 ok(scalar @files);
61 ok(defined($stat) && UNIVERSAL::isa($stat,'File::stat') && $stat->size == 1);
65 ok(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/List/Util/t/
H A Dlln.t29 sub ok { print +(($_[0] eq $_[1]) ? "": "not "), "ok ",++$i,"\n" } subroutine
33 ok(!!looks_like_number("1"), 1);
34 ok(!!looks_like_number("-1"), 1);
35 ok(!!looks_like_number("+1"), 1);
36 ok(!!looks_like_number("1.0"), 1);
37 ok(!!looks_like_number("+1.0"), 1);
38 ok(!!looks_like_number("-1.0"), 1);
39 ok(!!looks_like_number("-1.0e-12"), 1);
40 ok(!!looks_like_numbe
[all...]
H A Dweak.t44 sub ok { subroutine
46 if($_[0]) { print "ok $cnt\n"; } else {print "not ok $cnt\n"; }
68 ok( $y ne "" and $z ne "" );
74 ok( $y ne "" and $z ne "" );
80 ok( not (defined($y) and defined($z)) );
86 ok( not (defined($y) and defined($z)) );
109 ok( $y ne "" );
115 ok( not defined $y );
140 ok(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Test/Simple/t/
H A Dbad_plan.t12 sub ok ($;$) { subroutine
14 my $ok = '';
15 $ok .= "not " unless $test;
16 $ok .= "ok $test_num";
17 $ok .= " - $name" if defined $name;
18 $ok .= "\n";
19 print $ok;
32 ok( $@ =~ /^plan\(\) doesn't understand 7/, 'bad plan()' ) ||
36 ok(
[all...]
H A Doutput.t18 sub ok ($;$) { subroutine
20 my $ok = '';
21 $ok .= "not " unless $test;
22 $ok .= "ok $test_num";
23 $ok .= " - $name" if defined $name;
24 $ok .= "\n";
25 print $ok;
38 ok( defined $out );
48 ok(
[all...]
H A Dexit.t30 sub ok ($;$) { subroutine
32 my $ok = '';
33 $ok .= "not " unless $test;
34 $ok .= "ok $test_num";
35 $ok .= " - $name" if defined $name;
36 $ok .= "\n";
37 print $ok;
94 My::Test::ok( $actual_exit != 0,
99 My::Test::ok(
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/Filter/Simple/
H A DExportTest.pm6 @EXPORT_OK = qw(ok);
10 sub ok { print "ok @_\n" } subroutine
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Storable/t/
H A Dcanonical.t29 sub ok { subroutine
30 my($testno, $ok) = @_;
31 print "not " unless $ok;
32 print "ok $testno\n";
114 ok 1, (length($x1) > $hashsize); # sanity check
115 ok 2, length($x1) == length($x2); # idem
116 ok 3, $x1 eq $x2;
117 ok 4, $x1 eq $x3;
135 ok 5, ($x1 ne $x2) || ($x1 ne $x3);
143 ok
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/IPC/
H A DOpen2.t25 sub ok { subroutine
28 print "ok $n\n";
31 print "not ok $n\n";
51 ok 1, $pid = open2 'READ', 'WRITE', $perl, '-e',
53 ok 2, print WRITE "hi kid\n";
54 ok 3, <READ> =~ /^hi kid\r?\n$/;
55 ok 4, close(WRITE), $!;
56 ok 5, close(READ), $!;
58 ok 6, $reaped_pid == $pid, $reaped_pid;
59 ok
[all...]
H A DOpen3.t25 sub ok { subroutine
28 print "ok $n\n";
31 print "not ok $n\n";
55 ok 1, $pid = open3 'WRITE', 'READ', 'ERROR', $perl, '-e', cmd_line(<<'EOF');
60 ok 2, print WRITE "hi kid\n";
61 ok 3, <READ> =~ /^hi kid\r?\n$/;
62 ok 4, <ERROR> =~ /^hi error\r?\n$/;
63 ok 5, close(WRITE), $!;
64 ok 6, close(READ), $!;
65 ok
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/t/lib/
H A Dfilter-util.pl31 sub ok subroutine
42 print "ok ${number}${note}\n";
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/ext/Time/HiRes/t/
H A DHiRes.t12 END {print "not ok 1\n" unless $loaded;}
18 print "ok 1\n";
70 # Another possibility might be to print "ok" if the test completes fine
78 map { print "ok $_ # skipped\n" } @_;
81 sub ok { subroutine
84 print "ok $n\n";
87 print "not ok $n\n";
97 ok 2, @one == 2, 'gettimeofday returned ', 0+@one, ' args';
98 ok 3, $one[0] > 850_000_000, "@one too small";
103 ok
[all...]
/osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/Net/t/
H A Dlibnet_t.pl3 sub ok { subroutine
6 my $message = $condition ? "ok " : "not ok ";
20 unless (ok($got eq $expected, $name)) {
32 print "ok $number # skip $reason\n";

Completed in 232 milliseconds

1234