icuSources/test/perf/utfperf/UtfPerf.pl

   1 #!/usr/bin/perl -w
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2005, 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"=>"Utf performance: ICU",
  17                "headers"=>"ICU",
  18                "operationIs"=>"gb18030 encoding string",
  19                "passes"=>"1",
  20                "time"=>"2",
  21                #"outputType"=>"HTML",
  22                "dataDir"=>"../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 = "debug/utfperf.exe -e gb18030";
  29
  30 my $tests = {
  31              "UTF-8",  ["$p UTF_8"],
  32              "UTF-8 small buffer",  ["$p UTF_8_SB"],
  33              "SCSU",  ["$p SCSU"],
  34              "SCSU small buffer",  ["$p SCSU_SB"],
  35              "BOCU_1",  ["$p BOCU_1"],
  36              "BOCU_1 small buffer",  ["$p BOCU_1_SB"],
  37             };
  38
  39 my $dataFiles = {
  40                  "",
  41                  [
  42                   "four.txt"
  43                  ]
  44                 };
  45
  46 runTests($options, $tests, $dataFiles);