icuSources/test/perf/usetperf/UsetPerf.pl

   1 #!/usr/bin/perl -w
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2005, International Business Machines Corporation and
   5 #  * others. All Rights Reserved.
   6 #  ********************************************************************
   7
   8 use strict;
   9
  10 use lib '../perldriver';
  11
  12 use PerfFramework;
  13
  14
  15 my $options = {
  16                "title"=>"Uset performance: ICU",
  17                "headers"=>"ICU",
  18                "operationIs"=>"unicode string",
  19                "passes"=>"1",
  20                "time"=>"2",
  21                #"outputType"=>"HTML",
  22                "dataDir"=>"../data",
  23                "outputDir"=>"../results"
  24               };
  25
  26 # programs
  27 # tests will be done for all the programs. Results will be stored and connected
  28 my $p = "debug/usetperf.exe ";
  29
  30 my $tests = {
  31              "titlecase_letter/add",  ["$p titlecase_letter_add"],
  32              "titlecase_letter/contains",  ["$p titlecase_letter_contains"],
  33              "titlecase_letter/iterator",  ["$p titlecase_letter_iterator"],
  34              "unassigned/add",  ["$p unassigned_add"],
  35              "unassigned/contains",  ["$p unassigned_contains"],
  36              "unassigned/iterator",  ["$p unassigned_iterator"],
  37              "pattern1",  ["$p pattern1"],
  38              "pattern2",  ["$p pattern2"],
  39              "pattern3",  ["$p pattern3"],
  40             };
  41
  42 my $dataFiles = {
  43                 };
  44
  45 runTests($options, $tests, $dataFiles);