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 9 require "../perldriver/Common.pl"; 10 11 use lib '../perldriver'; 12 13 use PerfFramework; 14 15 my $options = { 16 "title"=>"BreakIterator performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")", 17 "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion, 18 "operationIs"=>"code point", 19 "eventIs"=>"break", 20 "passes"=>"10", 21 "time"=>"5", 22 #"outputType"=>"HTML", 23 "dataDir"=>$CollationDataPath, 24 "outputDir"=>"../results" 25 }; 26 27 # programs 28 # tests will be done for all the programs. Results will be stored and connected 29 my $m1 = "-- -m char"; 30 my $m2 = "-- -m word"; 31 my $m3 = "-- -m line"; 32 my $m4 = "-- -m sentence"; 33 34 my $m; 35 36 if(@_ >= 0) { 37 $m = "-- -m ".shift; 38 } else { 39 $m = $m1; 40 } 41 42 my $p1; # Previous 43 my $p2; # Latest 44 45 if ($OnWindows) { 46 $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe"; 47 $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe"; 48 } else { 49 $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."/source/lib:".$ICUPrevious."/source/tools/ctestfw ".$ICUPathPrevious."/ubrkperf/ubrkperf"; 50 $p2 = "LD_LIBRARY_PATH=".$ICULatest."/source/lib:".$ICULatest."/source/tools/ctestfw ".$ICUPathLatest."/ubrkperf/ubrkperf"; 51 } 52 53 my $dataFiles = { 54 "en", 55 [ 56 "thesis.txt", 57 "2drvb10.txt", 58 "ulyss10.txt", 59 "nvsbl10.txt", 60 "vfear11a.txt", 61 "TestNames_Asian.txt", 62 "TestNames_Chinese.txt", 63 "TestNames_Japanese.txt", 64 "TestNames_Japanese_h.txt", 65 "TestNames_Japanese_k.txt", 66 "TestNames_Korean.txt", 67 "TestNames_Latin.txt", 68 "TestNames_SerbianSH.txt", 69 "TestNames_SerbianSR.txt", 70 "TestNames_Thai.txt", 71 "Testnames_Russian.txt", 72 ], 73 "th", 74 [ 75 "TestNames_Thai.txt", 76 "th18057.txt" 77 ] 78 }; 79 80 81 my $tests = { 82 "TestForwardChar", ["$p1,$m1,TestICUForward", "$p2,$m1,TestICUForward"], 83 "TestForwardWord", ["$p1,$m2,TestICUForward", "$p2,$m2,TestICUForward"], 84 "TestForwardLine", ["$p1,$m3,TestICUForward", "$p2,$m3,TestICUForward"], 85 "TestForwardSentence", ["$p1,$m4,TestICUForward", "$p2,$m4,TestICUForward"], 86 87 "TestIsBoundChar", ["$p1,$m1,TestICUIsBound", "$p2,$m1,TestICUIsBound"], 88 "TestIsBoundWord", ["$p1,$m2,TestICUIsBound", "$p2,$m2,TestICUIsBound"], 89 "TestIsBoundLine", ["$p1,$m3,TestICUIsBound", "$p2,$m3,TestICUIsBound"], 90 "TestIsBoundSentence", ["$p1,$m4,TestICUIsBound", "$p2,$m4,TestICUIsBound"], 91 }; 92 93 runTests($options, $tests, $dataFiles); 94 95 96