Home
last modified time | relevance | path

Searched refs:is_utf8 (Results 1 – 25 of 1772) sorted by relevance

12345678910>>...71

/dports/textproc/R-cran-utf8/utf8/src/utf8lite/tests/
H A Dcheck_unicode.c239 ck_assert(is_utf8("\x00", 1)); in START_TEST()
240 ck_assert(is_utf8("\x01", 1)); in START_TEST()
241 ck_assert(is_utf8("\x7E", 1)); in START_TEST()
242 ck_assert(is_utf8("\x7F", 1)); in START_TEST()
249 ck_assert(!is_utf8("\x80", 1)); in START_TEST()
250 ck_assert(!is_utf8("\xBF", 1)); in START_TEST()
251 ck_assert(!is_utf8("\xC0", 1)); in START_TEST()
252 ck_assert(!is_utf8("\xE0", 1)); in START_TEST()
253 ck_assert(!is_utf8("\xF0", 1)); in START_TEST()
254 ck_assert(!is_utf8("\xF8", 1)); in START_TEST()
[all …]
/dports/devel/p5-Data-Model/Data-Model-0.00008/t/lib/Mock/Tests/
H A DInflate.pm15 ok Encode::is_utf8( $set->name ), 'is_utf8';
16 ok Encode::is_utf8( $set->nickname ), 'is_utf8';
29 ok Encode::is_utf8( $get->name ), 'is_utf8';
30 ok Encode::is_utf8( $get->nickname ), 'is_utf8';
45 ok Encode::is_utf8( $set->name ), 'is_utf8';
46 ok !Encode::is_utf8( $set->nickname ), 'is_utf8';
60 ok Encode::is_utf8( $get->name ), 'is_utf8';
61 ok !Encode::is_utf8( $get->nickname ), 'is_utf8';
76 ok Encode::is_utf8( $set->name ), 'is_utf8';
89 ok Encode::is_utf8( $get->name ), 'is_utf8';
[all …]
/dports/databases/p5-ORLite/ORLite-1.98/t/
H A D23_unicode.t64 ok( ! utf8::is_utf8($smiley->id), '->id not utf8' );
65 ok( ! utf8::is_utf8($smiley->one), '->one not utf8' );
66 ok( ! utf8::is_utf8($smiley->two), '->two not utf8' );
67 ok( utf8::is_utf8($smiley->name), '->name is utf8' );
68 ok( utf8::is_utf8($smiley->text), '->text is utf8' );
87 ok( ! utf8::is_utf8($smiley1->id), '->id not utf8' );
88 ok( ! utf8::is_utf8($smiley1->one), '->one not utf8' );
89 ok( ! utf8::is_utf8($smiley1->two), '->two not utf8' );
93 ok( ! utf8::is_utf8($smiley2->id), '->id not utf8' );
94 ok( ! utf8::is_utf8($smiley2->one), '->one not utf8' );
[all …]
/dports/converters/p5-JSON1/JSON-1.15/t/
H A D14-utf8.t17 *utf8::is_utf8 = sub { Encode::is_utf8($_[0]); }
33 #ok(utf8::is_utf8($js), 'with UTF8');
37 ok(!utf8::is_utf8($js), 'without UTF8');
57 #ok(utf8::is_utf8($js), 'utf8 option');
75 #ok(utf8::is_utf8($js));
83 ok(utf8::is_utf8($obj->{foo}));
94 ok(!utf8::is_utf8($js), 'no UTF8');
107 ok( !utf8::is_utf8($obj->[0]) );
110 ok( utf8::is_utf8($obj->[0]) );
116 ok(! utf8::is_utf8($obj->{"あい"}) );
[all …]
/dports/textproc/p5-HTML-FormatExternal/HTML-FormatExternal-26/t/
H A Dwide.t38 utf8::is_utf8($str)
62 ok (utf8::is_utf8($html), "input is wide");
65 ok (utf8::is_utf8($text), "format_string() wide input gives wide output");
72 ok (! utf8::is_utf8($html), "input not wide");
75 ok (utf8::is_utf8($text), "format_string() output_wide forced on");
80 ok (utf8::is_utf8($html), "input is wide");
83 ok (! utf8::is_utf8($text), "format_string() output_wide forced off");
88 ok (utf8::is_utf8($html), "input is wide");
103 ok (! utf8::is_utf8($text), "format_file() output not wide");
107 ok (utf8::is_utf8($text), "format_file() output_wide forced on");
[all …]
/dports/converters/p5-Unicode-RecursiveDowngrade/Unicode-RecursiveDowngrade-0.04/t/
H A D05_composite_downgrade.t54 ok(utf8::is_utf8($elem), "is flagged variable");
60 ok(utf8::is_utf8($elem), "is flagged variable");
72 ok(utf8::is_utf8($dummy_hashref->$method()),
74 ok(utf8::is_utf8($dummy_arrayref->$method()),
87 ok(utf8::is_utf8($dummy_hashref->$method()->{$key}),
93 ok(utf8::is_utf8($elem), "is flagged variable");
96 ok(utf8::is_utf8($elem), "is flagged variable");
106 ok(! utf8::is_utf8($elem), "is unflagged variable");
112 ok(! utf8::is_utf8($elem), "is unflagged variable");
118 ok(! utf8::is_utf8($dummy_hashref->$method()),
[all …]
/dports/converters/p5-JSON/JSON-2.97001/lib/JSON/backportPP/
H A DCompat5006.pm13 sub utf8::is_utf8 {
28 return 1 unless ( utf8::is_utf8( $_[0] ) );
51 if ( utf8::is_utf8( $_[0] ) ) {
107 return !utf8::is_utf8($_[0]) ? unpack('C*', $_[0])
115 my $is_utf8;
133 $is_utf8 = 1 if (!defined $is_utf8);
136 $is_utf8 = 0 if (!defined $is_utf8);
137 if ($is_utf8) { # eventually, not utf8
143 return $is_utf8;
/dports/devel/p5-CPANPLUS/CPANPLUS-0.9912/inc/bundle/JSON/PP/
H A DCompat5006.pm19 sub utf8::is_utf8 {
34 return 1 unless ( utf8::is_utf8( $_[0] ) );
57 if ( utf8::is_utf8( $_[0] ) ) {
113 return !utf8::is_utf8($_[0]) ? unpack('C*', $_[0])
121 my $is_utf8;
139 $is_utf8 = 1 if (!defined $is_utf8);
142 $is_utf8 = 0 if (!defined $is_utf8);
143 if ($is_utf8) { # eventually, not utf8
149 return $is_utf8;
/dports/deskutils/plans/plans_8.2.1/JSON/
H A DPP56.pm11 sub utf8::is_utf8 {
26 return 1 unless ( utf8::is_utf8( ${$_[0]} ) );
49 if ( utf8::is_utf8( ${$_[0]} ) ) {
105 return !utf8::is_utf8($_[0]) ? unpack('C*', $_[0])
113 my $is_utf8;
131 $is_utf8 = 1 if (!defined $is_utf8);
134 $is_utf8 = 0 if (!defined $is_utf8);
135 if ($is_utf8) { # eventually, not utf8
141 return $is_utf8;
H A DPP5005.pm17 sub utf8::is_utf8 {
91 my $is_utf8;
109 $is_utf8 = 1 if (!defined $is_utf8);
112 $is_utf8 = 0 if (!defined $is_utf8);
113 if ($is_utf8) { # eventually, not utf8
119 return $is_utf8;
/dports/japanese/ajaxzip2-core/ajaxzip2/work/lib/JSON/
H A DPP56.pm11 sub utf8::is_utf8 {
26 return 1 unless ( utf8::is_utf8( ${$_[0]} ) );
49 if ( utf8::is_utf8( ${$_[0]} ) ) {
105 return !utf8::is_utf8($_[0]) ? unpack('C*', $_[0])
113 my $is_utf8;
131 $is_utf8 = 1 if (!defined $is_utf8);
134 $is_utf8 = 0 if (!defined $is_utf8);
135 if ($is_utf8) { # eventually, not utf8
141 return $is_utf8;
H A DPP5005.pm17 sub utf8::is_utf8 {
91 my $is_utf8;
109 $is_utf8 = 1 if (!defined $is_utf8);
112 $is_utf8 = 0 if (!defined $is_utf8);
113 if ($is_utf8) { # eventually, not utf8
119 return $is_utf8;
/dports/databases/p5-DBD-ODBC/DBD-ODBC-1.61/t/
H A D41Unicode.t32 utf8::is_utf8($data[0]) and die "Perl set UTF8 flag on non-unicode string constant";
33 utf8::is_utf8($data[1]) or die "Perl did not set UTF8 flag on unicode string constant";
34 utf8::is_utf8($data[2]) and die "Perl set UTF8 flag on non-unicode string constant";
35 utf8::is_utf8($data[3]) or die "Perl did not set UTF8 flag on unicode string constant";
131 my $info=sprintf("(index=%i, Unicode=%s)",$i,utf8::is_utf8($data[$i]) ? 'on' : 'off');
133 cmp_ok(utf8::is_utf8($nva),'>=',utf8::is_utf8($data[$i]),"utf8 flag $info col1");
136 cmp_ok(utf8::is_utf8($nvb),'>=',utf8::is_utf8($data[$i]),"utf8 flag $info col2");
139 cmp_ok(utf8::is_utf8($nvc),'>=',utf8::is_utf8($data[$i]),"utf8 flag $info col3");
/dports/textproc/p5-XML-TreePP/XML-TreePP-0.43/t/
H A D47_xml_deref_utf8.t60 next unless utf8::is_utf8($copy);
68 my $srcutf8 = utf8::is_utf8($srcxml);
134 # ok( utf8::is_utf8($root->{a}), "[$subject] is_utf8: a" );
135 # ok( utf8::is_utf8($root->{z}), "[$subject] is_utf8: z" );
136 ok( utf8::is_utf8($root->{c}), "[$subject] is_utf8: c" );
137 ok( utf8::is_utf8($root->{e}), "[$subject] is_utf8: e" );
138 ok( utf8::is_utf8($root->{n}), "[$subject] is_utf8: n" );
139 ok( utf8::is_utf8($root->{k}), "[$subject] is_utf8: k" );
154 ok( ! utf8::is_utf8($root->{a}), "[$subject] is_octets: a" );
155 ok( ! utf8::is_utf8($root->{z}), "[$subject] is_octets: z" );
[all …]
H A D34_utf8_flag.t38 ok( ! utf8::is_utf8($octxml), '[source] XML: octets' );
77 ok( utf8::is_utf8($xmlE), '[E] XML: string' );
78 ok( utf8::is_utf8($xmlF), '[F] XML: string' );
79 ok( utf8::is_utf8($xmlG), '[G] XML: string' );
80 ok( ! utf8::is_utf8($xmlH), '[H] XML: octets' );
93 ok( utf8::is_utf8($four), "[$name] 4: string" );
96 ok( utf8::is_utf8($five), "[$name] 5: string" );
99 ok( utf8::is_utf8($six), "[$name] 6: string" );
121 ok( ! utf8::is_utf8($four), "[$name] 4: octets" );
124 ok( ! utf8::is_utf8($five), "[$name] 5: octets" );
[all …]
/dports/textproc/p5-XML-FeedPP/XML-FeedPP-0.95/t/
H A D41_utf8_flag.t51 ok( ! utf8::is_utf8($itemA[0]->title), "is_octets: c" );
52 ok( ! utf8::is_utf8($itemA[1]->title), "is_octets: e" );
53 ok( ! utf8::is_utf8($itemA[2]->title), "is_octets: n" );
54 ok( ! utf8::is_utf8($itemA[3]->title), "is_octets: k" );
65 ok( utf8::is_utf8($itemB[0]->title), "is_utf8: c" );
66 ok( utf8::is_utf8($itemB[1]->title), "is_utf8: e" );
67 ok( utf8::is_utf8($itemB[2]->title), "is_utf8: n" );
68 ok( utf8::is_utf8($itemB[3]->title), "is_utf8: k" );
/dports/converters/p5-JSON1/JSON-1.15/lib/JSON/
H A DPP56.pm11 sub utf8::is_utf8 {
108 my $is_utf8;
126 $is_utf8 = 1 if (!defined $is_utf8);
127 if ($is_utf8) {
135 $is_utf8 = 0 if (!defined $is_utf8);
137 if ($is_utf8) { # eventually, not utf8
/dports/lang/perl5.30/perl-5.30.3/cpan/MIME-Base64/t/
H A Dunicode.t32 if (defined &utf8::is_utf8) {
34 ok(utf8::is_utf8($str));
36 ok(utf8::is_utf8($str));
38 ok(utf8::is_utf8($str));
40 ok(utf8::is_utf8($str));
43 ok(!utf8::is_utf8($str));
45 ok(!utf8::is_utf8($str));
48 skip("Missing is_utf8") for 1..9;
/dports/lang/perl5.34/perl-5.34.0/cpan/MIME-Base64/t/
H A Dunicode.t35 if (defined &utf8::is_utf8) {
37 ok(utf8::is_utf8($str));
39 ok(utf8::is_utf8($str));
41 ok(utf8::is_utf8($str));
43 ok(utf8::is_utf8($str));
46 ok(!utf8::is_utf8($str));
48 ok(!utf8::is_utf8($str));
51 skip("Missing is_utf8") for 1..9;
/dports/lang/perl5.32/perl-5.32.1/cpan/MIME-Base64/t/
H A Dunicode.t32 if (defined &utf8::is_utf8) {
34 ok(utf8::is_utf8($str));
36 ok(utf8::is_utf8($str));
38 ok(utf8::is_utf8($str));
40 ok(utf8::is_utf8($str));
43 ok(!utf8::is_utf8($str));
45 ok(!utf8::is_utf8($str));
48 skip("Missing is_utf8") for 1..9;
/dports/converters/p5-MIME-Base64/MIME-Base64-3.16/t/
H A Dunicode.t35 if (defined &utf8::is_utf8) {
37 ok(utf8::is_utf8($str));
39 ok(utf8::is_utf8($str));
41 ok(utf8::is_utf8($str));
43 ok(utf8::is_utf8($str));
46 ok(!utf8::is_utf8($str));
48 ok(!utf8::is_utf8($str));
51 skip("Missing is_utf8") for 1..9;
/dports/lang/perl5-devel/perl5-5.35.4-102-ge43d289c7c/cpan/MIME-Base64/t/
H A Dunicode.t35 if (defined &utf8::is_utf8) {
37 ok(utf8::is_utf8($str));
39 ok(utf8::is_utf8($str));
41 ok(utf8::is_utf8($str));
43 ok(utf8::is_utf8($str));
46 ok(!utf8::is_utf8($str));
48 ok(!utf8::is_utf8($str));
51 skip("Missing is_utf8") for 1..9;
/dports/databases/p5-DBI/DBI-1.643/t/
H A D14utf8.t38 ok is_utf8($col_names[1]);
39 ok !is_utf8($col_names[0]);
51 ok !is_utf8($col1);
55 ok is_utf8($col1);
62 ok !is_utf8($col1); # utf8 flag should have been reset
66 ok !is_utf8($col1); # utf8 flag should have been reset
69 ok 1 == grep { is_utf8($_) } keys %$hash;
/dports/databases/p5-DBD-Sybase/DBD-Sybase-1.16/t/
H A Dutf8.t70 !Encode::is_utf8( $rows->[0]{uv} ),
75 !Encode::is_utf8( $rows->[0]{ut} ),
103 Encode::is_utf8( $rows->[0]{uv} ),
108 Encode::is_utf8( $rows->[0]{ut} ),
122 !Encode::is_utf8( $rows->[0]{uv} ),
127 !Encode::is_utf8( $rows->[0]{ut} ),
163 Encode::is_utf8( $rows->[0]{uv} ),
168 Encode::is_utf8( $rows->[0]{ut} ),
/dports/textproc/p5-SGML-Parser-OpenSP/SGML-Parser-OpenSP-0.994/t/
H A D12utf8.t34 $s->{ok1}++ if Encode::is_utf8($e->{Name});
35 $s->{ok2}++ if Encode::is_utf8($e->{Name}, 1);
38 $s->{ok9}++ if Encode::is_utf8($k[0]);
39 $s->{oka}++ if Encode::is_utf8($k[0], 1);
40 $s->{okb}++ if Encode::is_utf8($e->{Attributes}{$k[0]}->{Name});
48 $s->{ok3}++ if Encode::is_utf8($e->{Name});
49 $s->{ok4}++ if Encode::is_utf8($e->{Name}, 1);
50 $s->{ok5}++ if Encode::is_utf8($s->{data});
51 $s->{ok6}++ if Encode::is_utf8($s->{data}, 1);
60 $s->{ok0}-- unless Encode::is_utf8($e->{Data});
[all …]

12345678910>>...71