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 10 require "../perldriver/Common.pl"; 11 12 use lib '../perldriver'; 13 14 use PerfFramework; 15 16 my $options = { 17 "title"=>"UTF performance: ICU (".$ICUPreviousVersion." and ".$ICULatestVersion.")", 18 "headers"=>"ICU".$ICUPreviousVersion." ICU".$ICULatestVersion, 19 "operationIs"=>"gb18030 encoding string", 20 "passes"=>"1", 21 "time"=>"2", 22 #"outputType"=>"HTML", 23 "dataDir"=>$ConversionDataPath, 24 "outputDir"=>"../results" 25 }; 26 27 # programs 28 # tests will be done for all the programs. Results will be stored and connected 29 my $p1; 30 my $p2; 31 32 if ($OnWindows) { 33 $p1 = $ICUPathPrevious."/utfperf/$WindowsPlatform/Release/utfperf.exe -e gb18030"; # Previous 34 $p2 = $ICUPathLatest."/utfperf/$WindowsPlatform/Release/utfperf.exe -e gb18030"; # Latest 35 } else { 36 $p1 = $ICUPathPrevious."/utfperf/utfperf -e gb18030"; # Previous 37 $p2 = $ICUPathLatest."/utfperf/utfperf -e gb18030"; # Latest 38 } 39 40 my $tests = { 41 "Roundtrip", ["$p1 Roundtrip", "$p2 Roundtrip"], 42 "FromUnicode", ["$p1 FromUnicode", "$p2 FromUnicode"], 43 "FromUTF8", ["$p1 FromUTF8", "$p2 FromUTF8"], 44 #"UTF-8", ["$p UTF_8"], 45 #"UTF-8 small buffer", ["$p UTF_8_SB"], 46 #"SCSU", ["$p SCSU"], 47 #"SCSU small buffer", ["$p SCSU_SB"], 48 #"BOCU_1", ["$p BOCU_1"], 49 #"BOCU_1 small buffer", ["$p BOCU_1_SB"], 50 }; 51 52 my $dataFiles = { 53 "", 54 [ 55 "xuzhimo.txt" 56 ] 57 }; 58 59 runTests($options, $tests, $dataFiles); 60
