ICU-531.30.tar.gz

[apple/icu.git] / icuSources / test / perf / unisetperf / unisetperf.pl

diff --git a/icuSources/test/perf/unisetperf/unisetperf.pl b/icuSources/test/perf/unisetperf/unisetperf.pl
index 5e984c6fad6aadbe90c494b250b0ccf1e2ac3e53..07c0600d43ee1a78589f1d202df5f1e5399d6a0d 100755 (executable)
--- a/icuSources/test/perf/unisetperf/unisetperf.pl
+++ b/icuSources/test/perf/unisetperf/unisetperf.pl
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #  ********************************************************************
 #  * COPYRIGHT:
-#  * Copyright (c) 2005-2008, International Business Machines Corporation and
+#  * Copyright (c) 2005-2013, International Business Machines Corporation and
 #  * others. All Rights Reserved.
 #  ********************************************************************
 
@@ -14,73 +14,76 @@ use lib '../perldriver';
 use PerfFramework;
 
 my $options = {
-              "title"=>"UnicodeSet span()/contains() performance",
-              "headers"=>"Bv Bv0",
-              "operationIs"=>"tested Unicode code point",
-              "passes"=>"3",
-              "time"=>"2",
-              #"outputType"=>"HTML",
-              "dataDir"=>$UDHRDataPath,
-           "outputDir"=>"../results"
-             };
+    "title"=>"UnicodeSet span()/contains() performance",
+    "headers"=>"Bv Bv0",
+    "operationIs"=>"tested Unicode code point",
+    "passes"=>"3",
+    "time"=>"2",
+    #"outputType"=>"HTML",
+    "dataDir"=>$UDHRDataPath,
+    "outputDir"=>"../results"
+};
 
 # programs
 # tests will be done for all the programs. Results will be stored and connected
 my $p;
 if ($OnWindows) {
-       $p = $ICUPathLatest."/unisetperf/$WindowsPlatform/Release/unisetperf.exe";
+    $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/unisetperf/$WindowsPlatform/Release/unisetperf.exe";
 } else {
-       $p = $ICUPathLatest."/unisetperf/unisetperf";
+    $p = "LD_LIBRARY_PATH=".$ICULatest."/source/lib:".$ICULatest."/source/tools/ctestfw ".$ICUPathLatest."/unisetperf/unisetperf";
 }
-my $pc =  "$p Contains";
-my $p16 = "$p SpanUTF16";
-my $p8 =  "$p SpanUTF8";
 
 my $tests = {
-            "Contains",  ["$pc  --type Bv",
-                          "$pc  --type Bv0"
-                          ],
-            "SpanUTF16", ["$p16 --type Bv",
-                          "$p16 --type Bv0"
-                          ]
-           };
+    "Contains",
+    [
+        "$p,Contains --type Bv",
+        "$p,Contains --type Bv0"
+    ],
+    "SpanUTF16",
+    [
+        "$p,SpanUTF16 --type Bv",
+        "$p,SpanUTF16 --type Bv0"
+    ]
+};
 
 my $dataFiles = {
-                "",
-                [
-                 "udhr_eng.txt",
-          "udhr_deu_1996.txt",
-          "udhr_fra.txt",
-          "udhr_rus.txt",
-          "udhr_tha.txt",
-          "udhr_jpn.txt",
-          "udhr_cmn_hans.txt",
-          "udhr_cmn_hant.txt",
-          "udhr_jpn.html"
-                ]
-               };
+    "",
+    [
+        "udhr_eng.txt",
+        "udhr_deu_1996.txt",
+        "udhr_fra.txt",
+        "udhr_rus.txt",
+        "udhr_tha.txt",
+        "udhr_jpn.txt",
+        "udhr_cmn_hans.txt",
+        "udhr_cmn_hant.txt",
+        "udhr_jpn.html"
+    ]
+};
 
 runTests($options, $tests, $dataFiles);
 
 $options = {
-              "title"=>"UnicodeSet span()/contains() performance",
-              "headers"=>"Bv BvF Bvp BvpF L Bvl",
-              "operationIs"=>"tested Unicode code point",
-              "passes"=>"3",
-              "time"=>"2",
-              #"outputType"=>"HTML",
-              "dataDir"=>$UDHRDataPath,
-              "outputDir"=>"../results"
-             };
+    "title"=>"UnicodeSet span()/contains() performance",
+    "headers"=>"Bv BvF Bvp BvpF L Bvl",
+    "operationIs"=>"tested Unicode code point",
+    "passes"=>"3",
+    "time"=>"2",
+    #"outputType"=>"HTML",
+    "dataDir"=>$UDHRDataPath,
+    "outputDir"=>"../results"
+};
 
 $tests = {
-            "SpanUTF8",  ["$p8  --type Bv",
-                          "$p8  --type BvF",
-                          "$p8  --type Bvp",
-                          "$p8  --type BvpF",
-                          "$p8  --type L",
-                          "$p8  --type Bvl"
-                          ]
-           };
+    "SpanUTF8",
+    [
+        "$p,SpanUTF8 --type Bv",
+        "$p,SpanUTF8 --type BvF",
+        "$p,SpanUTF8 --type Bvp",
+        "$p,SpanUTF8 --type BvpF",
+        "$p,SpanUTF8 --type L",
+        "$p,SpanUTF8 --type Bvl"
+    ]
+};
 
 runTests($options, $tests, $dataFiles);