| OLD | NEW |
| (Empty) |
| 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/$WindowsPlatfor
m/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); | |
| OLD | NEW |