ext/Encode/t/enc_data.t

   1 use encoding 'euc-jp';
   2 use Test::More tests => 1;
   3
   4 my @a;
   5
   6 while (<DATA>) {
   7   chomp;
   8   tr/¤¡-¤ó¥¡-¥ó/¥¡-¥ó¤¡-¤ó/;
   9   push @a, $_;
  10 }
  11
  12 SKIP: {
  13   skip("pre-5.8.1 does not do utf8 DATA", 1) if $] < 5.008001;
  14   ok(@a == 3 &&
  15      $a[0] eq "¥³¥ì¥ÏDATA¤Õ¤¡¤¤¤ë¤Ï¤ó¤É¤ë¥Î¤Æ¤¹¤È¥Ç¥¹¡£" &&
  16      $a[1] eq "ÆüËÜ¸ì¥¬¥Á¥ã¥ó¥ÈÊÑ´¹¥Ç¥¥ë¥«" &&
  17      $a[2] eq "¥É¥¦¥«¥Î¤Æ¤¹¤È¥ò¥·¥Æ¥¤¥Þ¥¹¡£",
  18      "utf8 (euc-jp) DATA")
  19 }
  20
  21 __DATA__
  22 ¤³¤ì¤ÏDATA¥Õ¥¡¥¤¥ë¥Ï¥ó¥É¥ë¤Î¥Æ¥¹¥È¤Ç¤¹¡£
  23 ÆüËÜ¸ì¤¬¤Á¤ã¤ó¤ÈÊÑ´¹¤Ç¤¤ë¤«
  24 ¤É¤¦¤«¤Î¥Æ¥¹¥È¤ò¤·¤Æ¤¤¤Þ¤¹¡£