ext/Encode/t/enc_data.t

   1 # $Id: enc_data.t,v 2.0 2004/05/16 20:55:18 dankogai Exp $
   2
   3 BEGIN {
   4     require Config; import Config;
   5     if ($Config{'extensions'} !~ /\bEncode\b/) {
   6       print "1..0 # Skip: Encode was not built\n";
   7       exit 0;
   8     }
   9     unless (find PerlIO::Layer 'perlio') {
  10         print "1..0 # Skip: PerlIO was not built\n";
  11         exit 0;
  12     }
  13     if (ord("A") == 193) {
  14         print "1..0 # encoding pragma does not support EBCDIC platforms\n";
  15         exit(0);
  16     }
  17     if ($] <= 5.008 and !$Config{perl_patchlevel}){
  18         print "1..0 # Skip: Perl 5.8.1 or later required\n";
  19         exit 0;
  20     }
  21 }
  22
  23
  24 use strict;
  25 use encoding 'euc-jp';
  26 use Test::More tests => 4;
  27
  28 my @a;
  29
  30 while (<DATA>) {
  31   chomp;
  32   tr/¤¡-¤ó¥¡-¥ó/¥¡-¥ó¤¡-¤ó/;
  33   push @a, $_;
  34 }
  35
  36 is(scalar @a, 3);
  37 is($a[0], "¥³¥ì¥ÏDATA¤Õ¤¡¤¤¤ë¤Ï¤ó¤É¤ë¥Î¤Æ¤¹¤È¥Ç¥¹¡£");
  38 is($a[1], "ÆüËÜ¸ì¥¬¥Á¥ã¥ó¥ÈÊÑ´¹¥Ç¥¥ë¥«");
  39 is($a[2], "¥É¥¦¥«¥Î¤Æ¤¹¤È¥ò¥·¥Æ¥¤¥Þ¥¹¡£");
  40
  41 __DATA__
  42 ¤³¤ì¤ÏDATA¥Õ¥¡¥¤¥ë¥Ï¥ó¥É¥ë¤Î¥Æ¥¹¥È¤Ç¤¹¡£
  43 ÆüËÜ¸ì¤¬¤Á¤ã¤ó¤ÈÊÑ´¹¤Ç¤¤ë¤«
  44 ¤É¤¦¤«¤Î¥Æ¥¹¥È¤ò¤·¤Æ¤¤¤Þ¤¹¡£