-Copyright (C) 2008, International Business Machines
+Copyright (C) 2008-2013, International Business Machines
Corporation and others. All Rights Reserved.
README for ICU4C Performance Test
Requirements:
The most up to date tests are in ICU 4.0 and later. In addition, most tests depend on data which are
-in a seperate repository.
+in a separate repository.
Data repository:
http://source.icu-project.org/repos/icu/data/trunk/test/perf
Running Performance Test:
-1) You should create a directory to hold the ICU (current and previous versions) and the data.
- (e.g. C:\ICUPerformanceTest)
+1) Checkout the current ICU and 2 previous versions (for proper regression testing) and the data
+ into your local system.
-2) Checkout the current ICU and 2 previous versions (for proper regression testing) and the data
- into the ICUPerformanceTest directory.
+2) Do a general build on all the ICUs either through Visual Studios or with the Makefile.
-3) Do a general build on all the ICUs either through Visual Studios or with the Makefile.
-
-4) Build the ICU performance tests either through Visual Studios or with the Makefile.
+3) Build the ICU performance tests either through Visual Studios or with the Makefile.
(The location of the performance test is: icu/source/test/perf)
-5) Go to perf/perldriver and edit Common.pl.
+4) Go to perf/perldriver, copy Common.pl.template to Common.pl.
In this file, you will need to set a few variables:
a) ICU version numbers
b) Path to the performance test data
* The Path needs to be absolute
* All other variables should be left as is
+5) Create a directory pref/results. All of the test result web pages will be
+ stored in this directory.
+
6) In the perf directory, there are several other directories for the various tests that can be run.
(e.g. convperf (Conversion tests)). Go to each directory and execute the perl script for each test
you want to run. (e.g. CharPerf_r.pl in CharPerf directory)
* You only need to run the perl script from the latest ICU version. The corresponding perl script
in the previous versions of ICU do not need to be run seperately.
- * All of the test result web pages will be stored in perf/results.
Note: When running on Windows, cygwin is preferred.
b) Statistics/Descriptive.pm
Note: Some tests take a while depending on the machine it is running on so a script to run each performance test's
perl script might be helpful.
+Note: The perl script is only used in one version of ICU. When you run regression tests,
+ it is recommended to run the tests from the later version of ICU.
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines Corporation and
+# * Copyright (c) 2002-2013, International Business Machines Corporation and
# * others. All Rights Reserved.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"Character property performance: ICU".$ICULatestVersion." vs. STDLib",
- "headers"=>"StdLib ICU".$ICULatestVersion,
- "operationIs"=>"code point",
- "timePerOperationIs"=>"Time per code point",
- "passes"=>"10",
- "time"=>"5",
- #"outputType"=>"HTML",
- "dataDir"=>"Not Using Data Files",
- "outputDir"=>"../results"
- };
+ "title"=>"Character property performance: ICU".$ICULatestVersion." vs. STDLib",
+ "headers"=>"StdLib ICU".$ICULatestVersion,
+ "operationIs"=>"code point",
+ "timePerOperationIs"=>"Time per code point",
+ "passes"=>"10",
+ "time"=>"5",
+ #"outputType"=>"HTML",
+ "dataDir"=>"Not Using Data Files",
+ "outputDir"=>"../results"
+};
# programs
# tests will be done for all the programs. Results will be stored and connected
my $p;
if ($OnWindows) {
- $p = $ICUPathLatest."/charperf/$WindowsPlatform/Release/charperf.exe";
+ $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/charperf/$WindowsPlatform/Release/charperf.exe";
} else {
- $p = $ICUPathLatest."/charperf/charperf";
+ $p = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/charperf/charperf";
}
my $tests = {
-"isAlpha", ["$p TestStdLibIsAlpha" , "$p TestIsAlpha" ],
-"isUpper", ["$p TestStdLibIsUpper" , "$p TestIsUpper" ],
-"isLower", ["$p TestStdLibIsLower" , "$p TestIsLower" ],
-"isDigit", ["$p TestStdLibIsDigit" , "$p TestIsDigit" ],
-"isSpace", ["$p TestStdLibIsSpace" , "$p TestIsSpace" ],
-"isAlphaNumeric", ["$p TestStdLibIsAlphaNumeric" , "$p TestIsAlphaNumeric" ],
-"isPrint", ["$p TestStdLibIsPrint" , "$p TestIsPrint" ],
-"isControl", ["$p TestStdLibIsControl" , "$p TestIsControl" ],
-"toLower", ["$p TestStdLibToLower" , "$p TestToLower" ],
-"toUpper", ["$p TestStdLibToUpper" , "$p TestToUpper" ],
-"isWhiteSpace", ["$p TestStdLibIsWhiteSpace" , "$p TestIsWhiteSpace" ],
+ "isAlpha", ["$p,TestStdLibIsAlpha" , "$p,TestIsAlpha" ],
+ "isUpper", ["$p,TestStdLibIsUpper" , "$p,TestIsUpper" ],
+ "isLower", ["$p,TestStdLibIsLower" , "$p,TestIsLower" ],
+ "isDigit", ["$p,TestStdLibIsDigit" , "$p,TestIsDigit" ],
+ "isSpace", ["$p,TestStdLibIsSpace" , "$p,TestIsSpace" ],
+ "isAlphaNumeric", ["$p,TestStdLibIsAlphaNumeric" , "$p,TestIsAlphaNumeric" ],
+ "isPrint", ["$p,TestStdLibIsPrint" , "$p,TestIsPrint" ],
+ "isControl", ["$p,TestStdLibIsControl" , "$p,TestIsControl" ],
+ "toLower", ["$p,TestStdLibToLower" , "$p,TestToLower" ],
+ "toUpper", ["$p,TestStdLibToUpper" , "$p,TestToUpper" ],
+ "isWhiteSpace", ["$p,TestStdLibIsWhiteSpace" , "$p,TestIsWhiteSpace" ],
};
my $dataFiles;
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines
+# * Copyright (c) 2002-2013, International Business Machines
# * Corporation and others. All Rights Reserved.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"Character property performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
- "operationIs"=>"code point",
- "timePerOperationIs"=>"Time per code point",
- "passes"=>"10",
- "time"=>"5",
- #"outputType"=>"HTML",
- "dataDir"=>"Not Using Data Files",
- "outputDir"=>"../results"
- };
+ "title"=>"Character property performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
+ "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
+ "operationIs"=>"code point",
+ "timePerOperationIs"=>"Time per code point",
+ "passes"=>"10",
+ "time"=>"5",
+ #"outputType"=>"HTML",
+ "dataDir"=>"Not Using Data Files",
+ "outputDir"=>"../results"
+};
# programs
my $p1; # Previous
my $p2; # Latest
if ($OnWindows) {
- $p1 = $ICUPathPrevious."/charperf/$WindowsPlatform/Release/charperf.exe";
- $p2 = $ICUPathLatest."/charperf/$WindowsPlatform/Release/charperf.exe";
+ $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/charperf/$WindowsPlatform/Release/charperf.exe";
+ $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/charperf/$WindowsPlatform/Release/charperf.exe";
} else {
- $p1 = $ICUPathPrevious."/charperf/charperf";
- $p2 = $ICUPathLatest."/charperf/charperf";
+ $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."source/lib:".$ICUPrevious."source/tools/ctestfw ".$ICUPathPrevious."/charperf/charperf";
+ $p2 = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/charperf/charperf";
}
my $dataFiles = "";
-
my $tests = {
-"isAlpha", ["$p1 TestIsAlpha" , "$p2 TestIsAlpha" ],
-"isUpper", ["$p1 TestIsUpper" , "$p2 TestIsUpper" ],
-"isLower", ["$p1 TestIsLower" , "$p2 TestIsLower" ],
-"isDigit", ["$p1 TestIsDigit" , "$p2 TestIsDigit" ],
-"isSpace", ["$p1 TestIsSpace" , "$p2 TestIsSpace" ],
-"isAlphaNumeric", ["$p1 TestIsAlphaNumeric" , "$p2 TestIsAlphaNumeric" ],
-"isPrint", ["$p1 TestIsPrint" , "$p2 TestIsPrint" ],
-"isControl", ["$p1 TestIsControl" , "$p2 TestIsControl" ],
-"toLower", ["$p1 TestToLower" , "$p2 TestToLower" ],
-"toUpper", ["$p1 TestToUpper" , "$p2 TestToUpper" ],
-"isWhiteSpace", ["$p1 TestIsWhiteSpace" , "$p2 TestIsWhiteSpace" ],
+ "isAlpha", ["$p1 TestIsAlpha" , "$p2 TestIsAlpha" ],
+ "isUpper", ["$p1 TestIsUpper" , "$p2 TestIsUpper" ],
+ "isLower", ["$p1 TestIsLower" , "$p2 TestIsLower" ],
+ "isDigit", ["$p1 TestIsDigit" , "$p2 TestIsDigit" ],
+ "isSpace", ["$p1 TestIsSpace" , "$p2 TestIsSpace" ],
+ "isAlphaNumeric", ["$p1 TestIsAlphaNumeric" , "$p2 TestIsAlphaNumeric" ],
+ "isPrint", ["$p1 TestIsPrint" , "$p2 TestIsPrint" ],
+ "isControl", ["$p1 TestIsControl" , "$p2 TestIsControl" ],
+ "toLower", ["$p1 TestToLower" , "$p2 TestToLower" ],
+ "toUpper", ["$p1 TestToUpper" , "$p2 TestToUpper" ],
+ "isWhiteSpace", ["$p1 TestIsWhiteSpace" , "$p2 TestIsWhiteSpace" ],
};
runTests($options, $tests, $dataFiles);
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines Corporation and
+# * Copyright (c) 2002-2013, International Business Machines Corporation and
# * others. All Rights Reserved.
# ********************************************************************
my $p;
if ($OnWindows) {
- $p = $ICUPathLatest . "/collationperf/$WindowsPlatform/Release/collationperf.exe";
+ $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest . "/collationperf/$WindowsPlatform/Release/collationperf.exe";
}
else {
- $p = $ICUPathLatest . "/collationperf/collperf";
+ $p = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest . "/collationperf/collperf";
}
my @locale = (
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2005-2012, International Business Machines Corporation and
+# * Copyright (c) 2005-2013, International Business Machines Corporation and
# * others. All Rights Reserved.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"Collation performance: ICU,POSIX,and Win",
- "headers"=>"ICU POSIX WIN",
- "operationIs"=>"unicode String",
- "passes"=>"1",
- "time"=>"2",
- #"outputType"=>"HTML",
- "dataDir"=>$CollationDataPath,
- "outputDir"=>"../results"
- };
+ "title"=>"Collation performance: ICU,POSIX,and Win",
+ "headers"=>"ICU POSIX WIN",
+ "operationIs"=>"unicode String",
+ "passes"=>"1",
+ "time"=>"2",
+ #"outputType"=>"HTML",
+ "dataDir"=>$CollationDataPath,
+ "outputDir"=>"../results"
+};
my $p;
if ($OnWindows) {
- $p = $ICUPathLatest."/collperf/$WindowsPlatform/Release/collperf.exe";
+ $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/collperf/$WindowsPlatform/Release/collperf.exe";
} else {
- $p = $ICUPathLatest."/collperf/collperf";
+ $p = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/collperf/collperf";
}
# programs
# tests will be done for all the programs. Results will be stored and connected
my $test;
if ($OnWindows) {
- $tests = {
- "Key Gen null", ["$p TestIcu_KeyGen_null", "$p TestPosix_KeyGen_null", "$p TestWin_KeyGen_null"],
- "qsort strcoll null", ["$p TestIcu_qsort_strcoll_null", "$p TestPosix_qsort_strcoll_null", "$p TestWin_qsort_CompareStringW_null"],
- "qsort use key", ["$p TestIcu_qsort_usekey", "$p TestPosix_qsort_usekey", "$p TestWin_qsort_usekey"],
- "Binary Search icu strcoll null", ["$p TestIcu_BinarySearch_strcoll_null", "$p TestPosix_BinarySearch_strcoll_null", "$p TestWin_BinarySearch_CompareStringW_null"],
- "Binary Search icu use key", ["$p TestIcu_BinarySearch_usekey", "$p TestPosix_BinarySearch_usekey", "$p TestWin_BinarySearch_usekey"],
- # These are the original test. They are commented out to so that the above test can run and compare certain aspects of collation.
- #"Key Gen ICU null", ["$p TestIcu_KeyGen_null"],
- #"Key Gen ICU len", ["$p TestIcu_KeyGen_len"],
- #"Key Gen POSIX", ["$p TestPosix_KeyGen_null"],
- #"Key Gen Win", ["$p TestWin_KeyGen_null"],
- #"Iteration icu forward null", ["$p TestIcu_ForwardIter_null"],
- #"Iteration icu forward len", ["$p TestIcu_ForwardIter_len"],
- #"Iteration icu backward null", ["$p TestIcu_BackwardIter_null"],
- #"Iteration icu backward len", ["$p TestIcu_BackwardIter_len"],
- #"Iteration/all icu forward null", ["$p TestIcu_ForwardIter_all_null"],
- #"Iteration/all icu forward len", ["$p TestIcu_ForwardIter_all_len"],
- #"Iteration/all icu backward null", ["$p TestIcu_BackwardIter_all_null"],
- #"Iteration/all icu backward len", ["$p TestIcu_BackwardIter_all_len"],
- #"qsort icu strcoll null", ["$p TestIcu_qsort_strcoll_null"],
- #"qsort icu strcoll len", ["$p TestIcu_qsort_strcoll_len"],
- #"qsort icu use key", ["$p TestIcu_qsort_usekey"],
- #"qsort posix strcoll null", ["$p TestPosix_qsort_strcoll_null"],
- #"qsort posix use key", ["$p TestPosix_qsort_usekey"],
- #"qsort win CompareStringW null", ["$p TestWin_qsort_CompareStringW_null"],
- #"qsort win CompareStringW len", ["$p TestWin_qsort_CompareStringW_len"],
- #"qsort win use key", ["$p TestWin_qsort_usekey"],
- #"Binary Search icu strcoll null", ["$p TestIcu_BinarySearch_strcoll_null"],
- #"Binary Search icu strcoll len", ["$p TestIcu_BinarySearch_strcoll_len"],
- #"Binary Search icu use key", ["$p TestIcu_BinarySearch_usekey"],
- #"Binary Search icu u_strcmp", ["$p TestIcu_BinarySearch_strcmp"],
- #"Binary Search icu cmpCPO", ["$p TestIcu_BinarySearch_cmpCPO"],
- #"Binary Search posix strcoll null", ["$p TestPosix_BinarySearch_strcoll_null"],
- #"Binary Search posix use key", ["$p TestPosix_BinarySearch_usekey"],
- #"Binary Search win CompareStringW null", ["$p TestWin_BinarySearch_CompareStringW_null"],
- #"Binary Search win CompareStringW len", ["$p TestWin_BinarySearch_CompareStringW_len"],
- #"Binary Search win use key", ["$p TestWin_BinarySearch_usekey"],
- #"Binary Search win wcscmp", ["$p TestWin_BinarySearch_wcscmp"],
- };
+ $tests = {
+ "Key Gen null", ["$p,TestIcu_KeyGen_null", "$p,TestPosix_KeyGen_null", "$p,TestWin_KeyGen_null"],
+ "qsort strcoll null", ["$p,TestIcu_qsort_strcoll_null", "$p,TestPosix_qsort_strcoll_null", "$p,TestWin_qsort_CompareStringW_null"],
+ "qsort use key", ["$p,TestIcu_qsort_usekey", "$p,TestPosix_qsort_usekey", "$p,TestWin_qsort_usekey"],
+ "Binary Search icu strcoll null", ["$p,TestIcu_BinarySearch_strcoll_null", "$p,TestPosix_BinarySearch_strcoll_null", "$p,TestWin_BinarySearch_CompareStringW_null"],
+ "Binary Search icu use key", ["$p,TestIcu_BinarySearch_usekey", "$p,TestPosix_BinarySearch_usekey", "$p,TestWin_BinarySearch_usekey"],
+ # These are the original test. They are commented out to so that the above test can run and compare certain aspects of collation.
+ #"Key Gen ICU null", ["$p,TestIcu_KeyGen_null"],
+ #"Key Gen ICU len", ["$p,TestIcu_KeyGen_len"],
+ #"Key Gen POSIX", ["$p,TestPosix_KeyGen_null"],
+ #"Key Gen Win", ["$p,TestWin_KeyGen_null"],
+ #"Iteration icu forward null", ["$p,TestIcu_ForwardIter_null"],
+ #"Iteration icu forward len", ["$p,TestIcu_ForwardIter_len"],
+ #"Iteration icu backward null", ["$p,TestIcu_BackwardIter_null"],
+ #"Iteration icu backward len", ["$p,TestIcu_BackwardIter_len"],
+ #"Iteration/all icu forward null", ["$p,TestIcu_ForwardIter_all_null"],
+ #"Iteration/all icu forward len", ["$p,TestIcu_ForwardIter_all_len"],
+ #"Iteration/all icu backward null", ["$p,TestIcu_BackwardIter_all_null"],
+ #"Iteration/all icu backward len", ["$p,TestIcu_BackwardIter_all_len"],
+ #"qsort icu strcoll null", ["$p,TestIcu_qsort_strcoll_null"],
+ #"qsort icu strcoll len", ["$p,TestIcu_qsort_strcoll_len"],
+ #"qsort icu use key", ["$p,TestIcu_qsort_usekey"],
+ #"qsort posix strcoll null", ["$p,TestPosix_qsort_strcoll_null"],
+ #"qsort posix use key", ["$p,TestPosix_qsort_usekey"],
+ #"qsort win CompareStringW null", ["$p,TestWin_qsort_CompareStringW_null"],
+ #"qsort win CompareStringW len", ["$p,TestWin_qsort_CompareStringW_len"],
+ #"qsort win use key", ["$p,TestWin_qsort_usekey"],
+ #"Binary Search icu strcoll null", ["$p,TestIcu_BinarySearch_strcoll_null"],
+ #"Binary Search icu strcoll len", ["$p,TestIcu_BinarySearch_strcoll_len"],
+ #"Binary Search icu use key", ["$p,TestIcu_BinarySearch_usekey"],
+ #"Binary Search icu u_strcmp", ["$p,TestIcu_BinarySearch_strcmp"],
+ #"Binary Search icu cmpCPO", ["$p,TestIcu_BinarySearch_cmpCPO"],
+ #"Binary Search posix strcoll null", ["$p,TestPosix_BinarySearch_strcoll_null"],
+ #"Binary Search posix use key", ["$p,TestPosix_BinarySearch_usekey"],
+ #"Binary Search win CompareStringW null", ["$p,TestWin_BinarySearch_CompareStringW_null"],
+ #"Binary Search win CompareStringW len", ["$p,TestWin_BinarySearch_CompareStringW_len"],
+ #"Binary Search win use key", ["$p,TestWin_BinarySearch_usekey"],
+ #"Binary Search win wcscmp", ["$p,TestWin_BinarySearch_wcscmp"],
+ };
} else {
- $tests = {
- "Key Gen null", ["$p TestIcu_KeyGen_null", "$p TestPosix_KeyGen_null"],
- "qsort strcoll null", ["$p TestIcu_qsort_strcoll_null", "$p TestPosix_qsort_strcoll_null"],
- "qsort use key", ["$p TestIcu_qsort_usekey", "$p TestPosix_qsort_usekey"],
- "Binary Search icu strcoll null", ["$p TestIcu_BinarySearch_strcoll_null", "$p TestPosix_BinarySearch_strcoll_null"],
- "Binary Search icu use key", ["$p TestIcu_BinarySearch_usekey", "$p TestPosix_BinarySearch_usekey"],
- };
+ $tests = {
+ "Key Gen null", ["$p,TestIcu_KeyGen_null", "$p,TestPosix_KeyGen_null"],
+ "qsort strcoll null", ["$p,TestIcu_qsort_strcoll_null", "$p,TestPosix_qsort_strcoll_null"],
+ "qsort use key", ["$p,TestIcu_qsort_usekey", "$p,TestPosix_qsort_usekey"],
+ "Binary Search icu strcoll null", ["$p,TestIcu_BinarySearch_strcoll_null", "$p,TestPosix_BinarySearch_strcoll_null"],
+ "Binary Search icu use key", ["$p,TestIcu_BinarySearch_usekey", "$p,TestPosix_BinarySearch_usekey"],
+ };
}
my $dataFiles = {
- "",
- [
- "TestNames_Asian.txt",
- "TestNames_Chinese.txt",
- "TestNames_Japanese.txt",
- "TestNames_Japanese_h.txt",
- "TestNames_Japanese_k.txt",
- "TestNames_Korean.txt",
- "TestNames_Latin.txt",
- "TestNames_Russian.txt",
- "TestNames_SerbianSH.txt",
- "TestNames_SerbianSR.txt",
- "TestNames_Simplified_Chinese.txt",
- "TestNames_Thai.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_Russian.txt",
+ "TestNames_SerbianSH.txt",
+ "TestNames_SerbianSR.txt",
+ "TestNames_Simplified_Chinese.txt",
+ "TestNames_Thai.txt"
+ ]
+};
runTests($options, $tests, $dataFiles);
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2008-2012, International Business Machines Corporation and
+# * Copyright (c) 2008-2013, International Business Machines Corporation and
# * others. All Rights Reserved.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"Collation performanceregression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
- "operationIs"=>"unicode String",
- "passes"=>"1",
- "time"=>"2",
- #"outputType"=>"HTML",
- "dataDir"=>$CollationDataPath,
- "outputDir"=>"../results"
- };
+ "title"=>"Collation performanceregression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
+ "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
+ "operationIs"=>"unicode String",
+ "passes"=>"1",
+ "time"=>"2",
+ #"outputType"=>"HTML",
+ "dataDir"=>$CollationDataPath,
+ "outputDir"=>"../results"
+};
# programs
# tests will be done for all the programs. Results will be stored and connected
my $p1, $p2;
if ($OnWindows) {
- $p1 = $ICUPathPrevious."/collperf/$WindowsPlatform/Release/collperf.exe";
- $p2 = $ICUPathLatest."/collperf/$WindowsPlatform/Release/collperf.exe";
+ $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/collperf/$WindowsPlatform/Release/collperf.exe";
+ $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/collperf/$WindowsPlatform/Release/collperf.exe";
} else {
- $p1 = $ICUPathPrevious."/collperf/collperf";
- $p2 = $ICUPathLatest."/collperf/collperf";
+ $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."source/lib:".$ICUPrevious."source/tools/ctestfw ".$ICUPathPrevious."/collperf/collperf";
+ $p2 = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/collperf/collperf";
}
-my $tests = {
- "Key Gen ICU null", ["$p1 TestIcu_KeyGen_null", "$p2 TestIcu_KeyGen_null"],
- "Key Gen ICU len", ["$p1 TestIcu_KeyGen_len", "$p2 TestIcu_KeyGen_len"],
- "Iteration icu forward null", ["$p1 TestIcu_ForwardIter_null", "$p2 TestIcu_ForwardIter_null"],
- "Iteration icu forward len", ["$p1 TestIcu_ForwardIter_len", "$p2 TestIcu_ForwardIter_len"],
- "Iteration icu backward null", ["$p1 TestIcu_BackwardIter_null", "$p2 TestIcu_BackwardIter_null"],
- "Iteration icu backward len", ["$p1 TestIcu_BackwardIter_len", "$p2 TestIcu_BackwardIter_len"],
- "Iteration/all icu forward null", ["$p1 TestIcu_ForwardIter_all_null", "$p2 TestIcu_ForwardIter_all_null"],
- "Iteration/all icu forward len", ["$p1 TestIcu_ForwardIter_all_len", "$p2 TestIcu_ForwardIter_all_len"],
- "Iteration/all icu backward null", ["$p1 TestIcu_BackwardIter_all_null", "$p2 TestIcu_BackwardIter_all_null"],
- "Iteration/all icu backward len", ["$p1 TestIcu_BackwardIter_all_len", "$p2 TestIcu_BackwardIter_all_len"],
- "qsort icu strcoll null", ["$p1 TestIcu_qsort_strcoll_null", "$p2 TestIcu_qsort_strcoll_null"],
- "qsort icu strcoll len", ["$p1 TestIcu_qsort_strcoll_len", "$p2 TestIcu_qsort_strcoll_len"],
- "qsort icu use key", ["$p1 TestIcu_qsort_usekey", "$p2 TestIcu_qsort_usekey"],
- "Binary Search icu strcoll null", ["$p1 TestIcu_BinarySearch_strcoll_null", "$p2 TestIcu_BinarySearch_strcoll_null"],
- "Binary Search icu strcoll len", ["$p1 TestIcu_BinarySearch_strcoll_len", "$p2 TestIcu_BinarySearch_strcoll_len"],
- "Binary Search icu use key", ["$p1 TestIcu_BinarySearch_usekey", "$p2 TestIcu_BinarySearch_usekey"],
- "Binary Search icu u_strcmp", ["$p1 TestIcu_BinarySearch_strcmp", "$p2 TestIcu_BinarySearch_strcmp"],
- "Binary Search icu cmpCPO", ["$p1 TestIcu_BinarySearch_cmpCPO", "$p2 TestIcu_BinarySearch_cmpCPO"],
- };
+my $tests = {
+ "Key Gen ICU null", ["$p1,TestIcu_KeyGen_null", "$p2,TestIcu_KeyGen_null"],
+ "Key Gen ICU len", ["$p1,TestIcu_KeyGen_len", "$p2,TestIcu_KeyGen_len"],
+ "Iteration icu forward null", ["$p1,TestIcu_ForwardIter_null", "$p2,TestIcu_ForwardIter_null"],
+ "Iteration icu forward len", ["$p1,TestIcu_ForwardIter_len", "$p2,TestIcu_ForwardIter_len"],
+ "Iteration icu backward null", ["$p1,TestIcu_BackwardIter_null", "$p2,TestIcu_BackwardIter_null"],
+ "Iteration icu backward len", ["$p1,TestIcu_BackwardIter_len", "$p2,TestIcu_BackwardIter_len"],
+ "Iteration/all icu forward null", ["$p1,TestIcu_ForwardIter_all_null", "$p2,TestIcu_ForwardIter_all_null"],
+ "Iteration/all icu forward len", ["$p1,TestIcu_ForwardIter_all_len", "$p2,TestIcu_ForwardIter_all_len"],
+ "Iteration/all icu backward null", ["$p1,TestIcu_BackwardIter_all_null", "$p2,TestIcu_BackwardIter_all_null"],
+ "Iteration/all icu backward len", ["$p1,TestIcu_BackwardIter_all_len", "$p2,TestIcu_BackwardIter_all_len"],
+ "qsort icu strcoll null", ["$p1,TestIcu_qsort_strcoll_null", "$p2,TestIcu_qsort_strcoll_null"],
+ "qsort icu strcoll len", ["$p1,TestIcu_qsort_strcoll_len", "$p2,TestIcu_qsort_strcoll_len"],
+ "qsort icu use key", ["$p1,TestIcu_qsort_usekey", "$p2,TestIcu_qsort_usekey"],
+ "Binary Search icu strcoll null", ["$p1,TestIcu_BinarySearch_strcoll_null", "$p2,TestIcu_BinarySearch_strcoll_null"],
+ "Binary Search icu strcoll len", ["$p1,TestIcu_BinarySearch_strcoll_len", "$p2,TestIcu_BinarySearch_strcoll_len"],
+ "Binary Search icu use key", ["$p1,TestIcu_BinarySearch_usekey", "$p2,TestIcu_BinarySearch_usekey"],
+ "Binary Search icu u_strcmp", ["$p1,TestIcu_BinarySearch_strcmp", "$p2,TestIcu_BinarySearch_strcmp"],
+ "Binary Search icu cmpCPO", ["$p1,TestIcu_BinarySearch_cmpCPO", "$p2,TestIcu_BinarySearch_cmpCPO"],
+};
my $dataFiles = {
- "",
- [
- "TestNames_Asian.txt",
- "TestNames_Chinese.txt",
- "TestNames_Japanese.txt",
- "TestNames_Japanese_h.txt",
- "TestNames_Japanese_k.txt",
- "TestNames_Korean.txt",
- "TestNames_Latin.txt",
- "TestNames_Russian.txt",
- "TestNames_SerbianSH.txt",
- "TestNames_SerbianSR.txt",
- "TestNames_Simplified_Chinese.txt",
- "TestNames_Thai.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_Russian.txt",
+ "TestNames_SerbianSH.txt",
+ "TestNames_SerbianSR.txt",
+ "TestNames_Simplified_Chinese.txt",
+ "TestNames_Thai.txt"
+ ]
+};
runTests($options, $tests, $dataFiles);
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines
+# * Copyright (c) 2002-2013, International Business Machines
# * Corporation and others. All Rights Reserved.
# ********************************************************************
# This test only works on Windows.
if (!$OnWindows) {
- print "This test only works on Windows.\n";
- exit(1);
+ print "This test only works on Windows.\n";
+ exit(1);
}
my $options = {
- "title"=>"Conversion performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
- "operationIs"=>"code point",
- "timePerOperationIs"=>"Time per code point",
- "passes"=>"10",
- "time"=>"5",
- #"outputType"=>"HTML",
- "dataDir"=>"Not Using Data Files",
- "outputDir"=>"../results"
- };
+ "title"=>"Conversion performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
+ "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
+ "operationIs"=>"code point",
+ "timePerOperationIs"=>"Time per code point",
+ "passes"=>"10",
+ "time"=>"5",
+ #"outputType"=>"HTML",
+ "dataDir"=>"Not Using Data Files",
+ "outputDir"=>"../results"
+};
# programs
-my $p1 = $ICUPathPrevious."/convperf/$WindowsPlatform/Release/convperf.exe"; # Previous
-my $p2 = $ICUPathLatest."/convperf/$WindowsPlatform/Release/convperf.exe"; # Latest
+my $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/convperf/$WindowsPlatform/Release/convperf.exe"; # Previous
+my $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/convperf/$WindowsPlatform/Release/convperf.exe"; # Latest
my $dataFiles = "";
my $tests = {
- "UTF-8 From Unicode", ["$p1 TestICU_UTF8_FromUnicode" , "$p2 TestICU_UTF8_FromUnicode" ],
- "UTF-8 To Unicode", ["$p1 TestICU_UTF8_ToUnicode" , "$p2 TestICU_UTF8_ToUnicode" ],
- ####
- "ISO-8859-1 From Unicode", ["$p1 TestICU_Latin1_FromUnicode" , "$p2 TestICU_Latin1_FromUnicode" ],
- "ISO-8859-1 To Unicode", ["$p1 TestICU_Latin1_ToUnicode" , "$p2 TestICU_Latin1_ToUnicode" ],
- ####
- "Shift-JIS From Unicode", ["$p1 TestICU_SJIS_FromUnicode" , "$p2 TestICU_SJIS_FromUnicode" ],
- "Shift-JIS To Unicode", ["$p1 TestICU_SJIS_ToUnicode" , "$p2 TestICU_SJIS_ToUnicode" ],
- ####
- "EUC-JP From Unicode", ["$p1 TestICU_EUCJP_FromUnicode" , "$p2 TestICU_EUCJP_FromUnicode" ],
- "EUC-JP To Unicode", ["$p1 TestICU_EUCJP_ToUnicode" , "$p2 TestICU_EUCJP_ToUnicode" ],
- ####
- "GB2312 From Unicode", ["$p1 TestICU_GB2312_FromUnicode" , "$p2 TestICU_GB2312_FromUnicode" ],
- "GB2312 To Unicode", ["$p1 TestICU_GB2312_ToUnicode" , "$p2 TestICU_GB2312_ToUnicode" ],
- ####
- "ISO2022KR From Unicode", ["$p1 TestICU_ISO2022KR_FromUnicode", "$p2 TestICU_ISO2022KR_FromUnicode" ],
- "ISO2022KR To Unicode", ["$p1 TestICU_ISO2022KR_ToUnicode" , "$p2 TestICU_ISO2022KR_ToUnicode" ],
- ####
- "ISO2022JP From Unicode", ["$p1 TestICU_ISO2022JP_FromUnicode", "$p2 TestICU_ISO2022JP_FromUnicode" ],
- "ISO2022JP To Unicode", ["$p1 TestICU_ISO2022JP_ToUnicode" , "$p2 TestICU_ISO2022JP_ToUnicode" ],
- };
-
+ "UTF-8 From Unicode", ["$p1,TestICU_UTF8_FromUnicode", "$p2,TestICU_UTF8_FromUnicode" ],
+ "UTF-8 To Unicode", ["$p1,TestICU_UTF8_ToUnicode", "$p2,TestICU_UTF8_ToUnicode" ],
+ ####
+ "ISO-8859-1 From Unicode", ["$p1,TestICU_Latin1_FromUnicode", "$p2,TestICU_Latin1_FromUnicode" ],
+ "ISO-8859-1 To Unicode", ["$p1,TestICU_Latin1_ToUnicode", "$p2,TestICU_Latin1_ToUnicode" ],
+ ####
+ "Shift-JIS From Unicode", ["$p1,TestICU_SJIS_FromUnicode", "$p2,TestICU_SJIS_FromUnicode" ],
+ "Shift-JIS To Unicode", ["$p1,TestICU_SJIS_ToUnicode", "$p2,TestICU_SJIS_ToUnicode" ],
+ ####
+ "EUC-JP From Unicode", ["$p1,TestICU_EUCJP_FromUnicode", "$p2,TestICU_EUCJP_FromUnicode" ],
+ "EUC-JP To Unicode", ["$p1,TestICU_EUCJP_ToUnicode", "$p2,TestICU_EUCJP_ToUnicode" ],
+ ####
+ "GB2312 From Unicode", ["$p1,TestICU_GB2312_FromUnicode", "$p2,TestICU_GB2312_FromUnicode" ],
+ "GB2312 To Unicode", ["$p1,TestICU_GB2312_ToUnicode", "$p2,TestICU_GB2312_ToUnicode" ],
+ ####
+ "ISO2022KR From Unicode", ["$p1,TestICU_ISO2022KR_FromUnicode", "$p2,TestICU_ISO2022KR_FromUnicode" ],
+ "ISO2022KR To Unicode", ["$p1,TestICU_ISO2022KR_ToUnicode", "$p2,TestICU_ISO2022KR_ToUnicode" ],
+ ####
+ "ISO2022JP From Unicode", ["$p1,TestICU_ISO2022JP_FromUnicode", "$p2,TestICU_ISO2022JP_FromUnicode" ],
+ "ISO2022JP To Unicode", ["$p1,TestICU_ISO2022JP_ToUnicode", "$p2,TestICU_ISO2022JP_ToUnicode" ],
+};
+
runTests($options, $tests, $dataFiles);
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines Corporation and
+# * Copyright (c) 2002-2013, International Business Machines Corporation and
# * others. All Rights Reserved.
# ********************************************************************
}
my $options = {
- "title"=>"Conversion Performance: ICU ".$ICULatestVersion." vs. Windows XP ANSI Interface",
- "headers"=>"WindowsXP(IMultiLanguage2) ICU".$ICULatestVersion,
- "operationIs"=>"code point",
- "passes"=>"10",
- "time"=>"5",
- #"outputType"=>"HTML",
- "dataDir"=>"Not Using Data Files",
- "outputDir"=>"../results"
- };
+ "title"=>"Conversion Performance: ICU ".$ICULatestVersion." vs. Windows XP ANSI Interface",
+ "headers"=>"WindowsXP(IMultiLanguage2) ICU".$ICULatestVersion,
+ "operationIs"=>"code point",
+ "passes"=>"10",
+ "time"=>"5",
+ #"outputType"=>"HTML",
+ "dataDir"=>"Not Using Data Files",
+ "outputDir"=>"../results"
+};
# programs
# tests will be done for all the programs. Results will be stored and connected
-my $p = $ICUPathLatest."/convperf/$WindowsPlatform/Release/convperf.exe";
+my $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/convperf/$WindowsPlatform/Release/convperf.exe";
my $tests = {
- "UTF-8 From Unicode", ["$p TestWinANSI_UTF8_FromUnicode" , "$p TestICU_UTF8_FromUnicode" ],
- "UTF-8 To Unicode", ["$p TestWinANSI_UTF8_ToUnicode" , "$p TestICU_UTF8_ToUnicode" ],
- ####
- "ISO-8859-1 From Unicode", ["$p TestWinANSI_Latin1_FromUnicode" , "$p TestICU_Latin1_FromUnicode" ],
- "ISO-8859-1 To Unicode", ["$p TestWinANSI_Latin1_ToUnicode" , "$p TestICU_Latin1_ToUnicode" ],
- ####
- "Shift-JIS From Unicode", ["$p TestWinANSI_SJIS_FromUnicode" , "$p TestICU_SJIS_FromUnicode" ],
- "Shift-JIS To Unicode", ["$p TestWinANSI_SJIS_ToUnicode" , "$p TestICU_SJIS_ToUnicode" ],
- ####
- "EUC-JP From Unicode", ["$p TestWinANSI_EUCJP_FromUnicode" , "$p TestICU_EUCJP_FromUnicode" ],
- "EUC-JP To Unicode", ["$p TestWinANSI_EUCJP_ToUnicode" , "$p TestICU_EUCJP_ToUnicode" ],
- ####
- "GB2312 From Unicode", ["$p TestWinANSI_GB2312_FromUnicode" , "$p TestICU_GB2312_FromUnicode" ],
- "GB2312 To Unicode", ["$p TestWinANSI_GB2312_ToUnicode" , "$p TestICU_GB2312_ToUnicode" ],
- };
+ "UTF-8 From Unicode", ["$p,TestWinANSI_UTF8_FromUnicode" , "$p,TestICU_UTF8_FromUnicode" ],
+ "UTF-8 To Unicode", ["$p,TestWinANSI_UTF8_ToUnicode" , "$p,TestICU_UTF8_ToUnicode" ],
+ ####
+ "ISO-8859-1 From Unicode", ["$p,TestWinANSI_Latin1_FromUnicode" , "$p,TestICU_Latin1_FromUnicode" ],
+ "ISO-8859-1 To Unicode", ["$p,TestWinANSI_Latin1_ToUnicode" , "$p,TestICU_Latin1_ToUnicode" ],
+ ####
+ "Shift-JIS From Unicode", ["$p,TestWinANSI_SJIS_FromUnicode" , "$p,TestICU_SJIS_FromUnicode" ],
+ "Shift-JIS To Unicode", ["$p,TestWinANSI_SJIS_ToUnicode" , "$p,TestICU_SJIS_ToUnicode" ],
+ ####
+ "EUC-JP From Unicode", ["$p,TestWinANSI_EUCJP_FromUnicode" , "$p,TestICU_EUCJP_FromUnicode" ],
+ "EUC-JP To Unicode", ["$p,TestWinANSI_EUCJP_ToUnicode" , "$p,TestICU_EUCJP_ToUnicode" ],
+ ####
+ "GB2312 From Unicode", ["$p,TestWinANSI_GB2312_FromUnicode" , "$p,TestICU_GB2312_FromUnicode" ],
+ "GB2312 To Unicode", ["$p,TestWinANSI_GB2312_ToUnicode" , "$p,TestICU_GB2312_ToUnicode" ],
+};
my $dataFiles = "";
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines Corporation and
+# * Copyright (c) 2002-2013, International Business Machines Corporation and
# * others. All Rights Reserved.
# ********************************************************************
# This test only works on Windows.
if (!$OnWindows) {
- print "This test only works on Windows.\n";
+ print "This test only works on Windows.\n";
exit(1);
}
my $options = {
- "title"=>"Conversion Performance: ICU".$ICULatestVersion." vs. WindowsXP IMultiLanguage Interface",
- "headers"=>"WindowsXP(IMultiLanguage2) ICU".$ICULatestVersion,
- "operationIs"=>"code point",
- "passes"=>"10",
- "time"=>"5",
- #"outputType"=>"HTML",
- "dataDir"=>"Not Using Data Files",
- "outputDir"=>"../results"
- };
+ "title"=>"Conversion Performance: ICU".$ICULatestVersion." vs. WindowsXP IMultiLanguage Interface",
+ "headers"=>"WindowsXP(IMultiLanguage2) ICU".$ICULatestVersion,
+ "operationIs"=>"code point",
+ "passes"=>"10",
+ "time"=>"5",
+ #"outputType"=>"HTML",
+ "dataDir"=>"Not Using Data Files",
+ "outputDir"=>"../results"
+};
# programs
# tests will be done for all the programs. Results will be stored and connected
-my $p = $ICUPathLatest."/convperf/$WindowsPlatform/Release/convperf.exe";
+my $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/convperf/$WindowsPlatform/Release/convperf.exe";
my $tests = {
- "UTF-8 From Unicode", ["$p TestWinIML2_UTF8_FromUnicode" , "$p TestICU_UTF8_FromUnicode" ],
- "UTF-8 To Unicode", ["$p TestWinIML2_UTF8_ToUnicode" , "$p TestICU_UTF8_ToUnicode" ],
- ####
- "ISO-8859-1 From Unicode", ["$p TestWinIML2_Latin1_FromUnicode" , "$p TestICU_Latin1_FromUnicode" ],
- "ISO-8859-1 To Unicode", ["$p TestWinIML2_Latin1_ToUnicode" , "$p TestICU_Latin1_ToUnicode" ],
- ####
- "Shift-JIS From Unicode", ["$p TestWinIML2_SJIS_FromUnicode" , "$p TestICU_SJIS_FromUnicode" ],
- "Shift-JIS To Unicode", ["$p TestWinIML2_SJIS_ToUnicode" , "$p TestICU_SJIS_ToUnicode" ],
- ####
- "EUC-JP From Unicode", ["$p TestWinIML2_EUCJP_FromUnicode" , "$p TestICU_EUCJP_FromUnicode" ],
- "EUC-JP To Unicode", ["$p TestWinIML2_EUCJP_ToUnicode" , "$p TestICU_EUCJP_ToUnicode" ],
- ####
- "GB2312 From Unicode", ["$p TestWinIML2_GB2312_FromUnicode" , "$p TestICU_GB2312_FromUnicode" ],
- "GB2312 To Unicode", ["$p TestWinIML2_GB2312_ToUnicode" , "$p TestICU_GB2312_ToUnicode" ],
- ####
- "ISO2022KR From Unicode", ["$p TestWinIML2_ISO2022KR_FromUnicode", "$p TestICU_ISO2022KR_FromUnicode" ],
- "ISO2022KR To Unicode", ["$p TestWinIML2_ISO2022KR_ToUnicode" , "$p TestICU_ISO2022KR_ToUnicode" ],
- ####
- "ISO2022JP From Unicode", ["$p TestWinIML2_ISO2022JP_FromUnicode", "$p TestICU_ISO2022JP_FromUnicode" ],
- "ISO2022JP To Unicode", ["$p TestWinIML2_ISO2022JP_ToUnicode" , "$p TestICU_ISO2022JP_ToUnicode" ],
- };
+ "UTF-8 From Unicode", ["$p,TestWinIML2_UTF8_FromUnicode" , "$p,TestICU_UTF8_FromUnicode" ],
+ "UTF-8 To Unicode", ["$p,TestWinIML2_UTF8_ToUnicode" , "$p,TestICU_UTF8_ToUnicode" ],
+ ####
+ "ISO-8859-1 From Unicode", ["$p,TestWinIML2_Latin1_FromUnicode" , "$p,TestICU_Latin1_FromUnicode" ],
+ "ISO-8859-1 To Unicode", ["$p,TestWinIML2_Latin1_ToUnicode" , "$p,TestICU_Latin1_ToUnicode" ],
+ ####
+ "Shift-JIS From Unicode", ["$p,TestWinIML2_SJIS_FromUnicode" , "$p,TestICU_SJIS_FromUnicode" ],
+ "Shift-JIS To Unicode", ["$p,TestWinIML2_SJIS_ToUnicode" , "$p,TestICU_SJIS_ToUnicode" ],
+ ####
+ "EUC-JP From Unicode", ["$p,TestWinIML2_EUCJP_FromUnicode" , "$p,TestICU_EUCJP_FromUnicode" ],
+ "EUC-JP To Unicode", ["$p,TestWinIML2_EUCJP_ToUnicode" , "$p,TestICU_EUCJP_ToUnicode" ],
+ ####
+ "GB2312 From Unicode", ["$p,TestWinIML2_GB2312_FromUnicode" , "$p,TestICU_GB2312_FromUnicode" ],
+ "GB2312 To Unicode", ["$p,TestWinIML2_GB2312_ToUnicode" , "$p,TestICU_GB2312_ToUnicode" ],
+ ####
+ "ISO2022KR From Unicode", ["$p,TestWinIML2_ISO2022KR_FromUnicode", "$p,TestICU_ISO2022KR_FromUnicode" ],
+ "ISO2022KR To Unicode", ["$p,TestWinIML2_ISO2022KR_ToUnicode" , "$p,TestICU_ISO2022KR_ToUnicode" ],
+ ####
+ "ISO2022JP From Unicode", ["$p,TestWinIML2_ISO2022JP_FromUnicode", "$p,TestICU_ISO2022JP_FromUnicode" ],
+ "ISO2022JP To Unicode", ["$p,TestWinIML2_ISO2022JP_ToUnicode" , "$p,TestICU_ISO2022JP_ToUnicode" ],
+};
my $dataFiles = "";
#!/usr/bin/perl
# ********************************************************************
-# * Copyright (c) 2002-2008, International Business Machines
+# * Copyright (c) 2002-2013, International Business Machines
# * Corporation and others. All Rights Reserved.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"Normalization performance: ICU ".$ICULatestVersion." vs. Win",
- "headers"=>"Win ICU".$ICULatestVersion,
- "operationIs"=>"code point",
- "passes"=>"10",
- "time"=>"5",
- #"outputType"=>"HTML",
- "dataDir"=>$CollationDataPath,
- "outputDir"=>"../results"
- };
+ "title"=>"Normalization performance: ICU ".$ICULatestVersion." vs. Win",
+ "headers"=>"Win ICU".$ICULatestVersion,
+ "operationIs"=>"code point",
+ "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 $p = $ICUPathLatest."/normperf/$WindowsPlatform/Release/normperf.exe -b -u";
+my $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/normperf/$WindowsPlatform/Release/normperf.exe -b -u";
my $tests = {
- "NFC_NFD_Text", ["$p TestWin_NFC_NFD_Text" , "$p TestICU_NFC_NFD_Text" ],
- "NFC_NFC_Text", ["$p TestWin_NFC_NFC_Text" , "$p TestICU_NFC_NFC_Text" ],
- "NFC_Orig_Text", ["$p TestWin_NFC_Orig_Text" , "$p TestICU_NFC_Orig_Text"],
- "NFD_NFD_Text", ["$p TestWin_NFD_NFD_Text" , "$p TestICU_NFD_NFD_Text" ],
- "NFD_NFC_Text", ["$p TestWin_NFD_NFC_Text" , "$p TestICU_NFD_NFC_Text" ],
- "NFD_Orig_Text", ["$p TestWin_NFD_Orig_Text" , "$p TestICU_NFD_Orig_Text"]
- };
+ "NFC_NFD_Text", ["$p,TestWin_NFC_NFD_Text" , "$p,TestICU_NFC_NFD_Text" ],
+ "NFC_NFC_Text", ["$p,TestWin_NFC_NFC_Text" , "$p,TestICU_NFC_NFC_Text" ],
+ "NFC_Orig_Text", ["$p,TestWin_NFC_Orig_Text" , "$p,TestICU_NFC_Orig_Text"],
+ "NFD_NFD_Text", ["$p,TestWin_NFD_NFD_Text" , "$p,TestICU_NFD_NFD_Text" ],
+ "NFD_NFC_Text", ["$p,TestWin_NFD_NFC_Text" , "$p,TestICU_NFD_NFC_Text" ],
+ "NFD_Orig_Text", ["$p,TestWin_NFD_Orig_Text" , "$p,TestICU_NFD_Orig_Text"]
+};
my $dataFiles = {
- "",
- [
- "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",
- "th18057.txt",
- "thesis.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",
+ "th18057.txt",
+ "thesis.txt",
+ "vfear11a.txt",
+ ]
+};
runTests($options, $tests, $dataFiles);
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines
+# * Copyright (c) 2002-2013, International Business Machines
# * Corporation and others. All Rights Reserved.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"Normalization performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
- "operationIs"=>"code point",
- "timePerOperationIs"=>"Time per code point",
- "passes"=>"10",
- "time"=>"5",
- #"outputType"=>"HTML",
- "dataDir"=>$CollationDataPath,
- "outputDir"=>"../results"
- };
+ "title"=>"Normalization performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
+ "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
+ "operationIs"=>"code point",
+ "timePerOperationIs"=>"Time per code point",
+ "passes"=>"10",
+ "time"=>"5",
+ #"outputType"=>"HTML",
+ "dataDir"=>$CollationDataPath,
+ "outputDir"=>"../results"
+};
# programs
my $p2; # Latest
if ($OnWindows) {
- $p1 = $ICUPathPrevious."/normperf/$WindowsPlatform/Release/normperf.exe";
- $p2 = $ICUPathLatest."/normperf/$WindowsPlatform/Release/normperf.exe";
+ $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/normperf/$WindowsPlatform/Release/normperf.exe";
+ $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/normperf/$WindowsPlatform/Release/normperf.exe";
} else {
- $p1 = $ICUPathPrevious."/normperf/normperf";
- $p2 = $ICUPathLatest."/normperf/normperf";
+ $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."source/lib:".$ICUPrevious."source/tools/ctestfw ".$ICUPathPrevious."/normperf/normperf";
+ $p2 = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/normperf/normperf";
}
my $dataFiles = {
- "",
- [
- "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",
- "th18057.txt",
- "thesis.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",
+ "th18057.txt",
+ "thesis.txt",
+ "vfear11a.txt",
+ ]
+};
my $tests = {
- "NFC_NFD_Text", ["$p1 TestICU_NFC_NFD_Text" , "$p2 TestICU_NFC_NFD_Text" ],
- "NFC_NFC_Text", ["$p1 TestICU_NFC_NFC_Text" , "$p2 TestICU_NFC_NFC_Text" ],
- "NFC_Orig_Text", ["$p1 TestICU_NFC_Orig_Text" , "$p2 TestICU_NFC_Orig_Text"],
- "NFD_NFD_Text", ["$p1 TestICU_NFD_NFD_Text" , "$p2 TestICU_NFD_NFD_Text" ],
- "NFD_NFC_Text", ["$p1 TestICU_NFD_NFC_Text" , "$p2 TestICU_NFD_NFC_Text" ],
- "NFD_Orig_Text", ["$p1 TestICU_NFD_Orig_Text" , "$p2 TestICU_NFD_Orig_Text"],
- ##
- "QC_NFC_NFD_Text", ["$p1 TestQC_NFC_NFD_Text" , "$p2 TestQC_NFC_NFD_Text" ],
- "QC_NFC_NFC_Text", ["$p1 TestQC_NFC_NFC_Text" , "$p2 TestQC_NFC_NFC_Text" ],
- "QC_NFC_Orig_Text", ["$p1 TestQC_NFC_Orig_Text" , "$p2 TestQC_NFC_Orig_Text"],
- "QC_NFD_NFD_Text", ["$p1 TestQC_NFD_NFD_Text" , "$p2 TestQC_NFD_NFD_Text" ],
- "QC_NFD_NFC_Text", ["$p1 TestQC_NFD_NFC_Text" , "$p2 TestQC_NFD_NFC_Text" ],
- "QC_NFD_Orig_Text", ["$p1 TestQC_NFD_Orig_Text" , "$p2 TestQC_NFD_Orig_Text"],
- ##
- "IsNormalized_NFC_NFD_Text", ["$p1 TestIsNormalized_NFC_NFD_Text" , "$p2 TestIsNormalized_NFC_NFD_Text" ],
- "IsNormalized_NFC_NFC_Text", ["$p1 TestIsNormalized_NFC_NFC_Text" , "$p2 TestIsNormalized_NFC_NFC_Text" ],
- "IsNormalized_NFC_Orig_Text", ["$p1 TestIsNormalized_NFC_Orig_Text" , "$p2 TestIsNormalized_NFC_Orig_Text"],
- "IsNormalized_NFD_NFD_Text", ["$p1 TestIsNormalized_NFD_NFD_Text" , "$p2 TestIsNormalized_NFD_NFD_Text" ],
- "IsNormalized_NFD_NFC_Text", ["$p1 TestIsNormalized_NFD_NFC_Text" , "$p2 TestIsNormalized_NFD_NFC_Text" ],
- "IsNormalized_NFD_Orig_Text", ["$p1 TestIsNormalized_NFD_Orig_Text" , "$p2 TestIsNormalized_NFD_Orig_Text"]
- };
+ "NFC_NFD_Text", ["$p1,TestICU_NFC_NFD_Text" , "$p2,TestICU_NFC_NFD_Text" ],
+ "NFC_NFC_Text", ["$p1,TestICU_NFC_NFC_Text" , "$p2,TestICU_NFC_NFC_Text" ],
+ "NFC_Orig_Text", ["$p1,TestICU_NFC_Orig_Text" , "$p2,TestICU_NFC_Orig_Text"],
+ "NFD_NFD_Text", ["$p1,TestICU_NFD_NFD_Text" , "$p2,TestICU_NFD_NFD_Text" ],
+ "NFD_NFC_Text", ["$p1,TestICU_NFD_NFC_Text" , "$p2,TestICU_NFD_NFC_Text" ],
+ "NFD_Orig_Text", ["$p1,TestICU_NFD_Orig_Text" , "$p2,TestICU_NFD_Orig_Text"],
+ ##
+ "QC_NFC_NFD_Text", ["$p1,TestQC_NFC_NFD_Text" , "$p2,TestQC_NFC_NFD_Text" ],
+ "QC_NFC_NFC_Text", ["$p1,TestQC_NFC_NFC_Text" , "$p2,TestQC_NFC_NFC_Text" ],
+ "QC_NFC_Orig_Text", ["$p1,TestQC_NFC_Orig_Text" , "$p2,TestQC_NFC_Orig_Text"],
+ "QC_NFD_NFD_Text", ["$p1,TestQC_NFD_NFD_Text" , "$p2,TestQC_NFD_NFD_Text" ],
+ "QC_NFD_NFC_Text", ["$p1,TestQC_NFD_NFC_Text" , "$p2,TestQC_NFD_NFC_Text" ],
+ "QC_NFD_Orig_Text", ["$p1,TestQC_NFD_Orig_Text" , "$p2,TestQC_NFD_Orig_Text"],
+ ##
+ "IsNormalized_NFC_NFD_Text", ["$p1,TestIsNormalized_NFC_NFD_Text" , "$p2,TestIsNormalized_NFC_NFD_Text" ],
+ "IsNormalized_NFC_NFC_Text", ["$p1,TestIsNormalized_NFC_NFC_Text" , "$p2,TestIsNormalized_NFC_NFC_Text" ],
+ "IsNormalized_NFC_Orig_Text", ["$p1,TestIsNormalized_NFC_Orig_Text" , "$p2,TestIsNormalized_NFC_Orig_Text"],
+ "IsNormalized_NFD_NFD_Text", ["$p1,TestIsNormalized_NFD_NFD_Text" , "$p2,TestIsNormalized_NFD_NFD_Text" ],
+ "IsNormalized_NFD_NFC_Text", ["$p1,TestIsNormalized_NFD_NFC_Text" , "$p2,TestIsNormalized_NFD_NFC_Text" ],
+ "IsNormalized_NFD_Orig_Text", ["$p1,TestIsNormalized_NFD_Orig_Text" , "$p2,TestIsNormalized_NFD_Orig_Text"]
+};
runTests($options, $tests, $dataFiles);
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2010, International Business Machines Corporation and
+# * Copyright (c) 2010-2013, International Business Machines Corporation and
# * others. All Rights Reserved.
# ********************************************************************
# Settings by user
$ICULatestVersion = ""; # Change to respective version number
$ICUPreviousVersion = ""; # Change to respective version number
-$ICUPrevious2Version = ""; # Change to respective version number
$PerformanceDataPath = ""; #Change to Performance Data Path
$ICULatest = ""; # Change to path of latest ICU (e.g. /home/user/Desktop/icu-4.0)
$ICUPrevious = ""; # Change to path of previous ICU
-$ICUPrevious2 = ""; # Change to path of ICU before previous release
$OnWindows = 0; # Change to 1 if on Windows
$Windows64 = 0; # Change to 1 if on Windows and running 64 bit
$ICUPathLatest = $ICULatest."/source/test/perf";
$ICUPathPrevious = $ICUPrevious."/source/test/perf";
-$ICUPathPrevious2 = $ICUPrevious."/source/test/perf";
$WindowsPlatform = "";
if ($Windows64) {
#!/usr/local/bin/perl
# ***********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines Corporation
+# * Copyright (c) 2002-2013, International Business Machines Corporation
# * and others. All Rights Reserved.
# ***********************************************************************
if($options{"passes"}) {
$NUMPASSES = $options{"passes"};
}
-
+
if($options{"dataDir"}) {
$DATADIR = $options{"dataDir"};
}
# Added by Doug
if ($options{"iterations"}) {
- $ITERATIONS = $options{"iterations"};
+ $ITERATIONS = $options{"iterations"};
}
}
if (%datafiles) {
foreach $locale (sort keys %datafiles ) {
foreach $data (@{ $datafiles{$locale} }) {
- closeTable;
- my $locdata = "";
- if(!($locale eq "")) {
- $locdata = "<b>Locale:</b> $locale<br>";
- }
- $locdata .= "<b>Datafile:</b> $data<br>";
- startTest($locdata);
-
- if($DATADIR) {
- compareLoop ($tests, $locale, $DATADIR."/".$data);
- } else {
- compareLoop ($tests, $locale, $data);
- }
+ closeTable;
+ my $locdata = "";
+ if(!($locale eq "")) {
+ $locdata = "<b>Locale:</b> $locale<br>";
+ }
+ $locdata .= "<b>Datafile:</b> $data<br>";
+ startTest($locdata);
+
+ if($DATADIR) {
+ compareLoop ($tests, $locale, $DATADIR."/".$data);
+ } else {
+ compareLoop ($tests, $locale, $data);
+ }
}
}
} else {
if($datafile) {
$locAndData .= " -f $datafile";
}
-
+
my $args;
my ($i, $j, $aref);
foreach $i ( sort keys %tests ) {
for $j ( 0 .. $#{$aref} ) {
# first we calibrate. Use time from somewhere
# first test is used for calibration
- ($program, @argsAndTest) = split(/\ /, @{ $tests{$i} }[$j]);
+ ($program, @argsAndTest) = split(/,/, @{ $tests{$i} }[$j]);
#Modified by Doug
my $commandLine;
if ($ITERATIONS) {
- $commandLine = "$program -i $ITERATIONS -p $NUMPASSES $locAndData @argsAndTest";
+ $commandLine = "$program -i $ITERATIONS -p $NUMPASSES $locAndData @argsAndTest";
} else {
- $commandLine = "$program -t $TIME -p $NUMPASSES $locAndData @argsAndTest";
- }
+ $commandLine = "$program -t $TIME -p $NUMPASSES $locAndData @argsAndTest";
+ }
#my $commandLine = "$program -i 5 -p $NUMPASSES $locAndData @argsAndTest";
my @res = measure1($commandLine);
store("$i, $program @argsAndTest", @res);
push(@noopers, shift(@res));
my @data = @{ shift(@res) };
if($#res >= 0) {
- push(@noevents, shift(@res));
- }
-
+ push(@noevents, shift(@res));
+ }
shift(@data) if (@data > 1); # discard first run
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2008, International Business Machines
+# * Copyright (c) 2008-2013, International Business Machines
# * Corporation and others. All Rights Reserved.
# ********************************************************************
my $p2; # Latest
if ($OnWindows) {
- $p1 = $ICUPathPrevious . "/strsrchperf/$WindowsPlatform/Release/strsrchperf.exe -b";
- $p2 = $ICUPathLatest . "/strsrchperf/$WindowsPlatform/Release/strsrchperf.exe -b";
+ $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious . "/strsrchperf/$WindowsPlatform/Release/strsrchperf.exe -b";
+ $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest . "/strsrchperf/$WindowsPlatform/Release/strsrchperf.exe -b";
}
else {
- $p1 = $ICUPathPrevious . "/strsrchperf/strsrchperf -b";
- $p2 = $ICUPathLatest . "/strsrchperf/strsrchperf -b";
+ $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."source/lib:".$ICUPrevious."source/tools/ctestfw ".$ICUPathPrevious . "/strsrchperf/strsrchperf -b";
+ $p2 = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest . "/strsrchperf/strsrchperf -b";
}
my $dataFiles = {
+++ /dev/null
-#!/usr/bin/perl
-# ********************************************************************
-# * COPYRIGHT:
-# * 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 ".$ICUPrevious2Version.", ".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPrevious2Version." 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; # Before Previous
-my $p2; # Previous
-my $p3; # Latest
-
-if ($OnWindows) {
- $p1 = $ICUPathPrevious2."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
- $p2 = $ICUPathPrevious."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
- $p3 = $ICUPathLatest."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
-} else {
- $p1 = $ICUPathPrevious2."/ubrkperf/ubrkperf";
- $p2 = $ICUPathPrevious."/ubrkperf/ubrkperf";
- $p3 = $ICUPathLatest."/ubrkperf/ubrkperf";
-}
-
-my $dataFiles = {
-"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", "$p3 $m1 TestICUForward"],
-"TestForwardWord", ["$p1 $m2 TestICUForward", "$p2 $m2 TestICUForward", "$p3 $m2 TestICUForward"],
-"TestForwardLine", ["$p1 $m3 TestICUForward", "$p2 $m3 TestICUForward", "$p3 $m3 TestICUForward"],
-"TestForwardSentence", ["$p1 $m4 TestICUForward", "$p2 $m4 TestICUForward", "$p3 $m4 TestICUForward"],
-
-"TestIsBoundChar", ["$p1 $m1 TestICUIsBound", "$p2 $m1 TestICUIsBound", "$p3 $m1 TestICUIsBound"],
-"TestIsBoundWord", ["$p1 $m2 TestICUIsBound", "$p2 $m2 TestICUIsBound", "$p3 $m2 TestICUIsBound"],
-"TestIsBoundLine", ["$p1 $m3 TestICUIsBound", "$p2 $m3 TestICUIsBound", "$p3 $m3 TestICUIsBound"],
-"TestIsBoundSentence", ["$p1 $m4 TestICUIsBound", "$p2 $m4 TestICUIsBound", "$p3 $m4 TestICUIsBound"],
-
-};
-
-runTests($options, $tests, $dataFiles);
-
-
#!/usr/bin/perl
# ********************************************************************
-# * Copyright (c) 2002-2008, International Business Machines
+# * Copyright (c) 2002-2013, International Business Machines
# * Corporation and others. All Rights Reserved.
# ********************************************************************
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
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);
#!/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.
# ********************************************************************
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);
#!/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.
# ********************************************************************
my $options = {
- "title"=>"Uset performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
- "operationIs"=>"unicode string",
- "passes"=>"1",
- "time"=>"2",
- #"outputType"=>"HTML",
- "dataDir"=>"Not Using Data Files",
- "outputDir"=>"../results"
- };
+ "title"=>"Uset performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
+ "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
+ "operationIs"=>"unicode string",
+ "passes"=>"1",
+ "time"=>"2",
+ #"outputType"=>"HTML",
+ "dataDir"=>"Not Using Data Files",
+ "outputDir"=>"../results"
+};
# programs
# tests will be done for all the programs. Results will be stored and connected
my $p1, $p2;
if ($OnWindows) {
- $p1 = $ICUPathPrevious."/usetperf/$WindowsPlatform/Release/usetperf.exe";
- $p2 = $ICUPathLatest."/usetperf/$WindowsPlatform/Release/usetperf.exe";
+ $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/usetperf/$WindowsPlatform/Release/usetperf.exe";
+ $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/usetperf/$WindowsPlatform/Release/usetperf.exe";
} else {
- $p1 = $ICUPathPrevious."/usetperf/usetperf";
- $p2 = $ICUPathLatest."/usetperf/usetperf";
-
+ $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."source/lib:".$ICUPrevious."source/tools/ctestfw ".$ICUPathPrevious."/usetperf/usetperf";
+ $p2 = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/usetperf/usetperf";
}
my $tests = {
- "titlecase_letter/add", ["$p1 titlecase_letter_add", "$p2 titlecase_letter_add"],
- "titlecase_letter/contains", ["$p1 titlecase_letter_contains", "$p2 titlecase_letter_contains"],
- "titlecase_letter/iterator", ["$p1 titlecase_letter_iterator", "$p2 titlecase_letter_iterator"],
- "unassigned/add", ["$p1 unassigned_add", "$p2 unassigned_add"],
- "unassigned/contains", ["$p1 unassigned_contains", "$p2 unassigned_contains"],
- "unassigned/iterator", ["$p1 unassigned_iterator", "$p2 unassigned_iterator"],
- "pattern1", ["$p1 pattern1", "$p2 pattern1"],
- "pattern2", ["$p1 pattern2", "$p2 pattern2"],
- "pattern3", ["$p1 pattern3", "$p2 pattern3"],
- };
+ "titlecase_letter/add", ["$p1,titlecase_letter_add", "$p2,titlecase_letter_add"],
+ "titlecase_letter/contains", ["$p1,titlecase_letter_contains", "$p2,titlecase_letter_contains"],
+ "titlecase_letter/iterator", ["$p1,titlecase_letter_iterator", "$p2,titlecase_letter_iterator"],
+ "unassigned/add", ["$p1,unassigned_add", "$p2,unassigned_add"],
+ "unassigned/contains", ["$p1,unassigned_contains", "$p2,unassigned_contains"],
+ "unassigned/iterator", ["$p1,unassigned_iterator", "$p2,unassigned_iterator"],
+ "pattern1", ["$p1,pattern1", "$p2,pattern1"],
+ "pattern2", ["$p1,pattern2", "$p2,pattern2"],
+ "pattern3", ["$p1,pattern3", "$p2,pattern3"],
+};
my $dataFiles = {
- };
+};
runTests($options, $tests, $dataFiles);
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2003-2008, International Business Machines Corporation and
+# * Copyright (c) 2003-2013, International Business Machines Corporation and
# * others. All Rights Reserved.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"Unicode String performance: ICU ".$ICULatestVersion." vs. STDLib",
- "headers"=>"StdLib ICU".$ICULatestVersion,
- "operationIs"=>"Unicode String",
- "timePerOperationIs"=>"Time per Unicode String",
- "passes"=>"5",
- "time"=>"2",
- #"outputType"=>"HTML",
- "dataDir"=>$CollationDataPath,
- "outputDir"=>"../results"
- };
+ "title"=>"Unicode String performance: ICU ".$ICULatestVersion." vs. STDLib",
+ "headers"=>"StdLib ICU".$ICULatestVersion,
+ "operationIs"=>"Unicode String",
+ "timePerOperationIs"=>"Time per Unicode String",
+ "passes"=>"5",
+ "time"=>"2",
+ #"outputType"=>"HTML",
+ "dataDir"=>$CollationDataPath,
+ "outputDir"=>"../results"
+};
# programs
# tests will be done for all the programs. Results will be stored and connected
my $p;
if ($OnWindows) {
- $p = $ICUPathLatest."/ustrperf/$WindowsPlatform/Release/stringperf.exe -l -u";
+ $p = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/ustrperf/$WindowsPlatform/Release/stringperf.exe -l -u";
} else {
- $p = $ICUPathLatest."/ustrperf/stringperf -l -u";
+ $p = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/ustrperf/stringperf -l -u";
}
my $tests = {
-"Object Construction(empty string)", ["$p TestStdLibCtor" , "$p TestCtor" ],
-"Object Construction(single char)", ["$p TestStdLibCtor1" , "$p TestCtor1" ],
-"Object Construction(another string)", ["$p TestStdLibCtor2" , "$p TestCtor2" ],
-"Object Construction(string literal)", ["$p TestStdLibCtor3" , "$p TestCtor3" ],
-"String Assignment(helper)", ["$p TestStdLibAssign" , "$p TestAssign" ],
-"String Assignment(string literal)", ["$p TestStdLibAssign1" , "$p TestAssign1" ],
-"String Assignment(another string)", ["$p TestStdLibAssign2" , "$p TestAssign2" ],
-"Get String or Character", ["$p TestStdLibGetch" , "$p TestGetch" ],
-"Concatenation", ["$p TestStdLibCatenate" , "$p TestCatenate" ],
-"String Scanning(char)", ["$p TestStdLibScan" , "$p TestScan" ],
-"String Scanning(string)", ["$p TestStdLibScan1" , "$p TestScan1" ],
-"String Scanning(char set)", ["$p TestStdLibScan2" , "$p TestScan2" ],
+ "Object Construction(empty string)", ["$p,TestStdLibCtor" , "$p,TestCtor" ],
+ "Object Construction(single char)", ["$p,TestStdLibCtor1" , "$p,TestCtor1" ],
+ "Object Construction(another string)", ["$p,TestStdLibCtor2" , "$p,TestCtor2" ],
+ "Object Construction(string literal)", ["$p,TestStdLibCtor3" , "$p,TestCtor3" ],
+ "String Assignment(helper)", ["$p,TestStdLibAssign" , "$p,TestAssign" ],
+ "String Assignment(string literal)", ["$p,TestStdLibAssign1" , "$p,TestAssign1" ],
+ "String Assignment(another string)", ["$p,TestStdLibAssign2" , "$p,TestAssign2" ],
+ "Get String or Character", ["$p,TestStdLibGetch" , "$p,TestGetch" ],
+ "Concatenation", ["$p,TestStdLibCatenate" , "$p,TestCatenate" ],
+ "String Scanning(char)", ["$p,TestStdLibScan" , "$p,TestScan" ],
+ "String Scanning(string)", ["$p,TestStdLibScan1" , "$p,TestScan1" ],
+ "String Scanning(char set)", ["$p,TestStdLibScan2" , "$p,TestScan2" ],
};
my $dataFiles = {
- "",
- [
- "TestNames_Asian.txt",
- "TestNames_Chinese.txt",
- "TestNames_Simplified_Chinese.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",
- "th18057.txt",
- ]
- };
+ "",
+ [
+ "TestNames_Asian.txt",
+ "TestNames_Chinese.txt",
+ "TestNames_Simplified_Chinese.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",
+ "th18057.txt",
+ ]
+};
runTests($options, $tests, $dataFiles);
#!/usr/bin/perl
# ********************************************************************
# * COPYRIGHT:
-# * Copyright (c) 2002-2008, International Business Machines
+# * Copyright (c) 2002-2013, International Business Machines
# * Corporation and others. All Rights Reserved.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"Unicode String performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
- "operationIs"=>"Unicode String",
- "passes"=>"10",
- "time"=>"5",
- #"outputType"=>"HTML",
- "dataDir"=>$CollationDataPath,
- "outputDir"=>"../results"
- };
+ "title"=>"Unicode String performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
+ "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
+ "operationIs"=>"Unicode String",
+ "passes"=>"10",
+ "time"=>"5",
+ #"outputType"=>"HTML",
+ "dataDir"=>$CollationDataPath,
+ "outputDir"=>"../results"
+};
# programs
my $p2; # Latest
if ($OnWindows) {
- $p1 = $ICUPathPrevious."/ustrperf/$WindowsPlatform/Release/stringperf.exe -b -u"; # Previous
- $p2 = $ICUPathLatest."/ustrperf/$WindowsPlatform/Release/stringperf.exe -b -u"; # Latest
+ $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/ustrperf/$WindowsPlatform/Release/stringperf.exe -b -u"; # Previous
+ $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/ustrperf/$WindowsPlatform/Release/stringperf.exe -b -u"; # Latest
} else {
- $p1 = $ICUPathPrevious."/ustrperf/stringperf -b -u"; # Previous
- $p2 = $ICUPathLatest."/ustrperf/stringperf -b -u"; # Latest
+ $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."source/lib:".$ICUPrevious."source/tools/ctestfw ".$ICUPathPrevious."/ustrperf/stringperf -b -u"; # Previous
+ $p2 = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/ustrperf/stringperf -b -u"; # Latest
}
my $dataFiles = {
- "",
- [
- "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",
- "th18057.txt",
- "thesis.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",
+ "th18057.txt",
+ "thesis.txt",
+ "vfear11a.txt",
+ ]
+};
my $tests = {
-"Object Construction(empty string)", ["$p1 TestCtor" , "$p2 TestCtor" ],
-"Object Construction(single char)", ["$p1 TestCtor1" , "$p2 TestCtor1" ],
-"Object Construction(another string)", ["$p1 TestCtor2" , "$p2 TestCtor2" ],
-"Object Construction(string literal)", ["$p1 TestCtor3" , "$p2 TestCtor3" ],
-"String Assignment(helper)", ["$p1 TestAssign" , "$p2 TestAssign" ],
-"String Assignment(string literal)", ["$p1 TestAssign1" , "$p2 TestAssign1" ],
-"String Assignment(another string)", ["$p1 TestAssign2" , "$p2 TestAssign2" ],
-"Get String or Character", ["$p1 TestGetch" , "$p2 TestGetch" ],
-"Concatenation", ["$p1 TestCatenate" , "$p2 TestCatenate" ],
-"String Scanning(char)", ["$p1 TestScan" , "$p2 TestScan" ],
-"String Scanning(string)", ["$p1 TestScan1" , "$p2 TestScan1" ],
-"String Scanning(char set)", ["$p1 TestScan2" , "$p2 TestScan2" ],
+ "Object Construction(empty string)", ["$p1,TestCtor" , "$p2,TestCtor" ],
+ "Object Construction(single char)", ["$p1,TestCtor1" , "$p2,TestCtor1" ],
+ "Object Construction(another string)", ["$p1,TestCtor2" , "$p2,TestCtor2" ],
+ "Object Construction(string literal)", ["$p1,TestCtor3" , "$p2,TestCtor3" ],
+ "String Assignment(helper)", ["$p1,TestAssign" , "$p2,TestAssign" ],
+ "String Assignment(string literal)", ["$p1,TestAssign1" , "$p2,TestAssign1" ],
+ "String Assignment(another string)", ["$p1,TestAssign2" , "$p2,TestAssign2" ],
+ "Get String or Character", ["$p1,TestGetch" , "$p2,TestGetch" ],
+ "Concatenation", ["$p1,TestCatenate" , "$p2,TestCatenate" ],
+ "String Scanning(char)", ["$p1,TestScan" , "$p2,TestScan" ],
+ "String Scanning(string)", ["$p1,TestScan1" , "$p2,TestScan1" ],
+ "String Scanning(char set)", ["$p1,TestScan2" , "$p2,TestScan2" ],
};
#!/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.
# ********************************************************************
use PerfFramework;
my $options = {
- "title"=>"UTF performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
- "operationIs"=>"gb18030 encoding string",
- "passes"=>"1",
- "time"=>"2",
- #"outputType"=>"HTML",
- "dataDir"=>$ConversionDataPath,
- "outputDir"=>"../results"
- };
+ "title"=>"UTF performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
+ "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
+ "operationIs"=>"gb18030 encoding string",
+ "passes"=>"1",
+ "time"=>"2",
+ #"outputType"=>"HTML",
+ "dataDir"=>$ConversionDataPath,
+ "outputDir"=>"../results"
+};
# programs
# tests will be done for all the programs. Results will be stored and connected
my $p2;
if ($OnWindows) {
- $p1 = $ICUPathPrevious."/utfperf/$WindowsPlatform/Release/utfperf.exe -e gb18030"; # Previous
- $p2 = $ICUPathLatest."/utfperf/$WindowsPlatform/Release/utfperf.exe -e gb18030"; # Latest
+ $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/utfperf/$WindowsPlatform/Release/utfperf.exe -e gb18030"; # Previous
+ $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/utfperf/$WindowsPlatform/Release/utfperf.exe -e gb18030"; # Latest
} else {
- $p1 = $ICUPathPrevious."/utfperf/utfperf -e gb18030"; # Previous
- $p2 = $ICUPathLatest."/utfperf/utfperf -e gb18030"; # Latest
+ $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."source/lib:".$ICUPrevious."source/tools/ctestfw ".$ICUPathPrevious."/utfperf/utfperf -e gb18030"; # Previous
+ $p2 = "LD_LIBRARY_PATH=".$ICULatest."source/lib:".$ICULatest."source/tools/ctestfw ".$ICUPathLatest."/utfperf/utfperf -e gb18030"; # Latest
}
my $tests = {
- "Roundtrip", ["$p1 Roundtrip", "$p2 Roundtrip"],
- "FromUnicode", ["$p1 FromUnicode", "$p2 FromUnicode"],
- "FromUTF8", ["$p1 FromUTF8", "$p2 FromUTF8"],
- #"UTF-8", ["$p UTF_8"],
- #"UTF-8 small buffer", ["$p UTF_8_SB"],
- #"SCSU", ["$p SCSU"],
- #"SCSU small buffer", ["$p SCSU_SB"],
- #"BOCU_1", ["$p BOCU_1"],
- #"BOCU_1 small buffer", ["$p BOCU_1_SB"],
- };
+ "Roundtrip", ["$p1,Roundtrip", "$p2,Roundtrip"],
+ "FromUnicode", ["$p1,FromUnicode", "$p2,FromUnicode"],
+ "FromUTF8", ["$p1,FromUTF8", "$p2,FromUTF8"],
+};
my $dataFiles = {
- "",
- [
- "xuzhimo.txt"
- ]
- };
+ "", ["xuzhimo.txt"]
+};
runTests($options, $tests, $dataFiles);
+++ /dev/null
-#!/usr/bin/perl
-# ********************************************************************
-# * COPYRIGHT:
-# * Copyright (c) 2005-2008, International Business Machines Corporation and
-# * others. All Rights Reserved.
-# ********************************************************************
-
-#use strict;
-
-require "../perldriver/Common.pl";
-
-use lib '../perldriver';
-
-use PerfFramework;
-
-my $options = {
- "title"=>"UTF performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
- "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
- "operationIs"=>"gb18030 encoding string",
- "passes"=>"1",
- "time"=>"2",
- #"outputType"=>"HTML",
- "dataDir"=>$ConversionDataPath,
- "outputDir"=>"../results"
- };
-
-# programs
-# tests will be done for all the programs. Results will be stored and connected
-my $p1;
-my $p2;
-
-if ($OnWindows) {
- $p1 = $ICUPathPrevious."/utfperf/$WindowsPlatform/Release/utfperf.exe -e gb18030"; # Previous
- $p2 = $ICUPathLatest."/utfperf/$WindowsPlatform/Release/utfperf.exe -e gb18030"; # Latest
-} else {
- $p1 = $ICUPathPrevious."/utfperf/utfperf -e gb18030"; # Previous
- $p2 = $ICUPathLatest."/utfperf/utfperf -e gb18030"; # Latest
-}
-
-my $tests = {
- "Roundtrip", ["$p1 Roundtrip", "$p2 Roundtrip"],
- "FromUnicode", ["$p1 FromUnicode", "$p2 FromUnicode"],
- "FromUTF8", ["$p1 FromUTF8", "$p2 FromUTF8"],
- #"UTF-8", ["$p UTF_8"],
- #"UTF-8 small buffer", ["$p UTF_8_SB"],
- #"SCSU", ["$p SCSU"],
- #"SCSU small buffer", ["$p SCSU_SB"],
- #"BOCU_1", ["$p BOCU_1"],
- #"BOCU_1 small buffer", ["$p BOCU_1_SB"],
- };
-
-my $dataFiles = {
- "",
- [
- "xuzhimo.txt"
- ]
- };
-
-runTests($options, $tests, $dataFiles);
projects / icu / commitdiff