| Commit | Line | Data |
|---|
| 05ef2f67 |
1 | # $Id: enc_data.t,v 1.1 2003/03/09 17:47:32 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; |
| 52d2e0f4 |
25 | use encoding 'euc-jp'; |
| 05ef2f67 |
26 | use Test::More tests => 4; |
| 52d2e0f4 |
27 | |
| 28 | my @a; |
| 29 | |
| 30 | while (<DATA>) { |
| 31 | chomp; |
| 32 | tr/¤¡-¤ó¥¡-¥ó/¥¡-¥ó¤¡-¤ó/; |
| 33 | push @a, $_; |
| 34 | } |
| 35 | |
| 05ef2f67 |
36 | is(scalar @a, 3); |
| 37 | is($a[0], "¥³¥ì¥ÏDATA¤Õ¤¡¤¤¤ë¤Ï¤ó¤É¤ë¥Î¤Æ¤¹¤È¥Ç¥¹¡£"); |
| 38 | is($a[1], "ÆüËܸ쥬¥Á¥ã¥ó¥ÈÊÑ´¹¥Ç¥¥ë¥«"); |
| 39 | is($a[2], "¥É¥¦¥«¥Î¤Æ¤¹¤È¥ò¥·¥Æ¥¤¥Þ¥¹¡£"); |
| 52d2e0f4 |
40 | |
| 41 | __DATA__ |
| 42 | ¤³¤ì¤ÏDATA¥Õ¥¡¥¤¥ë¥Ï¥ó¥É¥ë¤Î¥Æ¥¹¥È¤Ç¤¹¡£ |
| 43 | ÆüËܸ줬¤Á¤ã¤ó¤ÈÊÑ´¹¤Ç¤¤ë¤« |
| 44 | ¤É¤¦¤«¤Î¥Æ¥¹¥È¤ò¤·¤Æ¤¤¤Þ¤¹¡£ |
projects / p5sagit/p5-mst-13.2.git / blame