Searched refs:ok (Results 251 - 275 of 1444) sorted by relevance

<<11121314151617181920>>

/openbsd-current/gnu/usr.bin/perl/t/op/
H A Dundef.t15 ok !defined($a);
18 ok defined($a);
21 ok !defined($a);
24 ok defined($a);
27 ok !defined($a);
31 ok defined($a);
33 ok !defined($a);
37 ok defined($a);
39 ok !defined($a);
42 ok define
[all...]
H A Dwarn.t20 ok @warnings==1 && $warnings[0] eq "foo\n";
25 ok @warnings==1 && $warnings[0] eq "foobar\n";
30 ok @warnings==1 && $warnings[0] eq "foo at warn.t line 29.\n";
35 ok @warnings==1 && ref($warnings[0]) eq "ARRAY" && $warnings[0] == $wa;
40 ok @warnings==1 &&
46 ok @warnings==1 &&
52 ok @warnings==1 && $warnings[0] eq "foo\n";
57 ok @warnings==1 && $warnings[0] eq "foobar\n";
62 ok @warnings==1 && $warnings[0] eq "foo at warn.t line 61.\n";
67 ok
[all...]
H A Dkvaslice.t21 ok( eq_hash( { %a[5,6] }, { 5 => 'f', 6 => 'g' } ), "correct hash" );
29 ok( eq_hash( { %a[3..4] }, { 3 => 'd', 4 => undef } ),
32 ok( !exists $a[5], "no autovivification" );
39 ok eq_array( \@a, [ (1 => 'b') x 3 ]), "repetead keys end with repeated results";
65 ok( eq_array( \@a, ['a', 'b'] ), "correct array" );
87 my $ok = 1;
88 $ok = 0 if grep !ref, @tmp;
89 ok $ok, "all elements are refs";
99 ok( eq_arra
[all...]
H A Dgoto.t53 my $ok = 0;
58 $ok = 1;
62 ok($ok, 'goto in sub');
114 ok($y, 'goto a for(;;) loop, from outside (does initializer)');
123 ok($y, 'goto a for(;;) loop, from inside (does initializer)');
132 $ok = 0;
136 LABEL20: $ok = 1 if $variable;
138 ok($ok, 'work
[all...]
H A Dmy_stash.t22 ok ! $@;
30 ok $@;
34 is runperl(prog => 'my main $r; sub FIELDS; $$r{foo}; print qq-ok\n-'),
35 "ok\n",
37 is runperl(prog => 'my main $r; sub FIELDS; @$r{f,b}; print qq-ok\n-'),
38 "ok\n",
/openbsd-current/gnu/usr.bin/perl/cpan/version/t/
H A Dcoretests.pm14 # If we made it this far, we are ok.
88 ok ($version, 'boolean');
95 ok ( $version == $version, '$version == $version' );
101 ok ( $version == $version, '$version == $version' );
102 ok ( $version < $new_version, '$version < $new_version' );
103 ok ( $new_version > $version, '$new_version > $version' );
104 ok ( $version != $new_version, '$version != $new_version' );
108 ok ( $version < $new_version, '$version < $new_version' );
109 ok ( $new_version > $version, '$new_version > $version' );
110 ok (
[all...]
/openbsd-current/gnu/usr.bin/perl/t/opbasic/
H A Dcmp.t67 print "ok $test # skipping failed NaN test under -ffast-math\n";
70 print "not ok $test # ($left $threeway $right) gives: $result \$i=$i \$j=$j, $boolean disagrees\n";
74 my $ok = 0;
77 $ok++;
96 print "ok $ok\n";
99 nok ($ok, $i3, '<=>', $j3, $cmp, $i, $j, '<');
101 $ok++;
107 print "ok $ok\
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/autodie/t/
H A Dcontext.t48 ok($@,"List return fatalised");
60 ok(! $@,"void List return fatalised survives when non-void");
66 ok($@,"void List return fatalised");
/openbsd-current/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/
H A Dcan_write_dir.t17 ok ! -e $dne;
28 ok ! -e $abs_dne;
42 ok mkdir $exists;
45 ok chmod 0555, $exists, 'make read only';
53 ok chmod 0777, $exists, 'make writable';
54 ok -w $exists;
/openbsd-current/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/
H A Dblessed.t11 ok(!defined blessed(undef), 'undef is not blessed');
12 ok(!defined blessed(1), 'Numbers are not blessed');
13 ok(!defined blessed('A'), 'Strings are not blessed');
14 ok(!defined blessed({}), 'Unblessed HASH-ref');
15 ok(!defined blessed([]), 'Unblessed ARRAY-ref');
16 ok(!defined blessed(\$t), 'Unblessed SCALAR-ref');
H A Dmesh.t27 ok( !defined eval { mesh 1, 2, 3 },
30 ok( !defined eval { mesh +{ one => 1 } },
/openbsd-current/gnu/usr.bin/perl/dist/IO/t/
H A Dcachepropagate-tcp.t17 ok(defined($listener), 'socket created');
22 ok(defined($p), 'protocol defined');
24 ok(defined($d), 'domain defined');
26 ok(defined($s), 'type defined');
49 ok(defined($cpid), 'spawned a child');
54 ok($new, "got a socket from accept")
H A Dio_dir.t34 ok(defined($dot), "Able to create IO::Dir object for $DIR");
39 ok(+(grep { $_ eq $first } @a), "directory entry found");
42 ok(+(join("\0", @a) eq join("\0", @b)), "two lists of directory entries match (Case 1)");
44 ok($dot->rewind,'rewind');
46 ok(+(join("\0", @b) eq join("\0", @c)), "two lists of directory entries match (Case 2)");
48 ok($dot->close,'close');
51 ok(!$dot->rewind, "rewind on closed");
52 ok(!defined($dot->read), "Directory handle closed; 'read' returns undef");
64 ok(scalar @files, "Tied hash interface finds directory entries");
68 ok(define
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/IO-Socket-IP/t/
H A D19no-addrs.t18 ok( defined $sock, 'Constructor yields handle for Family => AF_INET' ) or
21 ok( defined $sock->fileno, '$sock->fileno for Family => AF_INET' );
35 ok( defined $sock, 'Constructor yields handle for Family => AF_INET6' ) or
38 ok( defined $sock->fileno, '$sock->fileno for Family => AF_INET6' );
48 ok( defined $sock, 'Constructor yields handle for Type => SOCK_STREAM' ) or
51 ok( defined $sock->fileno, '$sock->fileno for Type => SOCK_STREAM' );
/openbsd-current/gnu/usr.bin/perl/t/re/
H A Dpat_re_eval.t47 ok(/$a$a/ && $b eq '9', $message);
50 ok(/$a$a/ && $b eq '11', $message);
77 ok($@ && $@ =~ /Eval-group not allowed/ && !$match, $message);
94 ok 'goodfood' =~ $a, "Reblessed qr // matches";
100 ok $x =~ $a, "UTF-8 interpolation in qr //";
101 ok "a$a" =~ $x, "Stringified qr // preserves UTF-8";
102 ok "a$x" =~ /^a$a\z/, "Interpolated qr // preserves UTF-8";
103 ok "a$x" =~ /^a(??{$a})\z/,
110 ok "$x$x" =~ /^$x(??{$x})\z/,
112 ok "
[all...]
/openbsd-current/gnu/usr.bin/perl/lib/
H A DInternals.t17 ok( !Internals::SvREADONLY $foo );
21 ok( Internals::SvREADONLY $foo, 1 );
22 ok( Internals::SvREADONLY $foo );
29 ok( !Internals::SvREADONLY $foo, 0 );
30 ok( !Internals::SvREADONLY $foo );
37 ok( !Internals::SvREADONLY @foo );
42 ok( Internals::SvREADONLY @foo, 1 );
43 ok( Internals::SvREADONLY @foo );
55 ok( !Internals::SvREADONLY @foo, 0 );
56 ok( !Internal
[all...]
/openbsd-current/gnu/usr.bin/perl/dist/PathTools/t/
H A Dwin32.t14 ok 1;
24 ok 1;
/openbsd-current/gnu/usr.bin/perl/ext/XS-APItest/t/
H A Dgv_init.t10 ok $::{sanity_check};
14 ok $::{"test$type"};
H A Dmy_exit.t14 print "ok\n";
18 ok
31 print "ok\n";
35 ok
H A DnewCONSTSUB.t33 ok $const;
34 ok *{$glob}{CODE};
38 ok $const, "newCONSTSUB generates the constant,";
39 ok *{$glob}{CODE}, "..and the glob,";
40 ok !$::{"\x{30cb}"}, "...but not the right one";
44 ok $const, "newCONSTSUB_flags generates the constant,";
45 ok *{$glob}{CODE}, "..and the glob,";
46 ok $::{"\x{30cd}"}, "...the right one!";
/openbsd-current/gnu/usr.bin/perl/t/uni/
H A Dgoto.t29 ok goto_baresub(), "Magical goto works on an UTF-8 sub,";
30 ok goto_softref(), "..and an UTF-8 softref sub,";
/openbsd-current/gnu/usr.bin/perl/t/comp/
H A Ddecl.t6 print "ok 1\n";
9 ok 6
18 print "ok 2\n";
27 print "ok 3\n";
37 $foo = "ok 7";
43 ok 8
50 print "not ok 9\n";
54 print "ok 4\n";
59 print "ok 5\n";
61 print "ok
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/
H A Dplan_is_noplan.t24 $tb->ok(1, 'foo');
28 ok 1 - foo
/openbsd-current/gnu/usr.bin/perl/cpan/Sys-Syslog/t/
H A Dsyslog.t40 # ok, now loads them
101 ok( $r, "setlogsock() should return true: '$r'" );
112 ok( $r, "openlog() should return true: '$r'" );
117 ok( $r, "syslog() should return true: '$r'" );
122 ok( $r, "closelog() should return true: '$r'" );
140 ok( $r, "[$sock_type] setlogsock() should return true: '$r'" );
146 ok( $r, "[$sock_type] setlogsock() should return true: '$r'" );
152 ok( $r, "[$sock_type] openlog() should return true: '$r'" );
158 ok( $r, "[$sock_type] openlog() should return true: '$r'" );
163 ok( !
[all...]
/openbsd-current/gnu/usr.bin/perl/cpan/Text-Balanced/t/
H A D98_pod_coverage.t34 my $ok = eval {
40 if (not $ok) {

Completed in 151 milliseconds

<<11121314151617181920>>