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/$WindowsPlatform/Release/usetperf.exe"; 34 $p2 = $ICUPathLatest."/usetperf/$WindowsPlatform/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); 57
