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