ext/Encode/t/enc_module.t

   1 # $Id: enc_module.t,v 1.3 2003/03/09 20:07:37 dankogai Exp dankogai $
   2 # This file is in euc-jp
   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 (defined ${^UNICODE} and ${^UNICODE} != 0){
  14         print "1..0 # Skip: \${^UNICODE} == ${^UNICODE}\n";
  15         exit 0;
  16     }
  17     if (ord("A") == 193) {
  18         print "1..0 # encoding pragma does not support EBCDIC platforms\n";
  19         exit(0);
  20     }
  21 }
  22 use lib qw(t ext/Encode/t ../ext/Encode/t); # latter 2 for perl core
  23 use Mod_EUCJP;
  24 use encoding "euc-jp";
  25 use Test::More tests => 3;
  26 use File::Basename;
  27 use File::Spec;
  28 use File::Compare qw(compare_text);
  29
  30 my $dir = dirname(__FILE__);
  31 my $file0 = File::Spec->catfile($dir,"enc_module.enc");
  32 my $file1 = File::Spec->catfile($dir,"$$.enc");
  33
  34 my $obj = Mod_EUCJP->new;
  35 local $SIG{__WARN__} = sub{}; # to silence reopening STD(IN|OUT) w/o closing
  36
  37 open STDOUT, ">", $file1 or die "$file1:$!";
  38 print $obj->str, "\n";
  39 $obj->set("¥Æ¥¹¥ÈÊ¸»úÎó");
  40 print $obj->str, "\n";
  41 close STDOUT;
  42
  43 my $cmp = compare_text($file0, $file1);
  44 is($cmp, 0, "encoding vs. STDOUT");
  45 unlink $file1 unless $cmp;
  46
  47 my @cmp = qw/½é´üÊ¸»úÎó ¥Æ¥¹¥ÈÊ¸»úÎó/;
  48 open STDIN, "<", $file0 or die "$file0:$!";
  49 $obj = Mod_EUCJP->new;
  50 my $i = 0;
  51 while(<STDIN>){
  52     chomp;
  53     is ($cmp[$i++], $_, "encoding vs. STDIN - $i");
  54 }
  55
  56 __END__
  57