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