icuSources/test/perf/unisetperf/unisetperf.pl

   1 #!/usr/bin/perl
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2005-2008, International Business Machines Corporation and
   5 #  * others. All Rights Reserved.
   6 #  ********************************************************************
   7
   8 #use strict;
   9
  10 require "../perldriver/Common.pl";
  11
  12 use lib '../perldriver';
  13
  14 use PerfFramework;
  15
  16 my $options = {
  17                "title"=>"UnicodeSet span()/contains() performance",
  18                "headers"=>"Bv Bv0",
  19                "operationIs"=>"tested Unicode code point",
  20                "passes"=>"3",
  21                "time"=>"2",
  22                #"outputType"=>"HTML",
  23                "dataDir"=>$UDHRDataPath,
  24            "outputDir"=>"../results"
  25               };
  26
  27 # programs
  28 # tests will be done for all the programs. Results will be stored and connected
  29 my $p;
  30 if ($OnWindows) {
  31         $p = $ICUPathLatest."/unisetperf/Release/unisetperf.exe";
  32 } else {
  33         $p = $ICUPathLatest."/unisetperf/unisetperf";
  34 }
  35 my $pc =  "$p Contains";
  36 my $p16 = "$p SpanUTF16";
  37 my $p8 =  "$p SpanUTF8";
  38
  39 my $tests = {
  40              "Contains",  ["$pc  --type Bv",
  41                            "$pc  --type Bv0"
  42                            ],
  43              "SpanUTF16", ["$p16 --type Bv",
  44                            "$p16 --type Bv0"
  45                            ]
  46             };
  47
  48 my $dataFiles = {
  49                  "",
  50                  [
  51                   "udhr_eng.txt",
  52           "udhr_deu_1996.txt",
  53           "udhr_fra.txt",
  54           "udhr_rus.txt",
  55           "udhr_tha.txt",
  56           "udhr_jpn.txt",
  57           "udhr_cmn_hans.txt",
  58           "udhr_cmn_hant.txt",
  59           "udhr_jpn.html"
  60                  ]
  61                 };
  62
  63 runTests($options, $tests, $dataFiles);
  64
  65 $options = {
  66                "title"=>"UnicodeSet span()/contains() performance",
  67                "headers"=>"Bv BvF Bvp BvpF L Bvl",
  68                "operationIs"=>"tested Unicode code point",
  69                "passes"=>"3",
  70                "time"=>"2",
  71                #"outputType"=>"HTML",
  72                "dataDir"=>$UDHRDataPath,
  73                "outputDir"=>"../results"
  74               };
  75
  76 $tests = {
  77              "SpanUTF8",  ["$p8  --type Bv",
  78                            "$p8  --type BvF",
  79                            "$p8  --type Bvp",
  80                            "$p8  --type BvpF",
  81                            "$p8  --type L",
  82                            "$p8  --type Bvl"
  83                            ]
  84             };
  85
  86 runTests($options, $tests, $dataFiles);