diff options
Diffstat (limited to 'Build/source/libs/icu/icu-4.4/test/perf/strsrchperf/StrSrchPerf_r.pl')
-rw-r--r-- | Build/source/libs/icu/icu-4.4/test/perf/strsrchperf/StrSrchPerf_r.pl | 62 |
1 files changed, 0 insertions, 62 deletions
diff --git a/Build/source/libs/icu/icu-4.4/test/perf/strsrchperf/StrSrchPerf_r.pl b/Build/source/libs/icu/icu-4.4/test/perf/strsrchperf/StrSrchPerf_r.pl deleted file mode 100644 index ea7b082dcb8..00000000000 --- a/Build/source/libs/icu/icu-4.4/test/perf/strsrchperf/StrSrchPerf_r.pl +++ /dev/null @@ -1,62 +0,0 @@ -#!/usr/bin/perl -# ******************************************************************** -# * COPYRIGHT: -# * Copyright (c) 2008, International Business Machines -# * Corporation and others. All Rights Reserved. -# ******************************************************************** - -#use strict; - -require "../perldriver/Common.pl"; - -use lib '../perldriver'; - -use PerfFramework; - -my $options = { - "title" => "String search performance regression: ICU (" - . $ICUPreviousVersion . " and " - . $ICULatestVersion . ")", - "headers" => "ICU" . $ICUPreviousVersion . " ICU" . $ICULatestVersion, - "operationIs" => "code point", - "timePerOperationIs" => "Time per code point", - "passes" => "10", - "time" => "5", - - #"outputType"=>"HTML", - "dataDir" => $UDHRDataPath, - "outputDir" => "../results" -}; - -# programs - -my $p1; # Previous -my $p2; # Latest - -if ($OnWindows) { - $p1 = $ICUPathPrevious . "/strsrchperf/$WindowsPlatform/Release/strsrchperf.exe -b"; - $p2 = $ICUPathLatest . "/strsrchperf/$WindowsPlatform/Release/strsrchperf.exe -b"; -} -else { - $p1 = $ICUPathPrevious . "/strsrchperf/strsrchperf -b"; - $p2 = $ICUPathLatest . "/strsrchperf/strsrchperf -b"; -} - -my $dataFiles = { - "en" => ["udhr_eng.txt"], - "de" => ["udhr_deu_1996.txt"], - "fr" => ["udhr_fra.txt"], - "ru" => ["udhr_rus.txt"], - "th" => ["udhr_tha.txt"], - "ja" => ["udhr_jpn.txt"], - "zh" => ["udhr_cmn_hans.txt"], -}; - -my $tests = { - "ICU Forward Search", [ "$p1 Test_ICU_Forward_Search", "$p2 Test_ICU_Forward_Search" ], - "ICU Backward Search",[ "$p1 Test_ICU_Backward_Search", "$p2 Test_ICU_Backward_Search" ], -}; - -runTests( $options, $tests, $dataFiles ); - - |