summaryrefslogtreecommitdiff
path: root/Build/source/libs/icu/icu-4.6/test/perf/ubrkperf/UBrkPerf_r.pl
diff options
context:
space:
mode:
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.pl86
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);
+
+