OLD | NEW |
| (Empty) |
1 #!/usr/bin/perl | |
2 # ******************************************************************** | |
3 # * COPYRIGHT: | |
4 # * Copyright (c) 2002-2013, International Business Machines Corporation and | |
5 # * others. All Rights Reserved. | |
6 # ******************************************************************** | |
7 | |
8 #use strict; | |
9 | |
10 require "../perldriver/Common.pl"; | |
11 | |
12 use lib '../perldriver'; | |
13 | |
14 use PerfFramework; | |
15 | |
16 # This test only works on Windows. | |
17 if (!$OnWindows) { | |
18 print "This test only works on Windows.\n"; | |
19 exit(1); | |
20 } | |
21 | |
22 my $options = { | |
23 "title"=>"Conversion Performance: ICU ".$ICULatestVersion." vs. Windows XP A
NSI Interface", | |
24 "headers"=>"WindowsXP(IMultiLanguage2) ICU".$ICULatestVersion, | |
25 "operationIs"=>"code point", | |
26 "passes"=>"10", | |
27 "time"=>"5", | |
28 #"outputType"=>"HTML", | |
29 "dataDir"=>"Not Using Data Files", | |
30 "outputDir"=>"../results" | |
31 }; | |
32 | |
33 # programs | |
34 # tests will be done for all the programs. Results will be stored and connected | |
35 my $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/convperf/$WindowsPlatform/R
elease/convperf.exe"; | |
36 | |
37 my $tests = { | |
38 "UTF-8 From Unicode", ["$p,TestWinANSI_UTF8_FromUnicode" , "$p,
TestICU_UTF8_FromUnicode" ], | |
39 "UTF-8 To Unicode", ["$p,TestWinANSI_UTF8_ToUnicode" , "$p,
TestICU_UTF8_ToUnicode" ], | |
40 #### | |
41 "ISO-8859-1 From Unicode", ["$p,TestWinANSI_Latin1_FromUnicode" , "$p,
TestICU_Latin1_FromUnicode" ], | |
42 "ISO-8859-1 To Unicode", ["$p,TestWinANSI_Latin1_ToUnicode" , "$p,
TestICU_Latin1_ToUnicode" ], | |
43 #### | |
44 "Shift-JIS From Unicode", ["$p,TestWinANSI_SJIS_FromUnicode" , "$p,
TestICU_SJIS_FromUnicode" ], | |
45 "Shift-JIS To Unicode", ["$p,TestWinANSI_SJIS_ToUnicode" , "$p,
TestICU_SJIS_ToUnicode" ], | |
46 #### | |
47 "EUC-JP From Unicode", ["$p,TestWinANSI_EUCJP_FromUnicode" , "$p,
TestICU_EUCJP_FromUnicode" ], | |
48 "EUC-JP To Unicode", ["$p,TestWinANSI_EUCJP_ToUnicode" , "$p,
TestICU_EUCJP_ToUnicode" ], | |
49 #### | |
50 "GB2312 From Unicode", ["$p,TestWinANSI_GB2312_FromUnicode" , "$p,
TestICU_GB2312_FromUnicode" ], | |
51 "GB2312 To Unicode", ["$p,TestWinANSI_GB2312_ToUnicode" , "$p,
TestICU_GB2312_ToUnicode" ], | |
52 }; | |
53 | |
54 my $dataFiles = ""; | |
55 | |
56 runTests($options, $tests, $dataFiles); | |
OLD | NEW |