icuSources/test/perf/convperf/convperf_iml.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 IMultiLanguage 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 TestWinIML2_UTF8_FromUnicode"  ,    "$p TestICU_UTF8_FromUnicode" ],
  32              "UTF-8 To Unicode",            ["$p TestWinIML2_UTF8_ToUnicode"    ,    "$p TestICU_UTF8_ToUnicode" ],
  33          ####
  34              "ISO-8859-1 From Unicode",     ["$p TestWinIML2_Latin1_FromUnicode"  ,  "$p TestICU_Latin1_FromUnicode" ],
  35              "ISO-8859-1 To Unicode",       ["$p TestWinIML2_Latin1_ToUnicode"    ,  "$p TestICU_Latin1_ToUnicode" ],
  36          ####
  37              "Shift-JIS From Unicode",      ["$p TestWinIML2_SJIS_FromUnicode"  ,    "$p TestICU_SJIS_FromUnicode" ],
  38              "Shift-JIS To Unicode",        ["$p TestWinIML2_SJIS_ToUnicode"    ,    "$p TestICU_SJIS_ToUnicode" ],
  39          ####
  40              "EUC-JP From Unicode",         ["$p TestWinIML2_EUCJP_FromUnicode"  ,   "$p TestICU_EUCJP_FromUnicode" ],
  41              "EUC-JP To Unicode",           ["$p TestWinIML2_EUCJP_ToUnicode"    ,   "$p TestICU_EUCJP_ToUnicode" ],
  42          ####
  43              "GB2312 From Unicode",         ["$p TestWinIML2_GB2312_FromUnicode"  ,  "$p TestICU_GB2312_FromUnicode" ],
  44              "GB2312 To Unicode",           ["$p TestWinIML2_GB2312_ToUnicode"    ,  "$p TestICU_GB2312_ToUnicode" ],
  45          ####
  46              "ISO2022KR From Unicode",      ["$p TestWinIML2_ISO2022KR_FromUnicode",  "$p TestICU_ISO2022KR_FromUnicode" ],
  47              "ISO2022KR To Unicode",        ["$p TestWinIML2_ISO2022KR_ToUnicode"  ,  "$p TestICU_ISO2022KR_ToUnicode" ],
  48          ####
  49              "ISO2022JP From Unicode",      ["$p TestWinIML2_ISO2022JP_FromUnicode", "$p TestICU_ISO2022JP_FromUnicode" ],
  50              "ISO2022JP To Unicode",        ["$p TestWinIML2_ISO2022JP_ToUnicode"  ,  "$p TestICU_ISO2022JP_ToUnicode" ],
  51             };
  52
  53 my $dataFiles = "";
  54
  55 runTests($options, $tests, $dataFiles);