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 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 = $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 41my $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 53my $dataFiles = { 54 }; 55 56runTests($options, $tests, $dataFiles); 57