1#!/usr/bin/perl
2#  ********************************************************************
3#  * Copyright (c) 2002-2013, International Business Machines
4#  * Corporation and others. All Rights Reserved.
5#  ********************************************************************
6
7#use strict;
8
9require "../perldriver/Common.pl";
10
11use lib '../perldriver';
12
13use PerfFramework;
14
15my $options = {
16    "title"=>"BreakIterator performance regression: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
17    "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
18    "operationIs"=>"code point",
19    "eventIs"=>"break",
20    "passes"=>"10",
21    "time"=>"5",
22    #"outputType"=>"HTML",
23    "dataDir"=>$CollationDataPath,
24    "outputDir"=>"../results"
25};
26
27# programs
28# tests will be done for all the programs. Results will be stored and connected
29my $m1 = "-- -m char";
30my $m2 = "-- -m word";
31my $m3 = "-- -m line";
32my $m4 = "-- -m sentence";
33
34my $m;
35
36if(@_ >= 0) {
37  $m = "-- -m ".shift;
38} else {
39  $m = $m1;
40}
41
42my $p1; # Previous
43my $p2; # Latest
44
45if ($OnWindows) {
46    $p1 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
47    $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/ubrkperf/$WindowsPlatform/Release/ubrkperf.exe";
48} else {
49    $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."/source/lib:".$ICUPrevious."/source/tools/ctestfw ".$ICUPathPrevious."/ubrkperf/ubrkperf";
50    $p2 = "LD_LIBRARY_PATH=".$ICULatest."/source/lib:".$ICULatest."/source/tools/ctestfw ".$ICUPathLatest."/ubrkperf/ubrkperf";
51}
52
53my $dataFiles = {
54    "en",
55    [
56        "thesis.txt",
57        "2drvb10.txt",
58        "ulyss10.txt",
59        "nvsbl10.txt",
60        "vfear11a.txt",
61        "TestNames_Asian.txt",
62        "TestNames_Chinese.txt",
63        "TestNames_Japanese.txt",
64        "TestNames_Japanese_h.txt",
65        "TestNames_Japanese_k.txt",
66        "TestNames_Korean.txt",
67        "TestNames_Latin.txt",
68        "TestNames_SerbianSH.txt",
69        "TestNames_SerbianSR.txt",
70        "TestNames_Thai.txt",
71        "Testnames_Russian.txt",
72    ],
73    "th",
74    [
75        "TestNames_Thai.txt",
76        "th18057.txt"
77    ]
78};
79
80
81my $tests = {
82    "TestForwardChar",      ["$p1,$m1,TestICUForward", "$p2,$m1,TestICUForward"],
83    "TestForwardWord",      ["$p1,$m2,TestICUForward", "$p2,$m2,TestICUForward"],
84    "TestForwardLine",      ["$p1,$m3,TestICUForward", "$p2,$m3,TestICUForward"],
85    "TestForwardSentence",  ["$p1,$m4,TestICUForward", "$p2,$m4,TestICUForward"],
86
87    "TestIsBoundChar",      ["$p1,$m1,TestICUIsBound", "$p2,$m1,TestICUIsBound"],
88    "TestIsBoundWord",      ["$p1,$m2,TestICUIsBound", "$p2,$m2,TestICUIsBound"],
89    "TestIsBoundLine",      ["$p1,$m3,TestICUIsBound", "$p2,$m3,TestICUIsBound"],
90    "TestIsBoundSentence",  ["$p1,$m4,TestICUIsBound", "$p2,$m4,TestICUIsBound"],
91};
92
93runTests($options, $tests, $dataFiles);
94
95
96