--- /dev/null
+<?php
+/**
+ * Benchmarking suite for the PHP-XMLRPC lib.
+ *
+ * @author Gaetano Giunta
+ * @copyright (c) 2005-2015 G. Giunta
+ * @license code licensed under the BSD License: see file license.txt
+ *
+ * @todo add a test for response ok in call testing
+ * @todo add support for --help option to give users the list of supported parameters
+ **/
+
+use PhpXmlRpc\PhpXmlRpc;
+use PhpXmlRpc\Value;
+use PhpXmlRpc\Request;
+use PhpXmlRpc\Client;
+use PhpXmlRpc\Response;
+use PhpXmlRpc\Encoder;
+
+include_once __DIR__ . '/../vendor/autoload.php';
+
+include __DIR__ . '/parse_args.php';
+$args = argParser::getArgs();
+
+function begin_test($test_name, $test_case)
+{
+ global $test_results;
+ if (!isset($test_results[$test_name])) {
+ $test_results[$test_name] = array();
+ }
+ $test_results[$test_name][$test_case] = array();
+ $test_results[$test_name][$test_case]['time'] = microtime(true);
+}
+
+function end_test($test_name, $test_case, $test_result)
+{
+ global $test_results;
+ $end = microtime(true);
+ if (!isset($test_results[$test_name][$test_case])) {
+ trigger_error('ending test that was not started');
+ }
+ $test_results[$test_name][$test_case]['time'] = $end - $test_results[$test_name][$test_case]['time'];
+ $test_results[$test_name][$test_case]['result'] = $test_result;
+ echo '.';
+ flush();
+ @ob_flush();
+}
+
+// Set up PHP structures to be used in many tests
+
+$data1 = array(1, 1.0, 'hello world', true, '20051021T23:43:00', -1, 11.0, '~!@#$%^&*()_+|', false, '20051021T23:43:00');
+$data2 = array('zero' => $data1, 'one' => $data1, 'two' => $data1, 'three' => $data1, 'four' => $data1, 'five' => $data1, 'six' => $data1, 'seven' => $data1, 'eight' => $data1, 'nine' => $data1);
+$data = array($data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2, $data2);
+$keys = array('zero', 'one', 'two', 'three', 'four', 'five', 'six', 'seven', 'eight', 'nine');
+
+// Begin execution
+
+$test_results = array();
+$is_web = isset($_SERVER['REQUEST_METHOD']);
+$xd = extension_loaded('xdebug') && ini_get('xdebug.profiler_enable');
+if ($xd) {
+ $num_tests = 1;
+} else {
+ $num_tests = 10;
+}
+
+$title = 'XML-RPC Benchmark Tests';
+
+if ($is_web) {
+ 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";
+} else {
+ echo "$title\n\n";
+}
+
+if ($is_web) {
+ echo "<h3>Using lib version: " . PhpXmlRpc::$xmlrpcVersion . " on PHP version: " . phpversion() . "</h3>\n";
+ if ($xd) {
+ echo "<h4>XDEBUG profiling enabled: skipping remote tests. Trace file is: " . htmlspecialchars(xdebug_get_profiler_filename()) . "</h4>\n";
+ }
+ flush();
+ ob_flush();
+} else {
+ echo "Using lib version: " . PhpXmlRpc::$xmlrpcVersion . " on PHP version: " . phpversion() . "\n";
+ if ($xd) {
+ echo "XDEBUG profiling enabled: skipping remote tests\nTrace file is: " . xdebug_get_profiler_filename() . "\n";
+ }
+}
+
+// test 'manual style' data encoding vs. 'automatic style' encoding
+begin_test('Data encoding (large array)', 'manual encoding');
+for ($i = 0; $i < $num_tests; $i++) {
+ $vals = array();
+ for ($j = 0; $j < 10; $j++) {
+ $valarray = array();
+ foreach ($data[$j] as $key => $val) {
+ $values = array();
+ $values[] = new Value($val[0], 'int');
+ $values[] = new Value($val[1], 'double');
+ $values[] = new Value($val[2], 'string');
+ $values[] = new Value($val[3], 'boolean');
+ $values[] = new Value($val[4], 'dateTime.iso8601');
+ $values[] = new Value($val[5], 'int');
+ $values[] = new Value($val[6], 'double');
+ $values[] = new Value($val[7], 'string');
+ $values[] = new Value($val[8], 'boolean');
+ $values[] = new Value($val[9], 'dateTime.iso8601');
+ $valarray[$key] = new Value($values, 'array');
+ }
+ $vals[] = new Value($valarray, 'struct');
+ }
+ $value = new Value($vals, 'array');
+ $out = $value->serialize();
+}
+end_test('Data encoding (large array)', 'manual encoding', $out);
+
+begin_test('Data encoding (large array)', 'automatic encoding');
+$encoder = new Encoder();
+for ($i = 0; $i < $num_tests; $i++) {
+ $value = $encoder->encode($data, array('auto_dates'));
+ $out = $value->serialize();
+}
+end_test('Data encoding (large array)', 'automatic encoding', $out);
+
+if (function_exists('xmlrpc_set_type')) {
+ begin_test('Data encoding (large array)', 'xmlrpc-epi encoding');
+ for ($i = 0; $i < $num_tests; $i++) {
+ for ($j = 0; $j < 10; $j++) {
+ foreach ($keys as $k) {
+ xmlrpc_set_type($data[$j][$k][4], 'datetime');
+ xmlrpc_set_type($data[$j][$k][8], 'datetime');
+ }
+ }
+ $out = xmlrpc_encode($data);
+ }
+ end_test('Data encoding (large array)', 'xmlrpc-epi encoding', $out);
+}
+
+// test 'old style' data decoding vs. 'automatic style' decoding
+$dummy = new Request('');
+$out = new Response($value);
+$in = '<?xml version="1.0" ?>' . "\n" . $out->serialize();
+
+begin_test('Data decoding (large array)', 'manual decoding');
+for ($i = 0; $i < $num_tests; $i++) {
+ $response = $dummy->ParseResponse($in, true);
+ $value = $response->value();
+ $result = array();
+ foreach($value as $val1) {
+ $out = array();
+ foreach($val1 as $name => $val) {
+ $out[$name] = array();
+ foreach($val as $data) {
+ $out[$name][] = $data->scalarval();
+ }
+ }
+ $result[] = $out;
+ }
+}
+end_test('Data decoding (large array)', 'manual decoding', $result);
+
+begin_test('Data decoding (large array)', 'manual decoding deprecated');
+for ($i = 0; $i < $num_tests; $i++) {
+ $response = $dummy->ParseResponse($in, true);
+ $value = $response->value();
+ $result = array();
+ $l = $value->arraysize();
+ for ($k = 0; $k < $l; $k++) {
+ $val1 = $value->arraymem($k);
+ $out = array();
+ while (list($name, $val) = $val1->structeach()) {
+ $out[$name] = array();
+ $m = $val->arraysize();
+ for ($j = 0; $j < $m; $j++) {
+ $data = $val->arraymem($j);
+ $out[$name][] = $data->scalarval();
+ }
+ } // while
+ $result[] = $out;
+ }
+}
+end_test('Data decoding (large array)', 'manual decoding deprecated', $result);
+
+begin_test('Data decoding (large array)', 'automatic decoding');
+for ($i = 0; $i < $num_tests; $i++) {
+ $response = $dummy->ParseResponse($in, true, 'phpvals');
+ $value = $response->value();
+}
+end_test('Data decoding (large array)', 'automatic decoding', $value);
+
+if (function_exists('xmlrpc_decode')) {
+ begin_test('Data decoding (large array)', 'xmlrpc-epi decoding');
+ for ($i = 0; $i < $num_tests; $i++) {
+ $response = $dummy->ParseResponse($in, true, 'xml');
+ $value = xmlrpc_decode($response->value());
+ }
+ end_test('Data decoding (large array)', 'xmlrpc-epi decoding', $value);
+}
+
+if (!$xd) {
+
+ /// test multicall vs. many calls vs. keep-alives
+ $encoder = new Encoder();
+ $value = $encoder->encode($data1, array('auto_dates'));
+ $req = new Request('interopEchoTests.echoValue', array($value));
+ $reqs = array();
+ for ($i = 0; $i < 25; $i++) {
+ $reqs[] = $req;
+ }
+ $server = explode(':', $args['LOCALSERVER']);
+ if (count($server) > 1) {
+ $srv = $server[1] . '://' . $server[0] . $args['URI'];
+ $c = new Client($args['URI'], $server[0], $server[1]);
+ } else {
+ $srv = $args['LOCALSERVER'] . $args['URI'];
+ $c = new Client($args['URI'], $args['LOCALSERVER']);
+ }
+ // do not interfere with http compression
+ $c->accepted_compression = array();
+ //$c->debug=true;
+
+ $testName = "Repeated send (small array) to $srv";
+
+ if (function_exists('gzinflate')) {
+ $c->accepted_compression = null;
+ }
+ begin_test($testName, 'http 10');
+ $response = array();
+ for ($i = 0; $i < 25; $i++) {
+ $resp = $c->send($req);
+ $response[] = $resp->value();
+ }
+ end_test($testName, 'http 10', $response);
+
+ if (function_exists('curl_init')) {
+ begin_test($testName, 'http 11 w. keep-alive');
+ $response = array();
+ for ($i = 0; $i < 25; $i++) {
+ $resp = $c->send($req, 10, 'http11');
+ $response[] = $resp->value();
+ }
+ end_test($testName, 'http 11 w. keep-alive', $response);
+
+ $c->keepalive = false;
+ begin_test($testName, 'http 11');
+ $response = array();
+ for ($i = 0; $i < 25; $i++) {
+ $resp = $c->send($req, 10, 'http11');
+ $response[] = $resp->value();
+ }
+ end_test($testName, 'http 11', $response);
+ }
+
+ begin_test($testName, 'multicall');
+ $response = $c->send($reqs);
+ foreach ($response as $key => & $val) {
+ $val = $val->value();
+ }
+ end_test($testName, 'multicall', $response);
+
+ if (function_exists('gzinflate')) {
+ $c->accepted_compression = array('gzip');
+ $c->request_compression = 'gzip';
+
+ begin_test($testName, 'http 10 w. compression');
+ $response = array();
+ for ($i = 0; $i < 25; $i++) {
+ $resp = $c->send($req);
+ $response[] = $resp->value();
+ }
+ end_test($testName, 'http 10 w. compression', $response);
+
+ if (function_exists('curl_init')) {
+ begin_test($testName, 'http 11 w. keep-alive and compression');
+ $response = array();
+ for ($i = 0; $i < 25; $i++) {
+ $resp = $c->send($req, 10, 'http11');
+ $response[] = $resp->value();
+ }
+ end_test($testName, 'http 11 w. keep-alive and compression', $response);
+
+ $c->keepalive = false;
+ begin_test($testName, 'http 11 w. compression');
+ $response = array();
+ for ($i = 0; $i < 25; $i++) {
+ $resp = $c->send($req, 10, 'http11');
+ $response[] = $resp->value();
+ }
+ end_test($testName, 'http 11 w. compression', $response);
+ }
+
+ begin_test($testName, 'multicall w. compression');
+ $response = $c->send($reqs);
+ foreach ($response as $key => & $val) {
+ $val = $val->value();
+ }
+ end_test($testName, 'multicall w. compression', $response);
+ }
+} // end of 'if no xdebug profiling'
+
+
+echo "\n";
+foreach ($test_results as $test => $results) {
+ echo "\nTEST: $test\n";
+ foreach ($results as $case => $data) {
+ echo " $case: {$data['time']} secs - Output data CRC: " . crc32(serialize($data['result'])) . "\n";
+ }
+}
+
+if ($is_web) {
+ echo "\n</pre>\n</body>\n</html>\n";
+}