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 9use strict; 10 11use lib '../perldriver'; 12 13use PerfFramework; 14 15my $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 30my $p = "charperf.exe"; 31 32my $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 46my $dataFiles; 47 48runTests($options, $tests, $dataFiles); 49