1#!/usr/bin/perl 2# ******************************************************************** 3# * Copyright (c) 2002-2013, International Business Machines 4# * Corporation and others. All Rights Reserved. 5# ******************************************************************** 6 7#use strict; 8 9require "../perldriver/Common.pl"; 10 11use lib '../perldriver'; 12 13use PerfFramework; 14 15my $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 28my $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/normperf/$WindowsPlatform/Release/normperf.exe -b -u"; 29 30my $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 39my $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 59runTests($options, $tests, $dataFiles); 60