Lines Matching refs:utf8
18 no utf8; # Ironic, no?
48 { use utf8; $b = uni_to_native("\xe4") }
54 { use utf8; ok($a ne $b) }
132 utf8::encode($char);
159 qq(no utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[2]<$/],
161 qq(use utf8; \$a = "$_->[1]"; \$b = show \$a), qr/^>$_->[0]<$/],
168 use utf8; %a = ("$malformed" =>"sterling");
214 qq(no utf8; my \$a = "$_->[1]"; my %h; \$h{\$a} = 1;
218 qq(use utf8; my \$a = "$_->[1]"; my %h; \$h{\$a} = 1;
227 qq(no utf8; my \$a = "$_->[1]"; my %h; \$h{"$_->[1]"} = 1;
231 qq(use utf8; my \$a = "$_->[1]"; my %h; \$h{"$_->[1]"} = 1;
240 qq(no utf8; my \$a = "$_->[1]"; my %h; %h = ("$_->[1]" => 1);
244 qq(use utf8; my \$a = "$_->[1]"; my %h; %h = ("$_->[1]" => 1);
253 qq(no utf8; my \$a = "$_->[1]"; my %i; \$i{\$a} = 1;; my %h = %i;
257 qq(use utf8; my \$a = "$_->[1]"; my %i; \$i{\$a} = 1; my %h = %i;
282 use utf8;
292 use utf8;
301 use utf8;
345 use utf8;
369 ok( utf8::valid($a), "utf8::valid basic");
370 ok( utf8::valid($b), "utf8::valid beyond");
371 ok( utf8::valid($c), "utf8::valid beyond");
372 ok( utf8::valid($d), "utf8::valid unicode");
374 ok(!utf8::is_utf8($a), "!utf8::is_utf8 basic");
375 ok(!utf8::is_utf8($b), "!utf8::is_utf8 beyond");
376 ok(!utf8::is_utf8($c), "!utf8::is_utf8 beyond");
377 ok( utf8::is_utf8($d), "utf8::is_utf8 unicode");
379 is(utf8::upgrade($a), 1, "utf8::upgrade basic");
381 is(utf8::upgrade($b), 1, "utf8::upgrade beyond");
383 is(utf8::upgrade($b), 2, "utf8::upgrade beyond");
385 is(utf8::upgrade($c), 2, "utf8::upgrade beyond");
386 is(utf8::upgrade($d), 2, "utf8::upgrade unicode");
393 ok( utf8::valid($a), "utf8::valid basic");
394 ok( utf8::valid($b), "utf8::valid beyond");
395 ok( utf8::valid($c), "utf8::valid beyond");
396 ok( utf8::valid($d), "utf8::valid unicode");
398 ok( utf8::is_utf8($a), "utf8::is_utf8 basic");
399 ok( utf8::is_utf8($b), "utf8::is_utf8 beyond");
400 ok( utf8::is_utf8($c), "utf8::is_utf8 beyond");
401 ok( utf8::is_utf8($d), "utf8::is_utf8 unicode");
403 is(utf8::downgrade($a), 1, "utf8::downgrade basic");
404 is(utf8::downgrade($b), 1, "utf8::downgrade beyond");
405 is(utf8::downgrade($c), 1, "utf8::downgrade beyond");
411 ok( utf8::valid($a), "utf8::valid basic");
412 ok( utf8::valid($b), "utf8::valid beyond");
413 ok( utf8::valid($c), "utf8::valid beyond");
415 ok(!utf8::is_utf8($a), "!utf8::is_utf8 basic");
416 ok(!utf8::is_utf8($b), "!utf8::is_utf8 beyond");
417 ok(!utf8::is_utf8($c), "!utf8::is_utf8 beyond");
419 utf8::encode($a);
420 utf8::encode($b);
421 utf8::encode($c);
422 utf8::encode($d);
433 ok(utf8::valid($a), "utf8::valid basic");
434 ok(utf8::valid($b), "utf8::valid beyond");
435 ok(utf8::valid($c), "utf8::valid beyond");
436 ok(utf8::valid($d), "utf8::valid unicode");
439 ok(!utf8::is_utf8($a), "!utf8::is_utf8 basic");
440 ok(!utf8::is_utf8($b), "!utf8::is_utf8 beyond");
441 ok(!utf8::is_utf8($c), "!utf8::is_utf8 beyond");
442 ok(!utf8::is_utf8($d), "!utf8::is_utf8 unicode");
444 utf8::decode($a);
445 utf8::decode($b);
446 utf8::decode($c);
447 utf8::decode($d);
454 ok(utf8::valid($a), "!utf8::valid basic");
455 ok(utf8::valid($b), "!utf8::valid beyond");
456 ok(utf8::valid($c), "!utf8::valid beyond");
457 ok(utf8::valid($d), " utf8::valid unicode");
459 ok(!utf8::is_utf8($a), "!utf8::is_utf8 basic");
461 ok( utf8::is_utf8(pack('U',0x0ff)), " utf8::is_utf8 beyond");
463 ok( utf8::is_utf8($b), " utf8::is_utf8 beyond"); # $b stays in UTF-8.
465 ok( utf8::is_utf8($c), " utf8::is_utf8 beyond"); # $c stays in UTF-8.
466 ok( utf8::is_utf8($d), " utf8::is_utf8 unicode");
470 eval {utf8::encode("�")};
481 utf8::decode($k1);
482 utf8::decode($k2);
493 eval { utf8::decode($name) };
505 utf8::decode($name);
519 'utf8::decode' => { error => qr/Can't use string .*? as a SCALAR ref/},
521 'utf8::downgrade' => { returns => "hlagh" },
522 'utf8::native_to_unicode' => { returns => "hlagh" },
523 'utf8::unicode_to_native' => { returns => "hlagh" },
550 utf8::upgrade($a);
554 utf8::upgrade($b);
560 qr/Undefined subroutine utf8::moo/, {stderr=>1},
566 ok(utf8::valid(chr(0x250)), "0x250");
567 ok(utf8::valid(chr(0x260)), "0x260");
568 ok(utf8::valid(chr(0x270)), "0x270");
569 ok(utf8::valid(chr(0x280)), "0x280");
573 use utf8;
574 ok( !utf8::is_utf8( "asd" ), "Wasteful format - qq{}" );
575 ok( !utf8::is_utf8( 'asd' ), "Wasteful format - q{}" );
576 ok( !utf8::is_utf8( qw(asd) ), "Wasteful format - qw{}" );
577 ok( !utf8::is_utf8( (asd => 1)[0] ), "Wasteful format - =>" );
578 ok( !utf8::is_utf8( -asd ), "Wasteful format - -word" );
580 ok( !utf8::is_utf8( asd:: ), "Wasteful format - word::" );
583 ok( !utf8::is_utf8( asd ), "Wasteful format - bareword" );
597 ok(utf8::valid(do {no warnings 'utf8'; chr $low}),
599 ok(utf8::valid(do {no warnings 'utf8'; chr $high}),
620 utf8::downgrade($s);
624 utf8::decode($s);
628 utf8::encode($s);
638 utf8::upgrade($s);
642 utf8::decode($s);
646 utf8::encode($s);
669 eval { utf8::upgrade($_) };
673 is(utf8::upgrade(undef), undef, "Returns undef for undef input"); # GH #20419
678 eval { utf8::downgrade($_) };