1 #!/usr/bin/perl 2 # ******************************************************************** 3 # * Copyright (c) 2002-2008, International Business Machines 4 # * Corporation and others. All Rights Reserved. 5 # ******************************************************************** 6 7 #use strict; 8 9 require "../perldriver/Common.pl"; 10 11 use lib '../perldriver'; 12 13 use PerfFramework; 14 15 my $options = { 16 "title"=>"Normalization performance: ICU ".$ICULatestVersion." vs. Win", 17 "headers"=>"Win ICU".$ICULatestVersion, 18 "operationIs"=>"code point", 19 "passes"=>"10", 20 "time"=>"5", 21 #"outputType"=>"HTML", 22 "dataDir"=>$CollationDataPath, 23 "outputDir"=>"../results" 24 }; 25 26 # programs 27 # tests will be done for all the programs. Results will be stored and connected 28 my $p = $ICUPathLatest."/normperf/$WindowsPlatform/Release/normperf.exe -b -u"; 29 30 my $tests = { 31 "NFC_NFD_Text", ["$p TestWin_NFC_NFD_Text" , "$p TestICU_NFC_NFD_Text" ], 32 "NFC_NFC_Text", ["$p TestWin_NFC_NFC_Text" , "$p TestICU_NFC_NFC_Text" ], 33 "NFC_Orig_Text", ["$p TestWin_NFC_Orig_Text" , "$p TestICU_NFC_Orig_Text"], 34 "NFD_NFD_Text", ["$p TestWin_NFD_NFD_Text" , "$p TestICU_NFD_NFD_Text" ], 35 "NFD_NFC_Text", ["$p TestWin_NFD_NFC_Text" , "$p TestICU_NFD_NFC_Text" ], 36 "NFD_Orig_Text", ["$p TestWin_NFD_Orig_Text" , "$p TestICU_NFD_Orig_Text"] 37 }; 38 39 my $dataFiles = { 40 "", 41 [ 42 "TestNames_Asian.txt", 43 "TestNames_Chinese.txt", 44 "TestNames_Japanese.txt", 45 "TestNames_Japanese_h.txt", 46 "TestNames_Japanese_k.txt", 47 "TestNames_Korean.txt", 48 "TestNames_Latin.txt", 49 "TestNames_SerbianSH.txt", 50 "TestNames_SerbianSR.txt", 51 "TestNames_Thai.txt", 52 "Testnames_Russian.txt", 53 "th18057.txt", 54 "thesis.txt", 55 "vfear11a.txt", 56 ] 57 }; 58 59 runTests($options, $tests, $dataFiles); 60
