1#!/usr/bin/perl 2# ******************************************************************** 3# * COPYRIGHT: 4# * Copyright (c) 2002-2008, International Business Machines Corporation and 5# * others. All Rights Reserved. 6# ******************************************************************** 7 8#use strict; 9 10require "../perldriver/Common.pl"; 11 12use lib '../perldriver'; 13 14use PerfFramework; 15 16# This test only works on Windows. 17if (!$OnWindows) { 18 print "This test only works on Windows.\n"; 19 exit(1); 20} 21 22my $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 35my $p = $ICUPathLatest."/convperf/$WindowsPlatform/Release/convperf.exe"; 36 37my $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 60my $dataFiles = ""; 61 62runTests($options, $tests, $dataFiles); 63