ext/PerlIO/t/encoding.t

   1 print "1..8\n";
   2
   3 my $grk = "grk$$";
   4 my $utf = "utf$$";
   5
   6 if (open(GRK, ">$grk")) {
   7     # alpha beta gamma in ISO 8859-7
   8     print GRK "\xe1\xe2\xe3";
   9     close GRK;
  10 }
  11
  12 {
  13     use Encode;
  14     open(my $i,'<:encoding(iso-8859-7)',$grk);
  15     print "ok 1\n";
  16     open(my $o,'>:utf8',$utf);
  17     print "ok 2\n";
  18     print $o readline($i);
  19     print "ok 3\n";
  20     close($o);
  21     close($i);
  22 }
  23
  24 if (open(UTF, "<$utf")) {
  25     # alpha beta gamma in UTF-8 Unicode (0x3b1 0x3b2 0x3b3)
  26     print "not " unless <UTF> eq "\xce\xb1\xce\xb2\xce\xb3";
  27     print "ok 4\n";
  28     close $grk;
  29 }
  30
  31 {
  32     use Encode;
  33     open(my $i,'<:utf8',$utf);
  34     print "ok 5\n";
  35     open(my $o,'>:encoding(iso-8859-7)',$grk);
  36     print "ok 6\n";
  37     print $o readline($i);
  38     print "ok 7\n";
  39     close($o);
  40     close($i);
  41 }
  42
  43 if (open(GRK, "<$grk")) {
  44     print "not " unless <GRK> eq "\xe1\xe2\xe3";
  45     print "ok 8\n";
  46     close $grk;
  47 }
  48
  49 END {
  50     unlink($grk, $utf);
  51 }