X-Git-Url: https://git.saurik.com/apple/icu.git/blobdiff_plain/729e4ab9bc6618bc3d8a898e575df7f4019e29ca..3d1f044b704633e2e541231cd17ae9ecf9ad5c7a:/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
new mode 100755
index 6edffb30..de5c9beb
--- a/icuSources/test/perf/ubrkperf/UBrkPerf_r.pl
+++ b/icuSources/test/perf/ubrkperf/UBrkPerf_r.pl
@@ -1,6 +1,10 @@
 #!/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.
 #  ********************************************************************
 
@@ -13,16 +17,16 @@ 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"
-	      };
+    "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
@@ -43,42 +47,51 @@ my $p1; # Previous
 my $p2; # Latest
 
 if ($OnWindows) {
-	$p1 = $ICUPathPrevious."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
-    $p2 = $ICUPathLatest."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
+    $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
+    $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
 } 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 = {
-"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);