icuSources/test/perf/usetperf/UsetPerf.pl

   1 #!/usr/bin/perl
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2005-2008, International Business Machines Corporation and
   5 #  * 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
  17
  18 my $options = {
  19                "title"=>"Uset performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
  20            "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
  21                "operationIs"=>"unicode string",
  22                "passes"=>"1",
  23                "time"=>"2",
  24                #"outputType"=>"HTML",
  25                "dataDir"=>"Not Using Data Files",
  26            "outputDir"=>"../results"
  27               };
  28
  29 # programs
  30 # tests will be done for all the programs. Results will be stored and connected
  31 my $p1, $p2;
  32 if ($OnWindows) {
  33         $p1 = $ICUPathPrevious."/usetperf/Release/usetperf.exe";
  34         $p2 = $ICUPathLatest."/usetperf/Release/usetperf.exe";
  35 } else {
  36         $p1 = $ICUPathPrevious."/usetperf/usetperf";
  37         $p2 = $ICUPathLatest."/usetperf/usetperf";
  38
  39 }
  40
  41 my $tests = {
  42              "titlecase_letter/add",  ["$p1 titlecase_letter_add", "$p2 titlecase_letter_add"],
  43              "titlecase_letter/contains",  ["$p1 titlecase_letter_contains", "$p2 titlecase_letter_contains"],
  44              "titlecase_letter/iterator",  ["$p1 titlecase_letter_iterator", "$p2 titlecase_letter_iterator"],
  45              "unassigned/add",  ["$p1 unassigned_add", "$p2 unassigned_add"],
  46              "unassigned/contains",  ["$p1 unassigned_contains", "$p2 unassigned_contains"],
  47              "unassigned/iterator",  ["$p1 unassigned_iterator", "$p2 unassigned_iterator"],
  48              "pattern1",  ["$p1 pattern1", "$p2 pattern1"],
  49              "pattern2",  ["$p1 pattern2", "$p2 pattern2"],
  50              "pattern3",  ["$p1 pattern3", "$p2 pattern3"],
  51             };
  52
  53 my $dataFiles = {
  54                 };
  55
  56 runTests($options, $tests, $dataFiles);