Commit | Line | Data |
---|---|---|
18cfa0e3 | 1 | # $Id: enc_data.t,v 2.7 2023/11/10 01:10:50 dankogai Exp dankogai $ |
05ef2f67 JH |
2 | |
3 | BEGIN { | |
18cfa0e3 | 4 | require Config; Config->import(); |
05ef2f67 JH |
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') { | |
d1256cb1 RGS |
10 | print "1..0 # Skip: PerlIO was not built\n"; |
11 | exit 0; | |
05ef2f67 JH |
12 | } |
13 | if (ord("A") == 193) { | |
15f5e486 | 14 | print "1..0 # Skip: encoding pragma does not support EBCDIC platforms\n"; |
d1256cb1 | 15 | exit(0); |
05ef2f67 | 16 | } |
15f5e486 | 17 | if ($] >= 5.025 and !$Config{usecperl}) { |
ab5cf2ea | 18 | print "1..0 # Skip: encoding pragma not supported in Perl 5.25 or later\n"; |
a15a3d9b FC |
19 | exit(0); |
20 | } | |
05ef2f67 | 21 | if ($] <= 5.008 and !$Config{perl_patchlevel}){ |
d1256cb1 RGS |
22 | print "1..0 # Skip: Perl 5.8.1 or later required\n"; |
23 | exit 0; | |
05ef2f67 JH |
24 | } |
25 | } | |
26 | ||
27 | ||
28 | use strict; | |
64a9a3c0 | 29 | no warnings "deprecated"; |
52d2e0f4 | 30 | use encoding 'euc-jp'; |
05ef2f67 | 31 | use Test::More tests => 4; |
52d2e0f4 JH |
32 | |
33 | my @a; | |
34 | ||
35 | while (<DATA>) { | |
36 | chomp; | |
37 | tr/¤¡-¤ó¥¡-¥ó/¥¡-¥ó¤¡-¤ó/; | |
38 | push @a, $_; | |
39 | } | |
40 | ||
05ef2f67 JH |
41 | is(scalar @a, 3); |
42 | is($a[0], "¥³¥ì¥ÏDATA¤Õ¤¡¤¤¤ë¤Ï¤ó¤É¤ë¥Î¤Æ¤¹¤È¥Ç¥¹¡£"); | |
43 | is($a[1], "ÆüËܸ쥬¥Á¥ã¥ó¥ÈÊÑ´¹¥Ç¥¥ë¥«"); | |
44 | is($a[2], "¥É¥¦¥«¥Î¤Æ¤¹¤È¥ò¥·¥Æ¥¤¥Þ¥¹¡£"); | |
52d2e0f4 JH |
45 | |
46 | __DATA__ | |
47 | ¤³¤ì¤ÏDATA¥Õ¥¡¥¤¥ë¥Ï¥ó¥É¥ë¤Î¥Æ¥¹¥È¤Ç¤¹¡£ | |
48 | ÆüËܸ줬¤Á¤ã¤ó¤ÈÊÑ´¹¤Ç¤¤ë¤« | |
49 | ¤É¤¦¤«¤Î¥Æ¥¹¥È¤ò¤·¤Æ¤¤¤Þ¤¹¡£ |