t/lib/warnings/utf8

   1
   2   utf8.c AOK
   3
   4      [utf8_to_uv]
   5      Malformed UTF-8 character
   6         my $a = ord "\x80" ;
   7
   8      Malformed UTF-8 character
   9         my $a = ord "\xf080" ;
  10      <<<<<< this warning can't be easily triggered from perl anymore
  11
  12      [utf16_to_utf8]
  13      Malformed UTF-16 surrogate
  14      <<<<<< Add a test when somethig actually calls utf16_to_utf8
  15
  16 __END__
  17 # utf8.c [utf8_to_uv] -W
  18 BEGIN {
  19     if (ord('A') == 193) {
  20         print "SKIPPED\n# ebcdic platforms do not generate Malformed UTF-8 warnings.";
  21         exit 0;
  22     }
  23 }
  24 use utf8 ;
  25 my $a = "snøstorm" ;
  26 {
  27     no warnings 'utf8' ;
  28     my $a = "snøstorm";
  29     use warnings 'utf8' ;
  30     my $a = "snøstorm";
  31 }
  32 EXPECT
  33 Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 9.
  34 Malformed UTF-8 character (unexpected non-continuation byte 0x73 after start byte 0xf8) at - line 14.
  35 ########
  36 use warnings 'utf8';
  37 my $surr = chr(0xD800);
  38 my $fff3 = chr(0xFFFE);
  39 my $ffff = chr(0xFFFF);
  40 no warnings 'utf8';
  41 $surr = chr(0xD800);
  42 $fffe = chr(0xFFFE);
  43 $ffff = chr(0xFFFF);
  44 EXPECT
  45 UTF-16 surrogate 0xd800 at - line 2.
  46 Unicode character 0xfffe is illegal at - line 3.
  47 Unicode character 0xffff is illegal at - line 4.
  48 ########