1#!/usr/bin/perl 2#/** 3# ******************************************************************************* 4# * Copyright (C) 2006-2008, International Business Machines Corporation and * 5# * others. All Rights Reserved. * 6# ******************************************************************************* 7# */ 8use lib 'src/com/ibm/icu/dev/test/perf'; 9use lib 'src/com/ibm/icu/dev/test/perf/perldriver'; 10use PerfFramework4j; 11 12$TEST_DATA="src/com/ibm/icu/dev/test/perf/data/collation"; 13 14#--------------------------------------------------------------------- 15# Test class 16my $TESTCLASS = "com.ibm.icu.dev.test.perf.ResourceBundlePerf"; 17 18mkdir "results_ICU4J"; 19 20my $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 34my $cmd = 'java -classpath "classes" '.$TESTCLASS; 35 36my $dataFiles = ""; 37 38my $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 59runTests($options, $tests, $dataFiles); 60 61 62