icuSources/test/perf/collperf/CollPerf.pl

   1 #!/usr/bin/perl -w
   2 #  ********************************************************************
   3 #  * COPYRIGHT:
   4 #  * Copyright (c) 2005, International Business Machines Corporation and
   5 #  * others. All Rights Reserved.
   6 #  ********************************************************************
   7
   8 use strict;
   9
  10 use lib '../perldriver';
  11
  12 use PerfFramework;
  13
  14
  15 my $options = {
  16                "title"=>"Collation performance: ICU,POSIX,and Win",
  17                "headers"=>"ICU_POSIX_WIN",
  18                "operationIs"=>"unicode String",
  19                "passes"=>"1",
  20                "time"=>"2",
  21                #"outputType"=>"HTML",
  22                "dataDir"=>"../data",
  23                "outputDir"=>"../results"
  24               };
  25
  26 # programs
  27 # tests will be done for all the programs. Results will be stored and connected
  28 my $p = "debug/collperf.exe ";
  29
  30 my $tests = {
  31              "Key Gen ICU null",  ["$p TestIcu_KeyGen_null"],
  32              "Key Gen ICU len",  ["$p TestIcu_KeyGen_len"],
  33              "Key Gen POSIX",  ["$p TestPosix_KeyGen_null"],
  34              "Key Gen Win",  ["$p TestWin_KeyGen_null"],
  35              "Iteration icu forward null",  ["$p TestIcu_ForwardIter_null"],
  36              "Iteration icu forward len",  ["$p TestIcu_ForwardIter_len"],
  37              "Iteration icu backward null",  ["$p TestIcu_BackwardIter_null"],
  38              "Iteration icu backward len",  ["$p TestIcu_BackwardIter_len"],
  39              "Iteration/all icu forward null",  ["$p TestIcu_ForwardIter_all_null"],
  40              "Iteration/all icu forward len",  ["$p TestIcu_ForwardIter_all_len"],
  41              "Iteration/all icu backward null",  ["$p TestIcu_BackwardIter_all_null"],
  42              "Iteration/all icu backward len",  ["$p TestIcu_BackwardIter_all_len"],
  43              "qsort icu strcoll null",  ["$p TestIcu_qsort_strcoll_null"],
  44              "qsort icu strcoll len",  ["$p TestIcu_qsort_strcoll_len"],
  45              "qsort icu use key",  ["$p TestIcu_qsort_usekey"],
  46              "qsort posix strcoll null",  ["$p TestPosix_qsort_strcoll_null"],
  47              "qsort posix use key",  ["$p TestPosix_qsort_usekey"],
  48              "qsort win CompareStringW null",  ["$p TestWin_qsort_CompareStringW_null"],
  49              "qsort win CompareStringW len",  ["$p TestWin_qsort_CompareStringW_len"],
  50              "qsort win use key",  ["$p TestWin_qsort_usekey"],
  51              "Binary Search icu strcoll null",  ["$p TestIcu_BinarySearch_strcoll_null"],
  52              "Binary Search icu strcoll len",  ["$p TestIcu_BinarySearch_strcoll_len"],
  53              "Binary Search icu use key",  ["$p TestIcu_BinarySearch_usekey"],
  54              "Binary Search icu u_strcmp",  ["$p TestIcu_BinarySearch_strcmp"],
  55              "Binary Search icu cmpCPO",  ["$p TestIcu_BinarySearch_cmpCPO"],
  56              "Binary Search posix strcoll null",  ["$p TestPosix_BinarySearch_strcoll_null"],
  57              "Binary Search posix use key",  ["$p TestPosix_BinarySearch_usekey"],
  58              "Binary Search win CompareStringW null",  ["$p TestWin_BinarySearch_CompareStringW_null"],
  59              "Binary Search win CompareStringW len",  ["$p TestWin_BinarySearch_CompareStringW_len"],
  60              "Binary Search win use key",  ["$p TestWin_BinarySearch_usekey"],
  61              "Binary Search win wcscmp",  ["$p TestWin_BinarySearch_wcscmp"],
  62             };
  63
  64 my $dataFiles = {
  65                  "",
  66                  [
  67                   "TestNames_Asian.txt",
  68 #                 "TestNames_Chinese.txt",
  69 #                 "TestNames_Japanese.txt",
  70 #                 "TestNames_Japanese_h.txt",
  71 #                 "TestNames_Japanese_k.txt",
  72 #                 "TestNames_Korean.txt",
  73 #                 "TestNames_Latin.txt",
  74 #                 "Testnames_Russian.txt",
  75 #                 "TestNames_SerbianSH.txt",
  76 #                 "TestNames_SerbianSR.txt",
  77 #                 "TestNames_Simplified_Chinese.txt",
  78 #                 "TestNames_Thai.txt"
  79                  ]
  80                 };
  81
  82 runTests($options, $tests, $dataFiles);