icuSources/test/perf/usetperf/UsetPerf.pl

   1 #!/usr/bin/perl
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2005-2013, 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 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/usetperf/$WindowsPlatform/Release/usetperf.exe";
  34     $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/usetperf/$WindowsPlatform/Release/usetperf.exe";
  35 } else {
  36     $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."/source/lib:".$ICUPrevious."/source/tools/ctestfw ".$ICUPathPrevious."/usetperf/usetperf";
  37     $p2 = "LD_LIBRARY_PATH=".$ICULatest."/source/lib:".$ICULatest."/source/tools/ctestfw ".$ICUPathLatest."/usetperf/usetperf";
  38 }
  39
  40 my $tests = {
  41     "titlecase_letter/add",  ["$p1,titlecase_letter_add", "$p2,titlecase_letter_add"],
  42     "titlecase_letter/contains",  ["$p1,titlecase_letter_contains", "$p2,titlecase_letter_contains"],
  43     "titlecase_letter/iterator",  ["$p1,titlecase_letter_iterator", "$p2,titlecase_letter_iterator"],
  44     "unassigned/add",  ["$p1,unassigned_add", "$p2,unassigned_add"],
  45     "unassigned/contains",  ["$p1,unassigned_contains", "$p2,unassigned_contains"],
  46     "unassigned/iterator",  ["$p1,unassigned_iterator", "$p2,unassigned_iterator"],
  47     "pattern1",  ["$p1,pattern1", "$p2,pattern1"],
  48     "pattern2",  ["$p1,pattern2", "$p2,pattern2"],
  49     "pattern3",  ["$p1,pattern3", "$p2,pattern3"],
  50 };
  51
  52 my $dataFiles = {
  53 };
  54
  55 runTests($options, $tests, $dataFiles);