Check in the pristine copy of ICU 4.6...

icu46/source/test/perf/charperf/CharPerf.pl

Index: icu46/source/test/perf/charperf/CharPerf.pl
===================================================================
--- icu46/source/test/perf/charperf/CharPerf.pl	(revision 0)
+++ icu46/source/test/perf/charperf/CharPerf.pl	(revision 0)
@@ -0,0 +1,55 @@
+#!/usr/bin/perl
+#  ********************************************************************
+#  * COPYRIGHT:
+#  * Copyright (c) 2002-2008, International Business Machines Corporation and
+#  * others. All Rights Reserved.
+#  ********************************************************************
+
+
+#use strict;
+
+require "../perldriver/Common.pl";
+
+use lib '../perldriver';
+
+use PerfFramework;
+
+my $options = {
+	       "title"=>"Character property performance: ICU".$ICULatestVersion." vs. STDLib",
+	       "headers"=>"StdLib ICU".$ICULatestVersion,
+	       "operationIs"=>"code point",
+	       "timePerOperationIs"=>"Time per code point",
+	       "passes"=>"10",
+	       "time"=>"5",
+	       #"outputType"=>"HTML",
+	       "dataDir"=>"Not Using Data Files",
+           "outputDir"=>"../results"
+	      };
+
+
+# programs
+# tests will be done for all the programs. Results will be stored and connected
+my $p;
+if ($OnWindows) {
+    $p = $ICUPathLatest."/charperf/$WindowsPlatform/Release/charperf.exe";
+} else {
+	$p = $ICUPathLatest."/charperf/charperf";
+}
+
+my $tests = { 
+"isAlpha",        ["$p TestStdLibIsAlpha"        , "$p TestIsAlpha"        ],
+"isUpper",        ["$p TestStdLibIsUpper"        , "$p TestIsUpper"        ],
+"isLower",        ["$p TestStdLibIsLower"        , "$p TestIsLower"        ],	
+"isDigit",        ["$p TestStdLibIsDigit"        , "$p TestIsDigit"        ],	
+"isSpace",        ["$p TestStdLibIsSpace"        , "$p TestIsSpace"        ],	
+"isAlphaNumeric", ["$p TestStdLibIsAlphaNumeric" , "$p TestIsAlphaNumeric" ],
+"isPrint",        ["$p TestStdLibIsPrint"        , "$p TestIsPrint"        ],     
+"isControl",      ["$p TestStdLibIsControl"      , "$p TestIsControl"      ],
+"toLower",        ["$p TestStdLibToLower"        , "$p TestToLower"        ],     
+"toUpper",        ["$p TestStdLibToUpper"        , "$p TestToUpper"        ],     
+"isWhiteSpace",   ["$p TestStdLibIsWhiteSpace"   , "$p TestIsWhiteSpace"   ],
+};
+
+my $dataFiles;
+
+runTests($options, $tests, $dataFiles);
Property changes on: icu46/source/test/perf/charperf/CharPerf.pl
___________________________________________________________________
Added: svn:executable
   + *
Added: svn:eol-style
   + LF