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 |