Home | History | Annotate | Download | only in unisetperf 
      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);
     90