| /openbsd/src/gnu/usr.bin/perl/t/uni/ |
| 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("\xE1" =~ /\xC1/i, '\xE1 to /\xC1/i');
[all …]
|
| 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("\xE1" =~ /\xC1/i, '\xE1 to /\xC1/i');
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Win32API-File/t/ |
| D | file.t | 65 $ok= ! $h1 && Win32API::File::_fileLastError() == 2; # could not find the file
66 $ok or print "# ","".fileLastError(),"\n";
67 print $ok ? "" : "not ", "ok ", ++$test, "\n"; # ok 2
68 if( ! $ok ) { CloseHandle($h1); unlink("ReadOnly.txt"); }
70 $ok= $h1= createFile( "ReadOnly.txt", "wcn", { Attributes=>"r" } );
71 $ok or print "# ",fileLastError(),"\n";
72 print $ok ? "" : "not ", "ok ", ++$test, "\n"; # ok 3
74 $ok= WriteFile( $h1, "Original text\n", 0, [], [] );
75 $ok or print "# ",fileLastError(),"\n";
76 print $ok ? "" : "not ", "ok ", ++$test, "\n"; # ok 4
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/t/op/ |
| 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 = 0;
[all …]
|
| D | switch.t | 61 my $ok;
63 when(2) { $ok = 'two'; }
64 when(3) { $ok = 'three'; }
65 when(4) { $ok = 'four'; }
66 default { $ok = 'd'; }
68 is($ok, 'three', "numeric comparison");
72 my $ok;
75 when(2) { $ok = 'two'; }
76 when(3) { $ok = 'three'; }
77 when(4) { $ok = 'four'; }
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/Unicode-Collate/t/ |
| D | loc_hu.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objHu->getlocale, 'hu');
38 ok($objHu->lt("c", "cs"));
39 ok($objHu->lt("cz","cs"));
40 ok($objHu->gt("d", "cs"));
41 ok($objHu->lt("d", "dz"));
42 ok($objHu->gt("dz","d\x{292}"));
43 ok($objHu->lt("dz", "dzs"));
[all …]
|
| D | loc_ja.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objJa->getlocale, 'ja');
39 ok($objJa->lt("\x{4E9C}", "\x{5516}"));
40 ok($objJa->lt("\x{5516}", "\x{5A03}"));
41 ok($objJa->lt("\x{5A03}", "\x{963F}"));
42 ok($objJa->lt("\x{963F}", "\x{54C0}"));
43 ok($objJa->lt("\x{54C0}", "\x{611B}"));
44 ok($objJa->lt("\x{611B}", "\x{6328}"));
[all …]
|
| D | loc_cjkc.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objDefault->getlocale, 'default');
39 ok($objB->getlocale, 'zh__big5han');
44 ok($objG->getlocale, 'zh__gb2312han');
49 ok($objJ->getlocale, 'ja');
54 ok($objK->getlocale, 'ko');
59 ok($objP->getlocale, 'zh__pinyin');
64 ok($objS->getlocale, 'zh__stroke');
[all …]
|
| D | loc_sq.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objSq->getlocale, 'sq');
38 ok($objSq->lt("c", "c\x{327}"));
39 ok($objSq->lt("cz","c\x{327}"));
40 ok($objSq->gt("d", "c\x{327}"));
41 ok($objSq->lt("d", "dh"));
42 ok($objSq->lt("dz","dh"));
43 ok($objSq->gt("e", "dh"));
[all …]
|
| D | loc_kk.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objKk->getlocale, 'kk');
38 ok($objKk->lt("\x{430}z", "\x{4d9}"));
39 ok($objKk->lt("\x{4d9}z", "\x{431}"));
40 ok($objKk->lt("\x{431}z", "\x{432}"));
41 ok($objKk->lt("\x{432}z", "\x{433}"));
42 ok($objKk->lt("\x{433}z", "\x{493}"));
43 ok($objKk->lt("\x{493}z", "\x{434}"));
[all …]
|
| D | loc_cjk.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objDefault->getlocale, 'default');
39 ok($objZhP->getlocale, 'zh__pinyin');
44 ok($objZhS->getlocale, 'zh__stroke');
49 ok($objZhZ->getlocale, 'zh__zhuyin');
55 ok($obj->cmp("\x{3220}", "\(\x{4E00}\)"), $r);
56 ok($obj->cmp("\x{3226}", "\(\x{4E03}\)"), $r);
57 ok($obj->cmp("\x{3222}", "\(\x{4E09}\)"), $r);
[all …]
|
| D | loc_ig.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objIg->getlocale, 'ig');
38 ok($objIg->lt("b", "ch"));
39 ok($objIg->lt("bz","ch"));
40 ok($objIg->gt("c", "ch"));
41 ok($objIg->lt("g", "gb"));
42 ok($objIg->lt("gz","gb"));
43 ok($objIg->lt("gb","gh"));
[all …]
|
| D | loc_uk.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objUk->getlocale, 'uk');
38 ok($objUk->lt("\x{430}z", "\x{431}"));
39 ok($objUk->lt("\x{431}z", "\x{432}"));
40 ok($objUk->lt("\x{432}z", "\x{433}"));
41 ok($objUk->lt("\x{433}z", "\x{491}"));
42 ok($objUk->lt("\x{491}z", "\x{434}"));
43 ok($objUk->lt("\x{434}z", "\x{435}"));
[all …]
|
| D | loc_cyrl.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objNoSuppress->getlocale, 'default');
38 ok($objNoSuppress->gt("\x{439}", "\x{438}")); # not suppressed
39 ok($objNoSuppress->gt("\x{419}", "\x{418}")); # not suppressed
43 ok($objNoSuppress->eq("\x{4D1}", "\x{430}"));
44 ok($objNoSuppress->eq("\x{4D0}", "\x{410}"));
45 ok($objNoSuppress->eq("\x{4D3}", "\x{430}"));
46 ok($objNoSuppress->eq("\x{4D2}", "\x{410}"));
[all …]
|
| D | loc_cu.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objCu->getlocale, 'cu');
56 ok($objCu->eq("a$sec[$i-1]", "a$sec[$i]"));
64 ok($objCu->lt("a$sec[$i-1]", "a$sec[$i]"));
67 ok($objCu->gt("a\x{309A}", "a\x{3099}")); # KANA VOICED and SEMI-VOICED
70 ok($objCu->lt("a\x{309A}b$sec[$i-1]", "a\x{3099}b$sec[$i]"));
78 ok($objCu->lt("a$sec[$i-1]", "a$sec[$i]"));
81 ok($objCu->gt("a\x{309A}", "a\x{3099}")); # KANA VOICED and SEMI-VOICED
[all …]
|
| D | loc_mk.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objMk->getlocale, 'mk');
38 ok($objMk->lt("\x{430}z", "\x{431}"));
39 ok($objMk->lt("\x{431}z", "\x{432}"));
40 ok($objMk->lt("\x{432}z", "\x{433}"));
41 ok($objMk->lt("\x{433}z", "\x{434}"));
42 ok($objMk->lt("\x{434}z", "\x{503}"));
43 ok($objMk->lt("\x{503}z", "\x{453}"));
[all …]
|
| D | loc_zh.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objZh->getlocale, 'zh');
38 ok($objZh->eq("a\x{304}", "a\x{301}"));
39 ok($objZh->eq("a\x{301}", "a\x{30C}"));
40 ok($objZh->eq("a\x{30C}", "a\x{300}"));
41 ok($objZh->eq("a\x{300}", "a"));
42 ok($objZh->eq("e\x{304}", "e\x{301}"));
43 ok($objZh->eq("e\x{301}", "e\x{30C}"));
[all …]
|
| D | loc_se.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
41 ok($objSe->getlocale, 'se');
45 ok($objSe->lt("a", "a\x{301}"));
46 ok($objSe->gt("b", "a\x{301}"));
47 ok($objSe->lt("c", "c\x{30C}"));
48 ok($objSe->lt("c\x{30C}", "\x{292}"));
49 ok($objSe->lt( "\x{292}", "\x{1EF}"));
50 ok($objSe->gt("d", "\x{1EF}"));
[all …]
|
| D | loc_mncy.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objMnCyrl->getlocale, 'default');
38 ok($objMnCyrl->lt("\x{430}z", "\x{431}"));
39 ok($objMnCyrl->lt("\x{431}z", "\x{432}"));
40 ok($objMnCyrl->lt("\x{432}z", "\x{433}"));
41 ok($objMnCyrl->lt("\x{433}z", "\x{434}"));
42 ok($objMnCyrl->lt("\x{434}z", "\x{435}"));
43 ok($objMnCyrl->lt("\x{435}z", "\x{436}"));
[all …]
|
| D | loc_ru.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objRu->getlocale, 'default'); # no tailoring since 1.17
38 ok($objRu->lt("\x{430}z", "\x{431}"));
39 ok($objRu->lt("\x{431}z", "\x{432}"));
40 ok($objRu->lt("\x{432}z", "\x{433}"));
41 ok($objRu->lt("\x{433}z", "\x{434}"));
42 ok($objRu->lt("\x{434}z", "\x{435}"));
43 ok($objRu->lt("\x{435}z", "\x{436}"));
[all …]
|
| D | loc_ugcy.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objUgCyrl->getlocale, 'ug_Cyrl');
38 ok($objUgCyrl->lt("\x{430}z", "\x{431}"));
39 ok($objUgCyrl->lt("\x{431}z", "\x{432}"));
40 ok($objUgCyrl->lt("\x{432}z", "\x{433}"));
41 ok($objUgCyrl->lt("\x{433}z", "\x{493}"));
42 ok($objUgCyrl->lt("\x{493}z", "\x{434}"));
43 ok($objUgCyrl->lt("\x{434}z", "\x{435}"));
[all …]
|
| D | loc_be.t | 13 sub ok ($;$) {
19 print $p ? "ok" : "not ok", ' ', ++$count, "\n";
24 ok(1);
34 ok($objBe->getlocale, 'be');
38 ok($objBe->lt("\x{430}z", "\x{431}"));
39 ok($objBe->lt("\x{431}z", "\x{432}"));
40 ok($objBe->lt("\x{432}z", "\x{433}"));
41 ok($objBe->lt("\x{433}z", "\x{434}"));
42 ok($objBe->lt("\x{434}z", "\x{435}"));
43 ok($objBe->lt("\x{435}z", "\x{451}"));
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/os2/OS2/OS2-Process/t/ |
| D | os2_process.t | 38 ok(@l == 11, 'all the fields of the process_entry() are there');
41 ok( ($l[9] == 1 or $l[9] == 2), 'we are FS or Windowed-VIO');
59 ok($t, 'got session title');
60 ok($wint, 'got titlebar text');
63 ok(Title_set($newt), 'successfully set Title');
67 ok(Title_set $t, 'successfully set Title back');
72 ok(bothTitle_set($newt), 'successfully set both titles via Win* API');
75 ok(bothTitle_set($t), 'successfully reset both titles via Win* API');
80 ok(winTitle_set($newt), 'successfully set titlebar title via Win* API');
83 ok(winTitle_set($wint), 'successfully reset titlebar title via Win* API');
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/dist/Unicode-Normalize/t/ |
| D | func.t | 15 sub ok { Unicode::Normalize::ok(\$count, @_) }
19 ok(1);
32 ok(getCombinClass( to_native(0)), 0);
33 ok(getCombinClass(to_native(41)), 0);
34 ok(getCombinClass(to_native(65)), 0);
35 ok(getCombinClass( 768), 230);
36 ok(getCombinClass(1809), 36);
38 ok(getCanon(to_native( 0)), undef);
39 ok(getCanon(to_native(0x29)), undef);
40 ok(getCanon(to_native(0x41)), undef);
[all …]
|
| /openbsd/src/gnu/usr.bin/perl/cpan/ExtUtils-Install/t/ |
| D | Installapi2.t | 33 ok( setup_recurs(), 'setup' );
35 ok( chdir File::Spec->updir );
36 ok( teardown_recurs(), 'teardown' );
50 ok( -d 'blib/lib', 'pm_to_blib created blib dir' );
51 ok( -r 'blib/lib/Big/Dummy.pm', ' copied .pm file' );
52 ok( -r 'blib/lib/auto', ' created autosplit dir' );
58 ok( -d 'blib/lib', 'second run, blib dir still there' );
59 ok( -r 'blib/lib/Big/Dummy.pm', ' .pm file still there' );
60 ok( -r 'blib/lib/auto', ' autosplit still there' );
69 ok( ! -d 'install-test/lib/perl', 'install made dir (dry run)');
[all …]
|