| OLD | NEW |
| (Empty) |
| 1 #!/usr/bin/perl | |
| 2 # ******************************************************************** | |
| 3 # * COPYRIGHT: | |
| 4 # * Copyright (c) 2005-2013, 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 ".$ICULatestVers
ion.")", | |
| 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 = "cd ".$ICUPrevious."/bin && ".$ICUPathPrevious."/utfperf/$WindowsPlatf
orm/Release/utfperf.exe -e gb18030"; # Previous | |
| 34 $p2 = "cd ".$ICULatest."/bin && ".$ICUPathLatest."/utfperf/$WindowsPlatform/
Release/utfperf.exe -e gb18030"; # Latest | |
| 35 } else { | |
| 36 $p1 = "LD_LIBRARY_PATH=".$ICUPrevious."/source/lib:".$ICUPrevious."/source/t
ools/ctestfw ".$ICUPathPrevious."/utfperf/utfperf -e gb18030"; # Previous | |
| 37 $p2 = "LD_LIBRARY_PATH=".$ICULatest."/source/lib:".$ICULatest."/source/tools
/ctestfw ".$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 }; | |
| 45 | |
| 46 my $dataFiles = { | |
| 47 "", ["xuzhimo.txt"] | |
| 48 }; | |
| 49 | |
| 50 runTests($options, $tests, $dataFiles); | |
| OLD | NEW |