icuSources/test/perf/charperf/CharPerf.pl

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