Check in the pristine copy of ICU 4.6...

icu46/source/test/perf/unisetperf/unisetperf.pl

Index: icu46/source/test/perf/unisetperf/unisetperf.pl
===================================================================
--- icu46/source/test/perf/unisetperf/unisetperf.pl	(revision 0)
+++ icu46/source/test/perf/unisetperf/unisetperf.pl	(revision 0)
@@ -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);
Property changes on: icu46/source/test/perf/unisetperf/unisetperf.pl
___________________________________________________________________
Added: svn:executable
   + *
Added: svn:eol-style
   + LF