Home | History | Annotate | Download | only in usetperf 
      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);
     56