jars/icu4j-4_2_1-src/src/com/ibm/icu/dev/test/perf/rbbiperf_r.pl

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