test/benchmark.php

   1 <?php
   2 /**
   3  * Benchamrking suite for the PHP-XMLRPC lib
   4  * @author Gaetano Giunta
   5  * @copyright (c) 2005-2014 G. Giunta
   6  * @license code licensed under the BSD License: http://phpxmlrpc.sourceforge.net/license.txt
   7  *
   8  * @todo add a test for response ok in call testing?
   9  **/
  10
  11     include(getcwd().'/parse_args.php');
  12
  13     require_once('xmlrpc.inc');
  14
  15     // Set up PHP structures to be used in many tests
  16     $data1 = array(1, 1.0, 'hello world', true, '20051021T23:43:00', -1, 11.0, '~!@#$%^&*()_+|', false, '20051021T23:43:00');
  17     $data2 = array('zero' => $data1, 'one' => $data1, 'two' => $data1, 'three' => $data1, 'four' => $data1, 'five' => $data1, 'six' => $data1, 'seven' => $data1, 'eight' => $data1, 'nine' => $data1);
  18     $data = array($data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2);
  19     $keys = array('zero', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine');
  20
  21     $test_results=array();
  22     $xd = extension_loaded('xdebug') && ini_get('xdebug.profiler_enable');
  23     if ($xd)
  24         $num_tests = 1;
  25     else
  26         $num_tests = 10;
  27
  28     $title = 'XML-RPC Benchmark Tests';
  29
  30     if(isset($_SERVER['REQUEST_METHOD']))
  31     {
  32         echo "<!DOCTYPE html PUBLIC \"-//W3C//DTD XHTML 1.0 Strict//EN\" \"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd\">\n<html xmlns=\"http://www.w3.org/1999/xhtml\" lang=\"en\" xml:lang=\"en\">\n<head>\n<title>$title</title>\n</head>\n<body>\n<h1>$title</h1>\n<pre>\n";
  33     }
  34     else
  35     {
  36         echo "$title\n\n";
  37     }
  38
  39     if(isset($_SERVER['REQUEST_METHOD']))
  40     {
  41         echo "<h3>Using lib version: $xmlrpcVersion on PHP version: ".phpversion()."</h3>\n";
  42         if ($xd) echo "<h4>XDEBUG profiling enabled: skipping remote tests. Trace file is: ".htmlspecialchars(xdebug_get_profiler_filename())."</h4>\n";
  43         flush();
  44         ob_flush();
  45     }
  46     else
  47     {
  48         echo "Using lib version: $xmlrpcVersion on PHP version: ".phpversion()."\n";
  49         if ($xd) echo "XDEBUG profiling enabled: skipping remote tests\nTrace file is: ".xdebug_get_profiler_filename()."\n";
  50     }
  51
  52     // test 'old style' data encoding vs. 'automatic style' encoding
  53     begin_test('Data encoding (large array)', 'manual encoding');
  54     for ($i = 0; $i < $num_tests; $i++)
  55     {
  56         $vals = array();
  57         for ($j = 0; $j < 10; $j++)
  58         {
  59             $valarray = array();
  60             foreach ($data[$j] as $key => $val)
  61             {
  62                 $values = array();
  63                 $values[] = new xmlrpcval($val[0], 'int');
  64                 $values[] = new xmlrpcval($val[1], 'double');
  65                 $values[] = new xmlrpcval($val[2], 'string');
  66                 $values[] = new xmlrpcval($val[3], 'boolean');
  67                 $values[] = new xmlrpcval($val[4], 'dateTime.iso8601');
  68                 $values[] = new xmlrpcval($val[5], 'int');
  69                 $values[] = new xmlrpcval($val[6], 'double');
  70                 $values[] = new xmlrpcval($val[7], 'string');
  71                 $values[] = new xmlrpcval($val[8], 'boolean');
  72                 $values[] = new xmlrpcval($val[9], 'dateTime.iso8601');
  73                 $valarray[$key] = new xmlrpcval($values, 'array');
  74             }
  75             $vals[] = new xmlrpcval($valarray, 'struct');
  76         }
  77         $value = new xmlrpcval($vals, 'array');
  78         $out = $value->serialize();
  79     }
  80     end_test('Data encoding (large array)', 'manual encoding', $out);
  81
  82     begin_test('Data encoding (large array)', 'automatic encoding');
  83     for ($i = 0; $i < $num_tests; $i++)
  84     {
  85         $value = php_xmlrpc_encode($data, array('auto_dates'));
  86         $out = $value->serialize();
  87     }
  88     end_test('Data encoding (large array)', 'automatic encoding', $out);
  89
  90     if (function_exists('xmlrpc_set_type'))
  91     {
  92     begin_test('Data encoding (large array)', 'xmlrpc-epi encoding');
  93     for ($i = 0; $i < $num_tests; $i++)
  94     {
  95         for ($j = 0; $j < 10; $j++)
  96             foreach ($keys as $k)
  97             {
  98                 xmlrpc_set_type($data[$j][$k][4], 'datetime');
  99                 xmlrpc_set_type($data[$j][$k][8], 'datetime');
 100             }
 101         $out = xmlrpc_encode($data);
 102     }
 103     end_test('Data encoding (large array)', 'xmlrpc-epi encoding', $out);
 104     }
 105
 106     // test 'old style' data decoding vs. 'automatic style' decoding
 107     $dummy = new xmlrpcmsg('');
 108     $out = new xmlrpcresp($value);
 109     $in = '<?xml version="1.0" ?>'."\n".$out->serialize();
 110
 111     begin_test('Data decoding (large array)', 'manual decoding');
 112     for ($i = 0; $i < $num_tests; $i++)
 113     {
 114         $response =& $dummy->ParseResponse($in, true);
 115         $value = $response->value();
 116         $result = array();
 117         for ($k = 0; $k < $value->arraysize(); $k++)
 118         {
 119             $val1 = $value->arraymem($k);
 120             $out = array();
 121             while (list($name, $val) = $val1->structeach())
 122             {
 123                 $out[$name] = array();
 124                 for ($j = 0; $j < $val->arraysize(); $j++)
 125                 {
 126                     $data = $val->arraymem($j);
 127                     $out[$name][] = $data->scalarval();
 128                 }
 129             } // while
 130             $result[] = $out;
 131         }
 132     }
 133     end_test('Data decoding (large array)', 'manual decoding', $result);
 134
 135     begin_test('Data decoding (large array)', 'automatic decoding');
 136     for ($i = 0; $i < $num_tests; $i++)
 137     {
 138         $response =& $dummy->ParseResponse($in, true, 'phpvals');
 139         $value = $response->value();
 140     }
 141     end_test('Data decoding (large array)', 'automatic decoding', $value);
 142
 143     if (function_exists('xmlrpc_decode'))
 144     {
 145     begin_test('Data decoding (large array)', 'xmlrpc-epi decoding');
 146     for ($i = 0; $i < $num_tests; $i++)
 147     {
 148         $response =& $dummy->ParseResponse($in, true, 'xml');
 149         $value = xmlrpc_decode($response->value());
 150     }
 151     end_test('Data decoding (large array)', 'xmlrpc-epi decoding', $value);
 152     }
 153
 154     if (!$xd) {
 155
 156     /// test multicall vs. many calls vs. keep-alives
 157     $value = php_xmlrpc_encode($data1, array('auto_dates'));
 158     $msg = new xmlrpcmsg('interopEchoTests.echoValue', array($value));
 159     $msgs=array();
 160     for ($i = 0; $i < 25; $i++)
 161         $msgs[] = $msg;
 162     $server = explode(':', $LOCALSERVER);
 163     if(count($server) > 1)
 164     {
 165         $c = new xmlrpc_client($URI, $server[0], $server[1]);
 166     }
 167     else
 168     {
 169         $c = new xmlrpc_client($URI, $LOCALSERVER);
 170     }
 171     // do not interfere with http compression
 172     $c->accepted_compression = array();
 173     //$c->debug=true;
 174
 175     if (function_exists('gzinflate')) {
 176         $c->accepted_compression = null;
 177     }
 178     begin_test('Repeated send (small array)', 'http 10');
 179     $response = array();
 180     for ($i = 0; $i < 25; $i++)
 181     {
 182         $resp =& $c->send($msg);
 183         $response[] = $resp->value();
 184     }
 185     end_test('Repeated send (small array)', 'http 10', $response);
 186
 187     if (function_exists('curl_init'))
 188     {
 189         begin_test('Repeated send (small array)', 'http 11 w. keep-alive');
 190         $response = array();
 191         for ($i = 0; $i < 25; $i++)
 192         {
 193             $resp =& $c->send($msg, 10, 'http11');
 194             $response[] = $resp->value();
 195         }
 196         end_test('Repeated send (small array)', 'http 11 w. keep-alive', $response);
 197
 198         $c->keepalive = false;
 199         begin_test('Repeated send (small array)', 'http 11');
 200         $response = array();
 201         for ($i = 0; $i < 25; $i++)
 202         {
 203             $resp =& $c->send($msg, 10, 'http11');
 204             $response[] = $resp->value();
 205         }
 206         end_test('Repeated send (small array)', 'http 11', $response);
 207     }
 208
 209     begin_test('Repeated send (small array)', 'multicall');
 210     $response =& $c->send($msgs);
 211     foreach ($response as $key =>& $val)
 212     {
 213         $val = $val->value();
 214     }
 215     end_test('Repeated send (small array)', 'multicall', $response);
 216
 217     if (function_exists('gzinflate'))
 218     {
 219         $c->accepted_compression = array('gzip');
 220         $c->request_compression = 'gzip';
 221
 222         begin_test('Repeated send (small array)', 'http 10 w. compression');
 223         $response = array();
 224         for ($i = 0; $i < 25; $i++)
 225         {
 226             $resp =& $c->send($msg);
 227             $response[] = $resp->value();
 228         }
 229         end_test('Repeated send (small array)', 'http 10 w. compression', $response);
 230
 231         if (function_exists('curl_init'))
 232         {
 233             begin_test('Repeated send (small array)', 'http 11 w. keep-alive and compression');
 234             $response = array();
 235             for ($i = 0; $i < 25; $i++)
 236             {
 237                 $resp =& $c->send($msg, 10, 'http11');
 238                 $response[] = $resp->value();
 239             }
 240             end_test('Repeated send (small array)', 'http 11 w. keep-alive and compression', $response);
 241
 242             $c->keepalive = false;
 243             begin_test('Repeated send (small array)', 'http 11 w. compression');
 244             $response = array();
 245             for ($i = 0; $i < 25; $i++)
 246             {
 247                 $resp =& $c->send($msg, 10, 'http11');
 248                 $response[] = $resp->value();
 249             }
 250             end_test('Repeated send (small array)', 'http 11 w. compression', $response);
 251         }
 252
 253         begin_test('Repeated send (small array)', 'multicall w. compression');
 254         $response =& $c->send($msgs);
 255         foreach ($response as $key =>& $val)
 256         {
 257             $val = $val->value();
 258         }
 259         end_test('Repeated send (small array)', 'multicall w. compression', $response);
 260     }
 261
 262     } // end of 'if no xdebug profiling'
 263
 264     function begin_test($test_name, $test_case)
 265     {
 266         global $test_results;
 267         if (!isset($test_results[$test_name]))
 268             $test_results[$test_name]=array();
 269         $test_results[$test_name][$test_case] = array();
 270         $test_results[$test_name][$test_case]['time'] = microtime(true);
 271     }
 272
 273     function end_test($test_name, $test_case, $test_result)
 274     {
 275         global $test_results;
 276         $end = microtime(true);
 277         if (!isset($test_results[$test_name][$test_case]))
 278             trigger_error('ending test that was not sterted');
 279         $test_results[$test_name][$test_case]['time'] = $end - $test_results[$test_name][$test_case]['time'];
 280         $test_results[$test_name][$test_case]['result'] = $test_result;
 281         echo '.';
 282         flush();
 283         ob_flush();
 284     }
 285
 286
 287     echo "\n";
 288     foreach($test_results as $test => $results)
 289     {
 290         echo "\nTEST: $test\n";
 291         foreach ($results as $case => $data)
 292             echo "  $case: {$data['time']} secs - Output data CRC: ".crc32(serialize($data['result']))."\n";
 293     }
 294
 295
 296     if(isset($_SERVER['REQUEST_METHOD']))
 297     {
 298         echo "\n</pre>\n</body>\n</html>\n";
 299     }