1 #!/usr/bin/perl 2 # ******************************************************************** 3 # * Copyright (C) 2016 and later: Unicode, Inc. and others. 4 # * License & terms of use: http://www.unicode.org/copyright.html#License 5 # ******************************************************************** 6 # ******************************************************************** 7 # * COPYRIGHT: 8 # * Copyright (c) 2005-2013, International Business Machines Corporation and 9 # * others. All Rights Reserved. 10 # ******************************************************************** 11 12 #use strict; 13 14 require "../perldriver/Common.pl"; 15 16 use lib '../perldriver'; 17 18 use PerfFramework; 19 20 21 22 my $options = { 23 "title"=>"Uset performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")", 24 "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion, 25 "operationIs"=>"unicode string", 26 "passes"=>"1", 27 "time"=>"2", 28 #"outputType"=>"HTML", 29 "dataDir"=>"Not Using Data Files", 30 "outputDir"=>"../results" 31 }; 32 33 # programs 34 # tests will be done for all the programs. Results will be stored and connected 35 my $p1, $p2; 36 if ($OnWindows) { 37 $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/usetperf/$WindowsPlatform/Release/usetperf.exe"; 38 $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/usetperf/$WindowsPlatform/Release/usetperf.exe"; 39 } else { 40 $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."/source/lib:".$ICUPrevious."/source/tools/ctestfw ".$ICUPathPrevious."/usetperf/usetperf"; 41 $p2 = "LD_LIBRARY_PATH=".$ICULatest."/source/lib:".$ICULatest."/source/tools/ctestfw ".$ICUPathLatest."/usetperf/usetperf"; 42 } 43 44 my $tests = { 45 "titlecase_letter/add", ["$p1,titlecase_letter_add", "$p2,titlecase_letter_add"], 46 "titlecase_letter/contains", ["$p1,titlecase_letter_contains", "$p2,titlecase_letter_contains"], 47 "titlecase_letter/iterator", ["$p1,titlecase_letter_iterator", "$p2,titlecase_letter_iterator"], 48 "unassigned/add", ["$p1,unassigned_add", "$p2,unassigned_add"], 49 "unassigned/contains", ["$p1,unassigned_contains", "$p2,unassigned_contains"], 50 "unassigned/iterator", ["$p1,unassigned_iterator", "$p2,unassigned_iterator"], 51 "pattern1", ["$p1,pattern1", "$p2,pattern1"], 52 "pattern2", ["$p1,pattern2", "$p2,pattern2"], 53 "pattern3", ["$p1,pattern3", "$p2,pattern3"], 54 }; 55 56 my $dataFiles = { 57 }; 58 59 runTests($options, $tests, $dataFiles); 60