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"=>"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 29my $m1 = "-- -m char"; 30my $m2 = "-- -m word"; 31my $m3 = "-- -m line"; 32my $m4 = "-- -m sentence"; 33 34my $m; 35 36if(@_ >= 0) { 37 $m = "-- -m ".shift; 38} else { 39 $m = $m1; 40} 41 42my $p1; # Previous 43my $p2; # Latest 44 45if ($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 53my $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 81my $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 93runTests($options, $tests, $dataFiles); 94 95 96