jars/icu4j-4_2_1-src/src/com/ibm/icu/dev/test/perf/ucharacterperf_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 #Assume we are running outside of the ICU4J source\r
  11 use lib 'svn-icu4j/src/com/ibm/icu/dev/test/perf/perldriver';\r
  12 \r
  13 use PerfFramework4j;\r
  14 \r
  15 #---------------------------------------------------------------------\r
  16 # Test class\r
  17 my $TESTCLASS = 'com.ibm.icu.dev.test.perf.UCharacterPerf'; \r
  18 \r
  19 my $options = {\r
  20                "title"=>"UnicodeCharacter Property performance regression (ICU4J 3.6 and 3.8)",\r
  21                "headers"=>"ICU4J36 ICU4J38",\r
  22                "operationIs"=>"code point",\r
  23                "timePerOperationIs"=>"Time per code point",\r
  24                "passes"=>"10",\r
  25                "time"=>"5",\r
  26                "outputType"=>"HTML",\r
  27                "dataDir"=>"svn-icu4j/src/com/ibm/icu/dev/test/perf/data/collation",\r
  28                "outputDir"=>"svn-icu4j/results_ICU4J"\r
  29               };\r
  30 \r
  31 # programs\r
  32 \r
  33 my $jvm1 = "java -classpath svn-icu4j/classes $TESTCLASS";\r
  34 my $jvm2 = "java -classpath svn-icu4j_3-6/classes $TESTCLASS";\r
  35 \r
  36 my $dataFiles = "";\r
  37 my $pat = '0 ffff';\r
  38 \r
  39 my $tests = { \r
  40              "Digit ($pat)",                     ["$jvm1 Digit $pat"  ,                     "$jvm2 Digit $pat" ],\r
  41              "GetNumericValue ($pat)",           ["$jvm1 GetNumericValue $pat"  ,           "$jvm2 GetNumericValue $pat" ],\r
  42              "GetType ($pat)",                   ["$jvm1 GetType $pat"  ,                   "$jvm2 GetType $pat" ],\r
  43              "IsDefined ($pat)",                 ["$jvm1 IsDefined $pat"  ,                 "$jvm2 IsDefined $pat" ],\r
  44              "IsDigit ($pat)",                   ["$jvm1 IsDigit $pat"  ,                   "$jvm2 IsDigit $pat" ],\r
  45              "IsIdentifierIgnorable ($pat)",     ["$jvm1 IsIdentifierIgnorable $pat"  ,     "$jvm2 IsIdentifierIgnorable $pat" ],\r
  46              "IsISOControl ($pat)",              ["$jvm1 IsISOControl $pat"  ,              "$jvm2 IsISOControl $pat" ],\r
  47              "IsLetter ($pat)",                  ["$jvm1 IsLetter $pat"  ,                  "$jvm2 IsLetter $pat" ],\r
  48              "IsLetterOrDigit ($pat)",           ["$jvm1 IsLetterOrDigit $pat"  ,           "$jvm2 IsLetterOrDigit $pat" ],\r
  49              "IsLowerCase ($pat)",               ["$jvm1 IsLowerCase $pat"  ,               "$jvm2 IsLowerCase $pat" ],\r
  50              "IsSpaceChar ($pat)",               ["$jvm1 IsSpaceChar $pat"  ,               "$jvm2 IsSpaceChar $pat" ],\r
  51              "IsTitleCase ($pat)",               ["$jvm1 IsTitleCase $pat"  ,               "$jvm2 IsTitleCase $pat" ],\r
  52              "IsUnicodeIdentifierPart ($pat)",   ["$jvm1 IsUnicodeIdentifierPart $pat"  ,   "$jvm2 IsUnicodeIdentifierPart $pat" ],\r
  53              "IsUnicodeIdentifierStart ($pat)",  ["$jvm1 IsUnicodeIdentifierStart $pat"  ,  "$jvm2 IsUnicodeIdentifierStart $pat" ],\r
  54              "IsUpperCase ($pat)",               ["$jvm1 IsUpperCase $pat"  ,               "$jvm2 IsUpperCase $pat" ],\r
  55              "IsWhiteSpace ($pat)",              ["$jvm1 IsWhiteSpace $pat"  ,              "$jvm2 IsWhiteSpace $pat" ]\r
  56             };\r
  57 \r
  58 \r
  59 runTests($options, $tests, $dataFiles);\r
  60 \r
  61 \r