1 #!/usr/bin/perl 2 #/** 3 # ******************************************************************************* 4 # * Copyright (C) 2006-2008, International Business Machines Corporation and * 5 # * others. All Rights Reserved. * 6 # ******************************************************************************* 7 # */ 8 use lib 'src/com/ibm/icu/dev/test/perf'; 9 use lib 'src/com/ibm/icu/dev/test/perf/perldriver'; 10 use PerfFramework4j; 11 12 $TEST_DATA="src/com/ibm/icu/dev/test/perf/data/collation"; 13 14 #--------------------------------------------------------------------- 15 # Test class 16 my $TESTCLASS = "com.ibm.icu.dev.test.perf.ResourceBundlePerf"; 17 18 mkdir "results_ICU4J"; 19 20 my $options = { 21 "title"=>"ResourceBundle performance test", 22 "headers"=>"Java ICU", 23 "operationIs"=>"various", 24 "timePerOperationIs"=>"Time per each fetch", 25 "passes"=>"1", 26 "time"=>"1", 27 "outputType"=>"HTML", 28 "dataDir"=>$TEST_DATA, 29 "outputDir"=>"results_ICU4J" 30 }; 31 32 # programs 33 34 my $cmd = 'java -classpath "classes" '.$TESTCLASS; 35 36 my $dataFiles = ""; 37 38 my $tests = { 39 "Empty array", ["$cmd TestEmptyArrayJava", "$cmd TestEmptyArrayICU"], 40 "Empty Explicit String", ["$cmd TestEmptyExplicitStringJava", "$cmd TestEmptyExplicitStringICU"], 41 "Empty String", ["$cmd TestEmptyStringJava", "$cmd TestEmptyStringICU"], 42 "Get 123", ["$cmd TestGet123Java", "$cmd TestGet123ICU"], 43 "Get Binary Test", ["$cmd TestGetBinaryTestJava", "$cmd TestGetBinaryTestICU"], 44 "Get Empty Binary", ["$cmd TestGetEmptyBinaryJava", "$cmd TestGetBinaryTestICU"], 45 "Get Empty Menu", ["$cmd TestGetEmptyMenuJava", "$cmd TestGetEmptyMenuICU"], 46 "Get Empty Int", ["$cmd TestGetEmptyIntJava", "$cmd TestGetEmptyIntICU"], 47 "Get Empty Int Array", ["$cmd TestGetEmptyIntegerArrayJava", "$cmd TestGetEmptyIntegerArrayICU"], 48 "Get Int Array", ["$cmd TestGetIntegerArrayJava", "$cmd TestGetIntegerArrayICU"], 49 "Get Menu", ["$cmd TestGetMenuJava", "$cmd TestGetMenuICU"], 50 "Get Minus One", ["$cmd TestGetMinusOneJava", "$cmd TestGetMinusOneICU"], 51 "Get Minus One Uint", ["$cmd TestGetMinusOneUintJava", "$cmd TestGetMinusOneUintICU"], 52 "Get One", ["$cmd TestGetOneJava", "$cmd TestGetOneICU"], 53 "Get Plus One", ["$cmd TestGetPlusOneJava", "$cmd TestGetPlusOneICU"], 54 "Construction", ["$cmd TestResourceBundleConstructionJava", "$cmd TestResourceBundleConstructionICU"], 55 "Zero Test", ["$cmd TestZeroTestJava", "$cmd TestZeroTestICU"] 56 }; 57 58 59 runTests($options, $tests, $dataFiles); 60 61 62
