| | 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 | |
projects / apple / icu.git / blame_incremental