icuSources/test/perf/charperf/CharPerf.pl

   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/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);