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