Home | History | Annotate | Download | only in unisetperf 
      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/$WindowsPlatform/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);
     87