Searched refs:ok (Results 1 - 25 of 1443) sorted by relevance

1234567891011>>

/openbsd-current/gnu/usr.bin/perl/t/uni/
H A Dlatin2.t19 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 Dgreek.t17 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 Dlength.t5 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 Dsource.pl5 ok 1 - source.pl
H A Dsource.t5 ok 1 - source.t
H A Dtest.tap7 ok 1 - source.pl
H A Dharness_badtap5 ok 1 - this is a test
6 not ok 2 - this is another test
H A Dharness_failure5 ok 1 - this is a test
6 not ok 2 - this is another test
H A Dharness5 ok 1 - this is a test
H A Dharness_directives5 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 Dmkdir.t30 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 Dloopctl.t41 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 Dfh.t15 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 D20020607-2.c12 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 Dpvbm.t35 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 Dperl_source5 ok 1 - this is a test
/openbsd-current/gnu/usr.bin/perl/cpan/Test-Simple/t/Legacy/
H A Dthread_taint.t5 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 DMyTest.pm10 sub ok subroutine
12 $Test->ok(@_);
/openbsd-current/gnu/usr.bin/gcc/gcc/testsuite/gcc.c-torture/execute/
H A Dcompare-1.c9 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 Dany-all.t9 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 Dcurrent_test_without_plan.t10 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 Dplan.t24 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 Disa_aliases_utf8.t18 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 Dboolean.t11 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 Dlexical_debug.t24 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...]

Completed in 152 milliseconds

1234567891011>>