Commit | Line | Data |
0f29a567 |
1 | # $Id: enc_module.t,v 1.3 2003/03/09 20:07:37 dankogai Exp dankogai $ |
6be7c101 |
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 | } |
05ef2f67 |
13 | if (defined ${^UNICODE} and ${^UNICODE} != 0){ |
14 | print "1..0 # Skip: \${^UNICODE} == ${^UNICODE}\n"; |
15 | exit 0; |
16 | } |
6be7c101 |
17 | if (ord("A") == 193) { |
18 | print "1..0 # encoding pragma does not support EBCDIC platforms\n"; |
19 | exit(0); |
20 | } |
21 | } |
0f29a567 |
22 | use lib qw(t ext/Encode/t ../ext/Encode/t); # latter 2 for perl core |
6be7c101 |
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; |
6be7c101 |
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>){ |
0afd3698 |
52 | s/\r?\n\z//; |
6be7c101 |
53 | is ($cmp[$i++], $_, "encoding vs. STDIN - $i"); |
54 | } |
55 | |
56 | __END__ |
57 | |