summaryrefslogtreecommitdiff
path: root/Build/source/libs/icu/icu-4.6/test/perf/unisetperf/unisetperf.pl
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/libs/icu/icu-4.6/test/perf/unisetperf/unisetperf.pl')
-rwxr-xr-xBuild/source/libs/icu/icu-4.6/test/perf/unisetperf/unisetperf.pl86
1 files changed, 86 insertions, 0 deletions
diff --git a/Build/source/libs/icu/icu-4.6/test/perf/unisetperf/unisetperf.pl b/Build/source/libs/icu/icu-4.6/test/perf/unisetperf/unisetperf.pl
new file mode 100755
index 00000000000..5e984c6fad6
--- /dev/null
+++ b/Build/source/libs/icu/icu-4.6/test/perf/unisetperf/unisetperf.pl
@@ -0,0 +1,86 @@
+#!/usr/bin/perl
+# ********************************************************************
+# * COPYRIGHT:
+# * Copyright (c) 2005-2008, International Business Machines Corporation and
+# * others. All Rights Reserved.
+# ********************************************************************
+
+#use strict;
+
+require "../perldriver/Common.pl";
+
+use lib '../perldriver';
+
+use PerfFramework;
+
+my $options = {
+ "title"=>"UnicodeSet span()/contains() performance",
+ "headers"=>"Bv Bv0",
+ "operationIs"=>"tested Unicode code point",
+ "passes"=>"3",
+ "time"=>"2",
+ #"outputType"=>"HTML",
+ "dataDir"=>$UDHRDataPath,
+ "outputDir"=>"../results"
+ };
+
+# programs
+# tests will be done for all the programs. Results will be stored and connected
+my $p;
+if ($OnWindows) {
+ $p = $ICUPathLatest."/unisetperf/$WindowsPlatform/Release/unisetperf.exe";
+} else {
+ $p = $ICUPathLatest."/unisetperf/unisetperf";
+}
+my $pc = "$p Contains";
+my $p16 = "$p SpanUTF16";
+my $p8 = "$p SpanUTF8";
+
+my $tests = {
+ "Contains", ["$pc --type Bv",
+ "$pc --type Bv0"
+ ],
+ "SpanUTF16", ["$p16 --type Bv",
+ "$p16 --type Bv0"
+ ]
+ };
+
+my $dataFiles = {
+ "",
+ [
+ "udhr_eng.txt",
+ "udhr_deu_1996.txt",
+ "udhr_fra.txt",
+ "udhr_rus.txt",
+ "udhr_tha.txt",
+ "udhr_jpn.txt",
+ "udhr_cmn_hans.txt",
+ "udhr_cmn_hant.txt",
+ "udhr_jpn.html"
+ ]
+ };
+
+runTests($options, $tests, $dataFiles);
+
+$options = {
+ "title"=>"UnicodeSet span()/contains() performance",
+ "headers"=>"Bv BvF Bvp BvpF L Bvl",
+ "operationIs"=>"tested Unicode code point",
+ "passes"=>"3",
+ "time"=>"2",
+ #"outputType"=>"HTML",
+ "dataDir"=>$UDHRDataPath,
+ "outputDir"=>"../results"
+ };
+
+$tests = {
+ "SpanUTF8", ["$p8 --type Bv",
+ "$p8 --type BvF",
+ "$p8 --type Bvp",
+ "$p8 --type BvpF",
+ "$p8 --type L",
+ "$p8 --type Bvl"
+ ]
+ };
+
+runTests($options, $tests, $dataFiles);