1 #!/usr/bin/perl 2 # ******************************************************************** 3 # * COPYRIGHT: 4 # * Copyright (c) 2002-2008, International Business Machines 5 # * Corporation and others. All Rights Reserved. 6 # ******************************************************************** 7 8 #use strict; 9 10 require "../perldriver/Common.pl"; 11 12 use lib '../perldriver'; 13 14 use PerfFramework; 15 16 my $options = { 17 "title"=>"Character property performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")", 18 "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion, 19 "operationIs"=>"code point", 20 "timePerOperationIs"=>"Time per code point", 21 "passes"=>"10", 22 "time"=>"5", 23 #"outputType"=>"HTML", 24 "dataDir"=>"Not Using Data Files", 25 "outputDir"=>"../results" 26 }; 27 28 # programs 29 30 my $p1; # Previous 31 my $p2; # Latest 32 if ($OnWindows) { 33 $p1 = $ICUPathPrevious."/charperf/$WindowsPlatform/Release/charperf.exe"; 34 $p2 = $ICUPathLatest."/charperf/$WindowsPlatform/Release/charperf.exe"; 35 } else { 36 $p1 = $ICUPathPrevious."/charperf/charperf"; 37 $p2 = $ICUPathLatest."/charperf/charperf"; 38 } 39 40 my $dataFiles = ""; 41 42 43 my $tests = { 44 "isAlpha", ["$p1 TestIsAlpha" , "$p2 TestIsAlpha" ], 45 "isUpper", ["$p1 TestIsUpper" , "$p2 TestIsUpper" ], 46 "isLower", ["$p1 TestIsLower" , "$p2 TestIsLower" ], 47 "isDigit", ["$p1 TestIsDigit" , "$p2 TestIsDigit" ], 48 "isSpace", ["$p1 TestIsSpace" , "$p2 TestIsSpace" ], 49 "isAlphaNumeric", ["$p1 TestIsAlphaNumeric" , "$p2 TestIsAlphaNumeric" ], 50 "isPrint", ["$p1 TestIsPrint" , "$p2 TestIsPrint" ], 51 "isControl", ["$p1 TestIsControl" , "$p2 TestIsControl" ], 52 "toLower", ["$p1 TestToLower" , "$p2 TestToLower" ], 53 "toUpper", ["$p1 TestToUpper" , "$p2 TestToUpper" ], 54 "isWhiteSpace", ["$p1 TestIsWhiteSpace" , "$p2 TestIsWhiteSpace" ], 55 }; 56 57 runTests($options, $tests, $dataFiles); 58 59 60
