This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
[Patch 5.8.1 Encode.pm] v-strings deprecated
authorSADAHIRO Tomoyuki <BQW10602@nifty.com>
Tue, 5 Aug 2003 00:27:10 +0000 (09:27 +0900)
committerJarkko Hietaniemi <jhi@iki.fi>
Tue, 5 Aug 2003 05:15:16 +0000 (05:15 +0000)
Message-Id: <20030805002313.9880.BQW10602@nifty.com>

p4raw-id: //depot/perl@20483

ext/Encode/t/at-cn.t
ext/Encode/t/at-tw.t

index 6249fee..e1cb79a 100644 (file)
@@ -34,16 +34,16 @@ use_ok('Encode::CN');
 
 run_tests('Simplified Chinese only', {
     'utf'      => (
-12298.26131.32463.12299.31532.19968.21350.
-24406.26352.65306.
-22823.21705.20094.20803.65292.19975.29289.36164.22987.65292.
-20035.32479.22825.12290.
-20113.34892.38632.26045.65292.21697.29289.27969.24418.12290.
-22823.26126.22987.32456.65292.20845.20301.26102.25104.65292.
-26102.20056.20845.40857.20197.24481.22825.12290.
-20094.36947.21464.21270.65292.21508.27491.24615.21629.65292.
-20445.21512.22823.21644.65292.20035.21033.36126.12290.
-39318.20986.24246.29289.65292.19975.22269.21688.23425.12290
+pack('U*',12298,26131,32463,12299,31532,19968,21350).
+pack('U*',24406,26352,65306).
+pack('U*',22823,21705,20094,20803,65292,19975,29289,36164,22987,65292).
+pack('U*',20035,32479,22825,12290).
+pack('U*',20113,34892,38632,26045,65292,21697,29289,27969,24418,12290).
+pack('U*',22823,26126,22987,32456,65292,20845,20301,26102,25104,65292).
+pack('U*',26102,20056,20845,40857,20197,24481,22825,12290).
+pack('U*',20094,36947,21464,21270,65292,21508,27491,24615,21629,65292).
+pack('U*',20445,21512,22823,21644,65292,20035,21033,36126,12290).
+pack('U*',39318,20986,24246,29289,65292,19975,22269,21688,23425,12290)
     ),
 
     'euc-cn'   => join('',
@@ -88,15 +88,15 @@ run_tests('Simplified Chinese only', {
 
 run_tests('Simplified Chinese + ASCII', {
     'utf'      => (
-35937.26352.65306.10.
-22825.34892.20581.65292.21531.23376.20197.33258.24378.19981.24687.12290.10.
-28508.40857.21247.29992.65292.38451.22312.19979.20063.12290.32.
-35265.40857.22312.30000.65292.24503.26045.26222.20063.12290.32.
-32456.26085.20094.20094.65292.21453.22797.36947.20063.12290.10.
-25110.36291.22312.28170.65292.36827.26080.21646.20063.12290.39134.
-40857.22312.22825.65292.22823.20154.36896.20063.12290.32.
-20130.40857.26377.24724.65292.30408.19981.21487.20037.20063.12290.10.
-29992.20061.65292.22825.24503.19981.21487.20026.39318.20063.12290
+pack('U*',35937,26352,65306,10).
+pack('U*',22825,34892,20581,65292,21531,23376,20197,33258,24378,19981,24687,12290,10).
+pack('U*',28508,40857,21247,29992,65292,38451,22312,19979,20063,12290,32).
+pack('U*',35265,40857,22312,30000,65292,24503,26045,26222,20063,12290,32).
+pack('U*',32456,26085,20094,20094,65292,21453,22797,36947,20063,12290,10).
+pack('U*',25110,36291,22312,28170,65292,36827,26080,21646,20063,12290,39134).
+pack('U*',40857,22312,22825,65292,22823,20154,36896,20063,12290,32).
+pack('U*',20130,40857,26377,24724,65292,30408,19981,21487,20037,20063,12290,10).
+pack('U*',29992,20061,65292,22825,24503,19981,21487,20026,39318,20063,12290)
     ),
 
     'cp936'    => join(chr(10),
@@ -117,7 +117,7 @@ run_tests('Simplified Chinese + ASCII', {
 });
 
 run_tests('Traditional Chinese', {
-    'utf',     => 20094.65306.20803.12289.20136.12289.21033.12289.35998,
+    'utf',     => pack('U*',20094,65306,20803,12289,20136,12289,21033,12289,35998),
     'gb12345-raw'      => 'G,#:T*!":`!"@{!"Uj',
     'gbk'      => 'Ǭ£ºÔª¡¢ºà¡¢Àû¡¢Ø\91',
 });
index 11abbf3..21e77db 100644 (file)
@@ -36,10 +36,10 @@ use_ok('Encode::TW');
 
 run_tests('Basic Big5 range', {
     'utf'      => (
-24093.39640.38525.20043.33495.35028.20846.65292.
-26389.30343.32771.26352.20271.24248.65108.
-25885.25552.35998.20110.23391.38508.20846.65292.
-24799.24218.23493.21566.20197.38477.65108
+pack('U*',24093,39640,38525,20043,33495,35028,20846,65292).
+pack('U*',26389,30343,32771,26352,20271,24248,65108).
+pack('U*',25885,25552,35998,20110,23391,38508,20846,65292).
+pack('U*',24799,24218,23493,21566,20197,38477,65108)
     ),
 
     'big5'     => (join('',
@@ -60,11 +60,11 @@ run_tests('Basic Big5 range', {
 
 run_tests('Hong Kong Extensions', {
     'utf'      => (
-24863.35613.25152.26377.20351.29992.32.80.101.114.108.32.
-22021.26379.21451.65292.32102.25105.21707.22021.
-25903.25345.12289.24847.35211.21644.40723.21237.
-22914.26524.32232.30908.26377.20219.20309.37679.28431.
-65292.35531.21578.35380.25105.21707.12290
+pack('U*',24863,35613,25152,26377,20351,29992,32,80,101,114,108,32).
+pack('U*',22021,26379,21451,65292,32102,25105,21707,22021).
+pack('U*',25903,25345,12289,24847,35211,21644,40723,21237).
+pack('U*',22914,26524,32232,30908,26377,20219,20309,37679,28431).
+pack('U*',65292,35531,21578,35380,25105,21707,12290)
     ),
 
     'big5-hkscs'       => join('',