/openbsd-current/gnu/usr.bin/perl/t/uni/ |
H A D | latin2.t | 19 ok("\xC1" =~ /\xC1/, '\xC1 to /\xC1/'); 20 ok("\x{C1}" =~ /\x{C1}/, '\x{C1} to /\x{C1}/'); 21 ok("\xC3" =~ /\xC3/, '\xC3 to /\xC3/'); 22 ok("\x{102}" =~ /\xC3/, '\x{102} to /\xC3/'); 23 ok("\xC3" =~ /\x{C3}/, '\xC3 to /\x{C3}/'); 24 ok("\x{102}" =~ /\x{C3}/, '\x{102} to /\x{C3}/'); 25 ok("\xC3" =~ /\x{102}/, '\xC3 to /\x{102}/'); 26 ok("\x{102}" =~ /\x{102}/, '\x{102} to /\x{102}/'); 28 ok("\xC1" =~ /\xC1/i, '\xC1 to /\xC1/i'); 29 ok("\xE [all...] |
H A D | greek.t | 17 ok("\xC1" =~ /\xC1/, '\xC1 to /\xC1/'); 18 ok("\x{391}" =~ /\xC1/, '\x{391} to /\xC1/'); 19 ok("\xC1" =~ /\x{C1}/, '\xC1 to /\x{C1}/'); 20 ok("\x{391}" =~ /\x{C1}/, '\x{391} to /\x{C1}/'); 21 ok("\xC1" =~ /\301/, '\xC1 to /\301/'); 22 ok("\x{391}" =~ /\301/, '\x{391} to /\301/'); 23 ok("\xC1" =~ /\x{391}/, '\xC1 to /\x{391}/'); 24 ok("\x{391}" =~ /\x{391}/, '\x{391} to /\x{391}/'); 26 ok("\xC1" =~ /\xC1/i, '\xC1 to /\xC1/i'); 27 ok("\xE [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/MIME-Base64/t/ |
H A D | length.t | 5 use Test qw(plan ok); 13 ok(elen(""), 0); 14 ok(elen("a"), 5); 15 ok(elen("aa"), 5); 16 ok(elen("aaa"), 5); 17 ok(elen("aaaa"), 9); 18 ok(elen("aaaaa"), 9); 20 ok(elen("", ""), 0); 21 ok(elen("a", ""), 4); 22 ok(ele [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Harness/t/source_tests/ |
H A D | source.pl | 5 ok 1 - source.pl
|
H A D | source.t | 5 ok 1 - source.t
|
H A D | test.tap | 7 ok 1 - source.pl
|
H A D | harness_badtap | 5 ok 1 - this is a test 6 not ok 2 - this is another test
|
H A D | harness_failure | 5 ok 1 - this is a test 6 not ok 2 - this is another test
|
H A D | harness | 5 ok 1 - this is a test
|
H A D | harness_directives | 5 ok 1 - this is a test 6 not ok 2 - we have a something # TODO some output 7 ok 3 houston, we don't have liftoff # SKIP no funding
|
/openbsd-current/gnu/usr.bin/perl/t/op/ |
H A D | mkdir.t | 30 eval "ok($_[0])"; 34 ok(mkdir('blurfl',0777)); 35 ok(!mkdir('blurfl',0777)); 37 ok(-d 'blurfl'); 38 ok(rmdir('blurfl')); 39 ok(!rmdir('blurfl')); 44 ok(mkdir('blurfl')); 45 ok(rmdir('blurfl')); 48 ok(mkdir('blurfl///')); 49 ok( [all...] |
H A D | loopctl.t | 41 my $ok; 45 $ok = 0; 51 $ok = 1; 54 $ok = 0; 60 $ok = 0; 63 $ok = 0; 65 cmp_ok($ok,'==',1,'no label on while()'); 69 $ok = 0; 76 $ok = $been_in_continue; 79 $ok [all...] |
H A D | fh.t | 15 ok(!defined(fileno($a)), 'initial file handle is undefined'); 16 ok(!defined *{$a}, 'initial typeglob of file handle is undefined'); 19 ok(defined *{$a}, 'typeglob of file handle defined after select'); 22 ok(!close $a, 'close does not succeed with incremented file handle'); 23 ok(!defined *{$a}, 'typeglob of file handle not defined after increment'); 25 ok(open($a, ">&STDOUT"), 'file handle used with open of standard output'); 26 ok(defined *{$a}, 'typeglob of file handle defined after opening standard output'); 28 ok(close $a, 'close standard output via file handle;');
|
/openbsd-current/gnu/usr.bin/gcc/gcc/testsuite/gcc.dg/ |
H A D | 20020607-2.c | 12 int test1 (double x, int ok) argument 16 if (!ok) abort (); 19 if (ok) abort (); 22 int test1f (float x, int ok) argument 26 if (!ok) abort (); 29 if (ok) abort (); 32 int test2 (double x, int ok) argument 36 if (!ok) abort (); 39 if (ok) abort (); 42 int test2f (float x, int ok) argument [all...] |
/openbsd-current/gnu/usr.bin/perl/t/io/ |
H A D | pvbm.t | 35 ok (scalar eval { untie $pvbm; 1 }, 'untie(PVBM) doesn\'t segfault'); 36 ok (scalar eval { tied $pvbm; 1 }, 'tied(PVBM) doesn\'t segfault'); 42 ok (scalar eval { pipe $pvbm, PIPE; }, 'pipe(PVBM, ) succeeds'); 45 ok (scalar eval { pipe PIPE, $pvbm; }, 'pipe(, PVBM) succeeds'); 48 ok (!eval { pipe \$pvbm, PIPE; }, 'pipe(PVBM ref, ) fails'); 49 ok (!eval { pipe PIPE, \$pvbm; }, 'pipe(, PVBM ref) fails'); 51 ok (!eval { truncate $pvbm, 0 }, 'truncate(PVBM) fails'); 52 ok (!eval { truncate \$pvbm, 0}, 'truncate(PVBM ref) fails'); 54 ok (!eval { stat $pvbm }, 'stat(PVBM) fails'); 55 ok (!eva [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Harness/t/subclass_tests/ |
H A D | perl_source | 5 ok 1 - this is a test
|
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/ |
H A D | thread_taint.t | 5 ok( !$INC{'threads.pm'}, 'Loading Test::More does not load threads.pm' );
|
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/t/lib/ |
H A D | MyTest.pm | 10 sub ok subroutine 12 $Test->ok(@_);
|
/openbsd-current/gnu/usr.bin/gcc/gcc/testsuite/gcc.c-torture/execute/ |
H A D | compare-1.c | 9 int ieq (int x, int y, int ok) argument 13 if (!ok) abort (); 16 if (ok) abort (); 20 if (!ok) abort (); 23 if (ok) abort (); 27 if (!ok) abort (); 30 if (ok) abort (); 34 if (!ok) abort (); 37 if (ok) abort (); 40 int ine (int x, int y, int ok) argument 50 ilt(int x, int y, int ok) argument 60 ile(int x, int y, int ok) argument 70 igt(int x, int y, int ok) argument 80 ige(int x, int y, int ok) argument [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/Scalar-List-Utils/t/ |
H A D | any-all.t | 9 ok( (any { $_ == 1 } 1, 2, 3), 'any true' ); 10 ok( !(any { $_ == 1 } 2, 3, 4), 'any false' ); 11 ok( !(any { 1 }), 'any empty list' ); 13 ok( (all { $_ == 1 } 1, 1, 1), 'all true' ); 14 ok( !(all { $_ == 1 } 1, 2, 3), 'all false' ); 15 ok( (all { 1 }), 'all empty list' ); 17 ok( (notall { $_ == 1 } 1, 2, 3), 'notall true' ); 18 ok( !(notall { $_ == 1 } 1, 1, 1), 'notall false' ); 19 ok( !(notall { 1 }), 'notall empty list' ); 21 ok( (non [all...] |
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/Builder/ |
H A D | current_test_without_plan.t | 10 ok 1 11 ok 2 14 $tb->ok(1, "Third test");
|
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/subtest/ |
H A D | plan.t | 24 ok defined &subtest, 'subtest() should be exported to our namespace'; 29 ok 1, 'planned subtests should work'; 30 ok 1, '... and support more than one test'; 34 ok 1, 'no_plan subtests should work'; 35 ok 1, '... and support more than one test'; 36 ok 1, '... no matter how many tests are run'; 39 ok 1, 'subtests with an implicit done testing should work'; 40 ok 1, '... and support more than one test'; 41 ok 1, '... no matter how many tests are run'; 44 ok [all...] |
/openbsd-current/gnu/usr.bin/perl/t/mro/ |
H A D | isa_aliases_utf8.t | 18 ok '��������'->isa("���������"), 20 ok '���������'->isa("���������"), 22 ok !��������->isa("���"), 24 ok !���������->isa("���"), 30 ok '��������'->isa("���������"), 32 ok '���������'->isa("���������"), 34 ok !��������->isa("���"), 36 ok !���������->isa("���"), 43 ok '���'->isa("���������"), 45 ok '���' [all...] |
/openbsd-current/gnu/usr.bin/perl/ext/XS-APItest/t/ |
H A D | boolean.t | 11 ok(SvIsBOOL(!!0), 'false is boolean'); 12 ok(SvIsBOOL(!!1), 'true is boolean'); 14 ok(!SvIsBOOL(0), '0 is not boolean'); 15 ok(!SvIsBOOL(1), '1 is not boolean'); 16 ok(!SvIsBOOL(""), '"" is not boolean'); 24 ok(SvIsBOOL($falsevar), 'false var is boolean'); 25 ok(SvIsBOOL($truevar), 'true var is boolean'); 30 ok(!SvIsBOOL($str), 'stringified true is not boolean'); 31 ok(!SvIsBOOL($num), 'numified true is not boolean'); 33 ok(SvIsBOO [all...] |
/openbsd-current/gnu/usr.bin/perl/ext/re/t/ |
H A D | lexical_debug.t | 24 ok( $out =~ /EXACT <foo>/, "Expect 'foo'" ); 25 ok( $out !~ /EXACT <bar>/, "No 'bar'" ); 26 ok( $out =~ /EXACT <baz>/, "Expect 'baz'" ); 27 ok( $out !~ /EXACT <bop>/, "No 'bop'" ); 28 ok( $out =~ /EXACT <boq>/, "Expect 'boq'" ); 29 ok( $out !~ /EXACT <bor>/, "No 'bor'" ); 30 ok( $out =~ /EXACT <fip>/, "Expect 'fip'" ); 31 ok( $out !~ /EXACT <fop>/, "No 'baz'" ); 32 ok( $out =~ /<liz>/, "Got 'liz'" ); # in a TRIE so no EXACT 33 ok( [all...] |