icuSources/test/perf/convperf/convperf_ansi.pl

   1 #!/usr/bin/perl -w
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2002-2003, International Business Machines Corporation and
   5 #  * others. All Rights Reserved.
   6 #  ********************************************************************
   7
   8 use strict;
   9
  10 use lib '../perldriver';
  11
  12 use PerfFramework;
  13
  14
  15 my $options = {
  16                "title"=>"Conversion Performance: ICU 2.6 vs. Windows2000 ANSI Interface",
  17                "headers"=>"Windows2000(IMultiLanguage2) ICU",
  18                "operationIs"=>"code point",
  19                "passes"=>"10",
  20                "time"=>"5",
  21                #"outputType"=>"HTML",
  22                "dataDir"=>"c:/src/perf/data",
  23                "outputDir"=>"../results"
  24               };
  25
  26 # programs
  27 # tests will be done for all the programs. Results will be stored and connected
  28 my $p = "release/convperf.exe";
  29
  30 my $tests = {
  31              "UTF-8 From Unicode",          ["$p TestWinANSI_UTF8_FromUnicode"  ,    "$p TestICU_UTF8_FromUnicode" ],
  32              "UTF-8 To Unicode",            ["$p TestWinANSI_UTF8_ToUnicode"    ,    "$p TestICU_UTF8_ToUnicode" ],
  33          ####
  34              "ISO-8859-1 From Unicode",     ["$p TestWinANSI_Latin1_FromUnicode"  ,  "$p TestICU_Latin1_FromUnicode" ],
  35              "ISO-8859-1 To Unicode",       ["$p TestWinANSI_Latin1_ToUnicode"    ,  "$p TestICU_Latin1_ToUnicode" ],
  36          ####
  37              "Shift-JIS From Unicode",      ["$p TestWinANSI_SJIS_FromUnicode"  ,    "$p TestICU_SJIS_FromUnicode" ],
  38              "Shift-JIS To Unicode",        ["$p TestWinANSI_SJIS_ToUnicode"    ,    "$p TestICU_SJIS_ToUnicode" ],
  39          ####
  40              "EUC-JP From Unicode",         ["$p TestWinANSI_EUCJP_FromUnicode"  ,   "$p TestICU_EUCJP_FromUnicode" ],
  41              "EUC-JP To Unicode",           ["$p TestWinANSI_EUCJP_ToUnicode"    ,   "$p TestICU_EUCJP_ToUnicode" ],
  42          ####
  43              "GB2312 From Unicode",         ["$p TestWinANSI_GB2312_FromUnicode"  ,  "$p TestICU_GB2312_FromUnicode" ],
  44              "GB2312 To Unicode",           ["$p TestWinANSI_GB2312_ToUnicode"    ,  "$p TestICU_GB2312_ToUnicode" ],
  45             };
  46
  47 my $dataFiles = "";
  48
  49 runTests($options, $tests, $dataFiles);