/dports/textproc/R-cran-utf8/utf8/src/utf8lite/tests/ |
H A D | check_unicode.c | 239 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 D | Inflate.pm | 15 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 D | 23_unicode.t | 64 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 D | 14-utf8.t | 17 *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 D | wide.t | 38 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 D | 05_composite_downgrade.t | 54 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 D | Compat5006.pm | 13 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 D | Compat5006.pm | 19 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 D | PP56.pm | 11 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 D | PP5005.pm | 17 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 D | PP56.pm | 11 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 D | PP5005.pm | 17 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 D | 41Unicode.t | 32 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 D | 47_xml_deref_utf8.t | 60 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 D | 34_utf8_flag.t | 38 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 D | 41_utf8_flag.t | 51 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 D | PP56.pm | 11 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 D | unicode.t | 32 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 D | unicode.t | 35 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 D | unicode.t | 32 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 D | unicode.t | 35 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 D | unicode.t | 35 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 D | 14utf8.t | 38 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 D | utf8.t | 70 !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 D | 12utf8.t | 34 $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 …]
|