| Commit | Line | Data |
|---|
| 52d2e0f4 |
1 | use encoding 'euc-jp'; |
| 2 | use Test::More tests => 1; |
| 3 | |
| 4 | my @a; |
| 5 | |
| 6 | while (<DATA>) { |
| 7 | chomp; |
| 8 | tr/¤¡-¤ó¥¡-¥ó/¥¡-¥ó¤¡-¤ó/; |
| 9 | push @a, $_; |
| 10 | } |
| 11 | |
| 12 | SKIP: { |
| 13 | skip("pre-5.8.1 does not do utf8 DATA", 1) if $] < 5.008001; |
| 14 | ok(@a == 3 && |
| 15 | $a[0] eq "¥³¥ì¥ÏDATA¤Õ¤¡¤¤¤ë¤Ï¤ó¤É¤ë¥Î¤Æ¤¹¤È¥Ç¥¹¡£" && |
| 16 | $a[1] eq "ÆüËܸ쥬¥Á¥ã¥ó¥ÈÊÑ´¹¥Ç¥¥ë¥«" && |
| 17 | $a[2] eq "¥É¥¦¥«¥Î¤Æ¤¹¤È¥ò¥·¥Æ¥¤¥Þ¥¹¡£", |
| 18 | "utf8 (euc-jp) DATA") |
| 19 | } |
| 20 | |
| 21 | __DATA__ |
| 22 | ¤³¤ì¤ÏDATA¥Õ¥¡¥¤¥ë¥Ï¥ó¥É¥ë¤Î¥Æ¥¹¥È¤Ç¤¹¡£ |
| 23 | ÆüËܸ줬¤Á¤ã¤ó¤ÈÊÑ´¹¤Ç¤¤ë¤« |
| 24 | ¤É¤¦¤«¤Î¥Æ¥¹¥È¤ò¤·¤Æ¤¤¤Þ¤¹¡£ |
projects / p5sagit/p5-mst-13.2.git / blame