projects / apple / icu.git / blame
| Commit | Line | Data |
|---|---|---|
| 73c04bcf A |
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"=>"Uset performance: ICU", | |
| 17 | "headers"=>"ICU", | |
| 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/usetperf.exe "; | |
| 29 | ||
| 30 | my $tests = { | |
| 31 | "titlecase_letter/add", ["$p titlecase_letter_add"], | |
| 32 | "titlecase_letter/contains", ["$p titlecase_letter_contains"], | |
| 33 | "titlecase_letter/iterator", ["$p titlecase_letter_iterator"], | |
| 34 | "unassigned/add", ["$p unassigned_add"], | |
| 35 | "unassigned/contains", ["$p unassigned_contains"], | |
| 36 | "unassigned/iterator", ["$p unassigned_iterator"], | |
| 37 | "pattern1", ["$p pattern1"], | |
| 38 | "pattern2", ["$p pattern2"], | |
| 39 | "pattern3", ["$p pattern3"], | |
| 40 | }; | |
| 41 | ||
| 42 | my $dataFiles = { | |
| 43 | }; | |
| 44 | ||
| 45 | runTests($options, $tests, $dataFiles); |