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 10require "../perldriver/Common.pl"; 11 12use lib '../perldriver'; 13 14use PerfFramework; 15 16 17 18my $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 31my $p1, $p2; 32if ($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 40my $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 52my $dataFiles = { 53}; 54 55runTests($options, $tests, $dataFiles); 56