185bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho#!/usr/bin/perl 2ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru# ******************************************************************** 3ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru# * COPYRIGHT: 485bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho# * Copyright (c) 2005-2008, International Business Machines Corporation and 5ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru# * others. All Rights Reserved. 6ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru# ******************************************************************** 7ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 885bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho#use strict; 985bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho 1085bf2e2fbc60a9f938064abc8127d61da7d19882Claire Horequire "../perldriver/Common.pl"; 11ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 12ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queruuse lib '../perldriver'; 13ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 14ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queruuse PerfFramework; 15ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 16ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 1785bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho 18ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Querumy $options = { 1985bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "title"=>"Uset performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")", 2085bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion, 21ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru "operationIs"=>"unicode string", 22ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru "passes"=>"1", 23ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru "time"=>"2", 24ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru #"outputType"=>"HTML", 2585bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "dataDir"=>"Not Using Data Files", 2685bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "outputDir"=>"../results" 27ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru }; 28ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 29ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru# programs 30ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru# tests will be done for all the programs. Results will be stored and connected 3185bf2e2fbc60a9f938064abc8127d61da7d19882Claire Homy $p1, $p2; 3285bf2e2fbc60a9f938064abc8127d61da7d19882Claire Hoif ($OnWindows) { 3385bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho $p1 = $ICUPathPrevious."/usetperf/$WindowsPlatform/Release/usetperf.exe"; 3485bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho $p2 = $ICUPathLatest."/usetperf/$WindowsPlatform/Release/usetperf.exe"; 3585bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho} else { 3685bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho $p1 = $ICUPathPrevious."/usetperf/usetperf"; 3785bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho $p2 = $ICUPathLatest."/usetperf/usetperf"; 3885bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho 3985bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho} 40ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 41ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Querumy $tests = { 4285bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "titlecase_letter/add", ["$p1 titlecase_letter_add", "$p2 titlecase_letter_add"], 4385bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "titlecase_letter/contains", ["$p1 titlecase_letter_contains", "$p2 titlecase_letter_contains"], 4485bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "titlecase_letter/iterator", ["$p1 titlecase_letter_iterator", "$p2 titlecase_letter_iterator"], 4585bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "unassigned/add", ["$p1 unassigned_add", "$p2 unassigned_add"], 4685bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "unassigned/contains", ["$p1 unassigned_contains", "$p2 unassigned_contains"], 4785bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "unassigned/iterator", ["$p1 unassigned_iterator", "$p2 unassigned_iterator"], 4885bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "pattern1", ["$p1 pattern1", "$p2 pattern1"], 4985bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "pattern2", ["$p1 pattern2", "$p2 pattern2"], 5085bf2e2fbc60a9f938064abc8127d61da7d19882Claire Ho "pattern3", ["$p1 pattern3", "$p2 pattern3"], 51ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru }; 52ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 53ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Querumy $dataFiles = { 54ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru }; 55ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste Queru 56ac04d0bbe12b3ef54518635711412f178cb4d16Jean-Baptiste QuerurunTests($options, $tests, $dataFiles); 57