icuSources/test/perf/ubrkperf/UBrkPerf_r.pl

   1 #!/usr/bin/perl
   2 #  ********************************************************************
   3 #  * Copyright (c) 2002-2008, International Business Machines
   4 #  * Corporation and others. All Rights Reserved.
   5 #  ********************************************************************
   6
   7 #use strict;
   8
   9 require "../perldriver/Common.pl";
  10
  11 use lib '../perldriver';
  12
  13 use PerfFramework;
  14
  15 my $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
  29 my $m1 = "-- -m char";
  30 my $m2 = "-- -m word";
  31 my $m3 = "-- -m line";
  32 my $m4 = "-- -m sentence";
  33
  34 my $m;
  35
  36 if(@_ >= 0) {
  37   $m = "-- -m ".shift;
  38 } else {
  39   $m = $m1;
  40 }
  41
  42 my $p1; # Previous
  43 my $p2; # Latest
  44
  45 if ($OnWindows) {
  46         $p1 = $ICUPathPrevious."/ubrkperf/Release/ubrkperf.exe";
  47     $p2 = $ICUPathLatest."/ubrkperf/Release/ubrkperf.exe";
  48 } else {
  49         $p1 = $ICUPathPrevious."/ubrkperf/ubrkperf";
  50         $p2 = $ICUPathLatest."/ubrkperf/ubrkperf";
  51 }
  52
  53 my $dataFiles = {
  54 "en", [
  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
  71 my $tests = {
  72 "TestForwardChar",      ["$p1 $m1 TestICUForward", "$p2 $m1 TestICUForward"],
  73 "TestForwardWord",      ["$p1 $m2 TestICUForward", "$p2 $m2 TestICUForward"],
  74 "TestForwardLine",      ["$p1 $m3 TestICUForward", "$p2 $m3 TestICUForward"],
  75 "TestForwardSentence",  ["$p1 $m4 TestICUForward", "$p2 $m4 TestICUForward"],
  76
  77 "TestIsBoundChar",      ["$p1 $m1 TestICUIsBound", "$p2 $m1 TestICUIsBound"],
  78 "TestIsBoundWord",      ["$p1 $m2 TestICUIsBound", "$p2 $m2 TestICUIsBound"],
  79 "TestIsBoundLine",      ["$p1 $m3 TestICUIsBound", "$p2 $m3 TestICUIsBound"],
  80 "TestIsBoundSentence",  ["$p1 $m4 TestICUIsBound", "$p2 $m4 TestICUIsBound"],
  81
  82 };
  83
  84 runTests($options, $tests, $dataFiles);
  85
  86