2004-05-14 02:51:34 +00:00
|
|
|
#!/usr/bin/perl -w
|
|
|
|
|
# ********************************************************************
|
|
|
|
|
# * COPYRIGHT:
|
2004-05-20 00:15:42 +00:00
|
|
|
# * Copyright (c) 2003-2004, International Business Machines Corporation and
|
2004-05-14 02:51:34 +00:00
|
|
|
# * others. All Rights Reserved.
|
|
|
|
|
# ********************************************************************
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
use strict;
|
|
|
|
|
|
|
|
|
|
use lib '../perldriver';
|
|
|
|
|
|
|
|
|
|
use PerfFramework;
|
|
|
|
|
|
|
|
|
|
my $options = {
|
|
|
|
|
"title"=>"Unicode String performance: ICU vs. STDLib",
|
|
|
|
|
"headers"=>"StdLib ICU",
|
|
|
|
|
"operationIs"=>"Unicode String",
|
|
|
|
|
"timePerOperationIs"=>"Time per Unicode String",
|
|
|
|
|
"passes"=>"5",
|
|
|
|
|
"time"=>"2",
|
|
|
|
|
#"outputType"=>"HTML",
|
|
|
|
|
"dataDir"=>"c:/src/perf/data",
|
|
|
|
|
"outputDir"=>"../results"
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
# programs
|
|
|
|
|
# tests will be done for all the programs. Results will be stored and connected
|
|
|
|
|
my $p = "stringperf.exe -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" ],
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
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",
|
|
|
|
|
]
|
|
|
|
|
};
|
|
|
|
|
|
|
|
|
|
runTests($options, $tests, $dataFiles);
|
|
|
|
|
|
|
|
|
|
# The whole command line would be something like:
|
|
|
|
|
# stringperf.exe -p 5 -t 2 -f c:/src/data/perf/TestNames_Asian.txt -l -u TestStdLibCatenate
|
