ICU-400.37.tar.gz

[apple/icu.git] / icuSources / test / perf / convperf / convperf_iml.pl

diff --git a/icuSources/test/perf/convperf/convperf_iml.pl b/icuSources/test/perf/convperf/convperf_iml.pl
index 194a1cce5490e3ba99309255afde874abef9df71..e4f2144759321172f1fdc98c39a247948b21e35e 100644 (file)
--- a/icuSources/test/perf/convperf/convperf_iml.pl
+++ b/icuSources/test/perf/convperf/convperf_iml.pl
@@ -1,31 +1,38 @@
-#!/usr/bin/perl -w
+#!/usr/bin/perl

 #  ********************************************************************
 #  * COPYRIGHT:
 #  ********************************************************************
 #  * COPYRIGHT:

-#  * Copyright (c) 2002-2003, International Business Machines Corporation and
+#  * Copyright (c) 2002-2008, International Business Machines Corporation and

 #  * others. All Rights Reserved.
 #  ********************************************************************
 
 #  * others. All Rights Reserved.
 #  ********************************************************************
 

-use strict;
+#use strict;
+
+require "../perldriver/Common.pl";

 
 use lib '../perldriver';
 
 use PerfFramework;
 
 
 use lib '../perldriver';
 
 use PerfFramework;
 

+# This test only works on Windows.
+if (!$OnWindows) {
+       print "This test only works on Windows.\n";
+    exit(1);
+}

 
 my $options = {
 
 my $options = {

-              "title"=>"Conversion Performance: ICU 2.6 vs. Windows2000 IMultiLanguage Interface",
-              "headers"=>"Windows2000(IMultiLanguage2) ICU",
+              "title"=>"Conversion Performance: ICU".$ICULatestVersion." vs. WindowsXP IMultiLanguage Interface",
+              "headers"=>"WindowsXP(IMultiLanguage2) ICU".$ICULatestVersion,

               "operationIs"=>"code point",
               "passes"=>"10",
               "time"=>"5",
               #"outputType"=>"HTML",
               "operationIs"=>"code point",
               "passes"=>"10",
               "time"=>"5",
               #"outputType"=>"HTML",

-              "dataDir"=>"c:/src/perf/data",
+              "dataDir"=>"Not Using Data Files",

               "outputDir"=>"../results"
              };
 
 # programs
 # tests will be done for all the programs. Results will be stored and connected
               "outputDir"=>"../results"
              };
 
 # programs
 # tests will be done for all the programs. Results will be stored and connected

-my $p = "release/convperf.exe";
+my $p = $ICUPathLatest."/convperf/Release/convperf.exe";

 
 my $tests = { 
             "UTF-8 From Unicode",          ["$p TestWinIML2_UTF8_FromUnicode"  ,    "$p TestICU_UTF8_FromUnicode" ],
 
 my $tests = { 
             "UTF-8 From Unicode",          ["$p TestWinIML2_UTF8_FromUnicode"  ,    "$p TestICU_UTF8_FromUnicode" ],