[apple/icu.git] / icuSources / test / perf / charperf / CharPerf.pl

#!/usr/bin/perl -w
#  ********************************************************************
#  * COPYRIGHT:
#  * Copyright (c) 2002, International Business Machines Corporation and
#  * others. All Rights Reserved.
#  ********************************************************************


use strict;

use lib '../perldriver';

use PerfFramework;

my $options = {
	       "title"=>"Character property performance: ICU vs. STDLib",
	       "headers"=>"StdLib ICU",
	       "operationIs"=>"code point",
	       "timePerOperationIs"=>"Time per code point",
	       "passes"=>"10",
	       "time"=>"5",
	       #"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 = "charperf.exe";

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"   ],
};

my $dataFiles;

runTests($options, $tests, $dataFiles);
Commit	Line	Data
b75a7d8f A	1	#!/usr/bin/perl -w
	2	# ********************************************************************
	3	# * COPYRIGHT:
	4	# * Copyright (c) 2002, International Business Machines Corporation and
	5	# * others. All Rights Reserved.
	6	# ********************************************************************
	7
	8
	9	use strict;
	10
	11	use lib '../perldriver';
	12
	13	use PerfFramework;
	14
	15	my $options = {
	16	"title"=>"Character property performance: ICU vs. STDLib",
	17	"headers"=>"StdLib ICU",
	18	"operationIs"=>"code point",
	19	"timePerOperationIs"=>"Time per code point",
	20	"passes"=>"10",
	21	"time"=>"5",
	22	#"outputType"=>"HTML",
	23	"dataDir"=>"c:/src/perf/data",
	24	"outputDir"=>"../results"
	25	};
	26
	27
	28	# programs
	29	# tests will be done for all the programs. Results will be stored and connected
	30	my $p = "charperf.exe";
	31
	32	my $tests = {
	33	"isAlpha", ["$p TestStdLibIsAlpha" , "$p TestIsAlpha" ],
	34	"isUpper", ["$p TestStdLibIsUpper" , "$p TestIsUpper" ],
	35	"isLower", ["$p TestStdLibIsLower" , "$p TestIsLower" ],
	36	"isDigit", ["$p TestStdLibIsDigit" , "$p TestIsDigit" ],
	37	"isSpace", ["$p TestStdLibIsSpace" , "$p TestIsSpace" ],
	38	"isAlphaNumeric", ["$p TestStdLibIsAlphaNumeric" , "$p TestIsAlphaNumeric" ],
	39	"isPrint", ["$p TestStdLibIsPrint" , "$p TestIsPrint" ],
	40	"isControl", ["$p TestStdLibIsControl" , "$p TestIsControl" ],
	41	"toLower", ["$p TestStdLibToLower" , "$p TestToLower" ],
	42	"toUpper", ["$p TestStdLibToUpper" , "$p TestToUpper" ],
	43	"isWhiteSpace", ["$p TestStdLibIsWhiteSpace" , "$p TestIsWhiteSpace" ],
	44	};
	45
	46	my $dataFiles;
	47
	48	runTests($options, $tests, $dataFiles);