diff options
Diffstat (limited to 'Build/source/libs/icu/icu-4.6/test/perf/ubrkperf/UBrkPerf_r.pl')
-rw-r--r-- | Build/source/libs/icu/icu-4.6/test/perf/ubrkperf/UBrkPerf_r.pl | 86 |
1 files changed, 86 insertions, 0 deletions
diff --git a/Build/source/libs/icu/icu-4.6/test/perf/ubrkperf/UBrkPerf_r.pl b/Build/source/libs/icu/icu-4.6/test/perf/ubrkperf/UBrkPerf_r.pl new file mode 100644 index 00000000000..6edffb3097d --- /dev/null +++ b/Build/source/libs/icu/icu-4.6/test/perf/ubrkperf/UBrkPerf_r.pl @@ -0,0 +1,86 @@ +#!/usr/bin/perl +# ******************************************************************** +# * Copyright (c) 2002-2008, International Business Machines +# * Corporation and others. All Rights Reserved. +# ******************************************************************** + +#use strict; + +require "../perldriver/Common.pl"; + +use lib '../perldriver'; + +use PerfFramework; + +my $options = { + "title"=>"BreakIterator performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")", + "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion, + "operationIs"=>"code point", + "eventIs"=>"break", + "passes"=>"10", + "time"=>"5", + #"outputType"=>"HTML", + "dataDir"=>$CollationDataPath, + "outputDir"=>"../results" + }; + +# programs +# tests will be done for all the programs. Results will be stored and connected +my $m1 = "-- -m char"; +my $m2 = "-- -m word"; +my $m3 = "-- -m line"; +my $m4 = "-- -m sentence"; + +my $m; + +if(@_ >= 0) { + $m = "-- -m ".shift; +} else { + $m = $m1; +} + +my $p1; # Previous +my $p2; # Latest + +if ($OnWindows) { + $p1 = $ICUPathPrevious."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe"; + $p2 = $ICUPathLatest."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe"; +} else { + $p1 = $ICUPathPrevious."/ubrkperf/ubrkperf"; + $p2 = $ICUPathLatest."/ubrkperf/ubrkperf"; +} + +my $dataFiles = { +"en", [ + "TestNames_Asian.txt", + "TestNames_Chinese.txt", + "TestNames_Japanese.txt", + "TestNames_Japanese_h.txt", + "TestNames_Japanese_k.txt", + "TestNames_Korean.txt", + "TestNames_Latin.txt", + "TestNames_SerbianSH.txt", + "TestNames_SerbianSR.txt", + "TestNames_Thai.txt", + "Testnames_Russian.txt", +], +"th", ["TestNames_Thai.txt", "th18057.txt"] +}; + + +my $tests = { +"TestForwardChar", ["$p1 $m1 TestICUForward", "$p2 $m1 TestICUForward"], +"TestForwardWord", ["$p1 $m2 TestICUForward", "$p2 $m2 TestICUForward"], +"TestForwardLine", ["$p1 $m3 TestICUForward", "$p2 $m3 TestICUForward"], +"TestForwardSentence", ["$p1 $m4 TestICUForward", "$p2 $m4 TestICUForward"], + +"TestIsBoundChar", ["$p1 $m1 TestICUIsBound", "$p2 $m1 TestICUIsBound"], +"TestIsBoundWord", ["$p1 $m2 TestICUIsBound", "$p2 $m2 TestICUIsBound"], +"TestIsBoundLine", ["$p1 $m3 TestICUIsBound", "$p2 $m3 TestICUIsBound"], +"TestIsBoundSentence", ["$p1 $m4 TestICUIsBound", "$p2 $m4 TestICUIsBound"], + +}; + +runTests($options, $tests, $dataFiles); + + |