icuSources/test/perf/unisetperf/unisetperf.pl

   1 #!/usr/bin/perl
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2005-2013, 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 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/unisetperf/$WindowsPlatform/Release/unisetperf.exe";
  32 } else {
  33     $p = "LD_LIBRARY_PATH=".$ICULatest."/source/lib:".$ICULatest."/source/tools/ctestfw ".$ICUPathLatest."/unisetperf/unisetperf";
  34 }
  35
  36 my $tests = {
  37     "Contains",
  38     [
  39         "$p,Contains --type Bv",
  40         "$p,Contains --type Bv0"
  41     ],
  42     "SpanUTF16",
  43     [
  44         "$p,SpanUTF16 --type Bv",
  45         "$p,SpanUTF16 --type Bv0"
  46     ]
  47 };
  48
  49 my $dataFiles = {
  50     "",
  51     [
  52         "udhr_eng.txt",
  53         "udhr_deu_1996.txt",
  54         "udhr_fra.txt",
  55         "udhr_rus.txt",
  56         "udhr_tha.txt",
  57         "udhr_jpn.txt",
  58         "udhr_cmn_hans.txt",
  59         "udhr_cmn_hant.txt",
  60         "udhr_jpn.html"
  61     ]
  62 };
  63
  64 runTests($options, $tests, $dataFiles);
  65
  66 $options = {
  67     "title"=>"UnicodeSet span()/contains() performance",
  68     "headers"=>"Bv BvF Bvp BvpF L Bvl",
  69     "operationIs"=>"tested Unicode code point",
  70     "passes"=>"3",
  71     "time"=>"2",
  72     #"outputType"=>"HTML",
  73     "dataDir"=>$UDHRDataPath,
  74     "outputDir"=>"../results"
  75 };
  76
  77 $tests = {
  78     "SpanUTF8",
  79     [
  80         "$p,SpanUTF8 --type Bv",
  81         "$p,SpanUTF8 --type BvF",
  82         "$p,SpanUTF8 --type Bvp",
  83         "$p,SpanUTF8 --type BvpF",
  84         "$p,SpanUTF8 --type L",
  85         "$p,SpanUTF8 --type Bvl"
  86     ]
  87 };
  88
  89 runTests($options, $tests, $dataFiles);