1#!/usr/bin/perl
2#  ********************************************************************
3#  * COPYRIGHT:
4#  * Copyright (c) 2005-2008, International Business Machines Corporation and
5#  * others. All Rights Reserved.
6#  ********************************************************************
7
8#use strict;
9
10require "../perldriver/Common.pl";
11
12use lib '../perldriver';
13
14use PerfFramework;
15
16
17
18my $options = {
19	       "title"=>"Uset performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")",
20           "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion,
21	       "operationIs"=>"unicode string",
22	       "passes"=>"1",
23	       "time"=>"2",
24	       #"outputType"=>"HTML",
25	       "dataDir"=>"Not Using Data Files",
26           "outputDir"=>"../results"
27	      };
28
29# programs
30# tests will be done for all the programs. Results will be stored and connected
31my $p1, $p2;
32if ($OnWindows) {
33	$p1 = $ICUPathPrevious."/usetperf/$WindowsPlatform/Release/usetperf.exe";
34	$p2 = $ICUPathLatest."/usetperf/$WindowsPlatform/Release/usetperf.exe";
35} else {
36	$p1 = $ICUPathPrevious."/usetperf/usetperf";
37	$p2 = $ICUPathLatest."/usetperf/usetperf";
38
39}
40
41my $tests = {
42	     "titlecase_letter/add",  ["$p1 titlecase_letter_add", "$p2 titlecase_letter_add"],
43	     "titlecase_letter/contains",  ["$p1 titlecase_letter_contains", "$p2 titlecase_letter_contains"],
44	     "titlecase_letter/iterator",  ["$p1 titlecase_letter_iterator", "$p2 titlecase_letter_iterator"],
45	     "unassigned/add",  ["$p1 unassigned_add", "$p2 unassigned_add"],
46	     "unassigned/contains",  ["$p1 unassigned_contains", "$p2 unassigned_contains"],
47	     "unassigned/iterator",  ["$p1 unassigned_iterator", "$p2 unassigned_iterator"],
48	     "pattern1",  ["$p1 pattern1", "$p2 pattern1"],
49	     "pattern2",  ["$p1 pattern2", "$p2 pattern2"],
50	     "pattern3",  ["$p1 pattern3", "$p2 pattern3"],
51	    };
52
53my $dataFiles = {
54		};
55
56runTests($options, $tests, $dataFiles);
57