/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | undef.t | 15 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 D | warn.t | 20 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 D | kvaslice.t | 21 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 D | goto.t | 53 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 D | my_stash.t | 22 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 D | coretests.pm | 14 # 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 D | cmp.t | 67 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 D | context.t | 48 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 D | can_write_dir.t | 17 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 D | blessed.t | 11 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 D | mesh.t | 27 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 D | cachepropagate-tcp.t | 17 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 D | io_dir.t | 34 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 D | 19no-addrs.t | 18 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 D | pat_re_eval.t | 47 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 D | Internals.t | 17 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 D | win32.t | 14 ok 1; 24 ok 1;
|
/openbsd-current/gnu/usr.bin/perl/ext/XS-APItest/t/ |
H A D | gv_init.t | 10 ok $::{sanity_check}; 14 ok $::{"test$type"};
|
H A D | my_exit.t | 14 print "ok\n"; 18 ok 31 print "ok\n"; 35 ok
|
H A D | newCONSTSUB.t | 33 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 D | goto.t | 29 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 D | decl.t | 6 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 D | plan_is_noplan.t | 24 $tb->ok(1, 'foo'); 28 ok 1 - foo
|
/openbsd-current/gnu/usr.bin/perl/cpan/Sys-Syslog/t/ |
H A D | syslog.t | 40 # 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 D | 98_pod_coverage.t | 34 my $ok = eval { 40 if (not $ok) {
|