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. WindowsXP IMultiLanguage 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/Release/convperf.exe"; 36 37 my $tests = { 38 "UTF-8 From Unicode", ["$p,TestWinIML2_UTF8_FromUnicode" , "$p,TestICU_UTF8_FromUnicode" ], 39 "UTF-8 To Unicode", ["$p,TestWinIML2_UTF8_ToUnicode" , "$p,TestICU_UTF8_ToUnicode" ], 40 #### 41 "ISO-8859-1 From Unicode", ["$p,TestWinIML2_Latin1_FromUnicode" , "$p,TestICU_Latin1_FromUnicode" ], 42 "ISO-8859-1 To Unicode", ["$p,TestWinIML2_Latin1_ToUnicode" , "$p,TestICU_Latin1_ToUnicode" ], 43 #### 44 "Shift-JIS From Unicode", ["$p,TestWinIML2_SJIS_FromUnicode" , "$p,TestICU_SJIS_FromUnicode" ], 45 "Shift-JIS To Unicode", ["$p,TestWinIML2_SJIS_ToUnicode" , "$p,TestICU_SJIS_ToUnicode" ], 46 #### 47 "EUC-JP From Unicode", ["$p,TestWinIML2_EUCJP_FromUnicode" , "$p,TestICU_EUCJP_FromUnicode" ], 48 "EUC-JP To Unicode", ["$p,TestWinIML2_EUCJP_ToUnicode" , "$p,TestICU_EUCJP_ToUnicode" ], 49 #### 50 "GB2312 From Unicode", ["$p,TestWinIML2_GB2312_FromUnicode" , "$p,TestICU_GB2312_FromUnicode" ], 51 "GB2312 To Unicode", ["$p,TestWinIML2_GB2312_ToUnicode" , "$p,TestICU_GB2312_ToUnicode" ], 52 #### 53 "ISO2022KR From Unicode", ["$p,TestWinIML2_ISO2022KR_FromUnicode", "$p,TestICU_ISO2022KR_FromUnicode" ], 54 "ISO2022KR To Unicode", ["$p,TestWinIML2_ISO2022KR_ToUnicode" , "$p,TestICU_ISO2022KR_ToUnicode" ], 55 #### 56 "ISO2022JP From Unicode", ["$p,TestWinIML2_ISO2022JP_FromUnicode", "$p,TestICU_ISO2022JP_FromUnicode" ], 57 "ISO2022JP To Unicode", ["$p,TestWinIML2_ISO2022JP_ToUnicode" , "$p,TestICU_ISO2022JP_ToUnicode" ], 58 }; 59 60 my $dataFiles = ""; 61 62 runTests($options, $tests, $dataFiles); 63
