projects / apple / icu.git / blame
| Commit | Line | Data |
|---|---|---|
| 46f4442e A |
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); |