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