ICU-66108.tar.gz

[apple/icu.git] / icuSources / test / perf / ubrkperf / UBrkPerf_r.pl

diff --git a/icuSources/test/perf/ubrkperf/UBrkPerf_r.pl b/icuSources/test/perf/ubrkperf/UBrkPerf_r.pl
old mode 100644 (file)
new mode 100755 (executable)
index 33133f7..de5c9be
--- a/icuSources/test/perf/ubrkperf/UBrkPerf_r.pl
+++ b/icuSources/test/perf/ubrkperf/UBrkPerf_r.pl
@@ -1,6 +1,10 @@
 #!/usr/bin/perl
 #  ********************************************************************
 #!/usr/bin/perl
 #  ********************************************************************

-#  * Copyright (c) 2002-2008, International Business Machines
+#  * Copyright (C) 2016 and later: Unicode, Inc. and others.
+#  * License & terms of use: http://www.unicode.org/copyright.html#License
+#  ********************************************************************
+#  ********************************************************************
+#  * Copyright (c) 2002-2013, International Business Machines

 #  * Corporation and others. All Rights Reserved.
 #  ********************************************************************
 
 #  * Corporation and others. All Rights Reserved.
 #  ********************************************************************
 


@@ -13,16 +17,16 @@ use lib '../perldriver';
 use PerfFramework;
 
 my $options = {
 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"
-             };
+    "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
 
 # programs
 # tests will be done for all the programs. Results will be stored and connected


@@ -43,42 +47,51 @@ my $p1; # Previous
 my $p2; # Latest
 
 if ($OnWindows) {
 my $p2; # Latest
 
 if ($OnWindows) {

-       $p1 = $ICUPathPrevious."/ubrkperf/Release/ubrkperf.exe";
-    $p2 = $ICUPathLatest."/ubrkperf/Release/ubrkperf.exe";
+    $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
+    $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";

 } else {
 } else {

-       $p1 = $ICUPathPrevious."/ubrkperf/ubrkperf";
-       $p2 = $ICUPathLatest."/ubrkperf/ubrkperf";
+    $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."/source/lib:".$ICUPrevious."/source/tools/ctestfw ".$ICUPathPrevious."/ubrkperf/ubrkperf";
+    $p2 = "LD_LIBRARY_PATH=".$ICULatest."/source/lib:".$ICULatest."/source/tools/ctestfw ".$ICUPathLatest."/ubrkperf/ubrkperf";

 }
 
 my $dataFiles = {
 }
 
 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"]
+    "en",
+    [
+        "thesis.txt",
+        "2drvb10.txt",
+        "ulyss10.txt",
+        "nvsbl10.txt",
+        "vfear11a.txt",
+        "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"],
+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);
 };
 
 runTests($options, $tests, $dataFiles);