1#!/usr/bin/perl
2#  ********************************************************************
3#  * COPYRIGHT:
4#  * © 2016 and later: Unicode, Inc. and others.
5#  * License & terms of use: http://www.unicode.org/copyright.html
6#  * Copyright (c) 2002-2007, International Business Machines
7#  * Corporation and others. All Rights Reserved.
8#  ********************************************************************
9
10use strict;
11
12use lib 'svn-icu4j/src/com/ibm/icu/dev/test/perf/perldriver';
13
14use PerfFramework4j;
15
16my $options = {
17	       "title"=>"Rule Based BreakIterator performance regression (ICU4J 3.6 and 3.8)",
18	       "headers"=>"ICU4J36 ICU4J38",
19	       "operationIs"=>"code point",
20	       "eventIs"=>"break",
21	       "passes"=>"10",
22	       "time"=>"5",
23	       "outputType"=>"HTML",
24	       "dataDir"=>"svn-icu4j/src/com/ibm/icu/dev/test/perf/data/collation",
25	       "outputDir"=>"svn-icu4j/results_ICU4J"
26	      };
27
28# programs
29# Test class
30my $TESTCLASS = "com.ibm.icu.dev.test.perf.RBBIPerf";
31# tests will be done for all the programs. Results will be stored and connected
32my $m1 = "char";
33my $m2 = "word";
34my $m3 = "line";
35my $m4 = "jdkline";
36
37my $m;
38
39if(@_ >= 0) {
40  $m = "-- -m ".shift;
41} else {
42  $m = $m1;
43}
44
45my $jvm1 = "java -classpath svn-icu4j_3-6/classes $TESTCLASS";
46my $jvm2 = "java -classpath svn-icu4j/classes $TESTCLASS";
47
48my $dataFiles = {
49"en", [
50	   #"thesis.txt",
51       #"2drvb10.txt",
52       #"ulyss10.txt",
53       #"nvsbl10.txt",
54       #"vfear11a.txt",
55       "TestNames_Asian.txt",
56       "TestNames_Chinese.txt",
57       "TestNames_Japanese.txt",
58       "TestNames_Japanese_h.txt",
59       "TestNames_Japanese_k.txt",
60       "TestNames_Korean.txt",
61       "TestNames_Latin.txt",
62       "TestNames_SerbianSH.txt",
63       "TestNames_SerbianSR.txt",
64       "TestNames_Thai.txt",
65       "Testnames_Russian.txt",
66],
67#"th", ["TestNames_Thai.txt", "th18057.txt"]
68};
69
70
71my $tests = {
72"TestNextChar",      ["$jvm1 testRBBINext $m1", "$jvm2 testRBBINext $m1"],
73"TestNextWord",      ["$jvm1 testRBBINext $m2", "$jvm2 testRBBINext $m2"],
74"TestNextLine",      ["$jvm1 testRBBINext $m3", "$jvm2 testRBBINext $m3"],
75"TestNextJDKLine",   ["$jvm1 testRBBINext $m4", "$jvm2 testRBBINext $m4"],
76##
77"TestPreviousChar",      ["$jvm1 testRBBIPrevious $m1", "$jvm2 testRBBIPrevious $m1"],
78"TestPreviousWord",      ["$jvm1 testRBBIPrevious $m2", "$jvm2 testRBBIPrevious $m2"],
79"TestPreviousLine",      ["$jvm1 testRBBIPrevious $m3", "$jvm2 testRBBIPrevious $m3"],
80#"TestPreviousSentence",  ["$jvm1 testRBBIPrevious $m4", "$jvm2 testRBBIPrevious $m4"],
81##
82"TestIsBoundaryChar",      ["$jvm1 testRBBIIsBoundary $m1", "$jvm2 testRBBIIsBoundary $m1"],
83"TestIsBoundaryWord",      ["$jvm1 testRBBIIsBoundary $m2", "$jvm2 testRBBIIsBoundary $m2"],
84"TestIsBoundaryLine",      ["$jvm1 testRBBIIsBoundary $m3", "$jvm2 testRBBIIsBoundary $m3"],
85#"TestIsBoundarySentence",  ["$jvm1 testRBBIIsBoundary $m4", "$jvm2 testRBBIIsBoundary $m4"],
86};
87
88runTests($options, $tests, $dataFiles);
89
90
91