summaryrefslogtreecommitdiff
path: root/Build/source/libs/icu/icu-4.4/test/perf/strsrchperf/StrSrchPerf_r.pl
diff options
context:
space:
mode:
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.pl62
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 );
-
-