$c) {
$d = $b[$key];
if (!match($c, $d)) {
$matches = false;
break;
}
}
} else {
if ($a !== $b || xmlrpc_get_type($a) !== xmlrpc_get_type($b)) {
$matches = false;
}
}
return $matches;
}
function pass($method) {
echo "pass $method()
";
}
function fail($method, $sent, $received) {
echo "fail $method()
";
if ($sent) {
echo "sent
<![CDATA[";
var_dump($sent);
echo "]]>";
}
if ($received) {
echo "received
<![CDATA[";
var_dump($received);
echo "]]>";
}
}
function check_if_matches($method, $sent, $received) {
if (match($sent, $received)) {
pass($method);
}
else {
fail($method, $sent, $received);
}
}
function foo($method_name, $args) {
xmlrpc_encode_request($method_name, $args);
}
function run_test($server, $debug, $output, $method, $args) {
echo "
";
$params = array($args);
$result = xu_rpc_http_concise(array(method => $method,
args => $params,
host => $server[host],
uri => $server[uri],
port => $server[port],
debug => $debug,
output => $output));
check_if_matches($method, $args, $result);
echo "";
flush();
}
function run_no_param_test($server, $debug, $output, $method) {
echo "
";
$result = xu_rpc_http_concise(array(method => $method,
host => $server[host],
uri => $server[uri],
port => $server[port],
debug => $debug,
output => $output));
if($result && gettype($result) === "integer") {
pass($method);
}
else {
fail($method, false, $result);
}
flush();
}
$decl_1 = "IN CONGRESS, July 4, 1776.";
$decl_2 = "The unanimous Declaration of the thirteen united States of America,";
$decl_3 = "When in the Course of human events, it becomes necessary for one people to dissolve the political bands which have connected them with another, and to assume among the powers of the earth, the separate and equal station to which the Laws of Nature and of Nature's God entitle them, a decent respect to the opinions of mankind requires that they should declare the causes which impel them to the separation.";
$decl_4 = "We hold these truths to be self-evident, that all men are created equal, that they are endowed by their Creator with certain unalienable Rights,that among these are Life, Liberty and the pursuit of Happiness.--That to secure these rights, Governments are instituted among Men, deriving their just powers from the consent of the governed, --That whenever any Form of Government becomes destructive of these ends, it is the Right of the People to alter or to abolish it, and to institute new Government, laying its foundation on such principles and organizing its powers in such form, as to them shall seem most likely to effect their Safety and Happiness. Prudence, indeed, will dictate that Governments long established should not be changed for light and transient causes; and accordingly all experience hath shewn, that mankind are more disposed to suffer, while evils are sufferable, than to right themselves by abolishing the forms to which they are accustomed. But when a long train of abuses and usurpations, pursuing invariably the same Object evinces a design to reduce them under absolute Despotism, it is their right, it is their duty, to throw off such Government, and to provide new Guards for their future security.--Such has been the patient sufferance of these Colonies; and such is now the necessity which constrains them to alter their former Systems of Government. The history of the present King of Great Britain is a history of repeated injuries and usurpations, all having in direct object the establishment of an absolute Tyranny over these States. To prove this, let Facts be submitted to a candid world.";
// a method to run interop tests against remote server. tests described at bottom.
function run_easy_tests($server, $debug=0, $output = null) {
global $decl_1, $decl_2, $decl_3, $decl_4;
run_test($server, $debug, $output, "interopEchoTests.echoString", "That government is best, which governs least");
run_test($server, $debug, $output, "interopEchoTests.echoBoolean", true);
run_test($server, $debug, $output, "interopEchoTests.echoInteger", 42);
run_test($server, $debug, $output, "interopEchoTests.echoFloat", 3.1416);
run_test($server, $debug, $output, "interopEchoTests.echoStruct", array("varFloat" => 1.2345,
"varInt" => 186000,
"varString" => "a string" ));
run_test($server, $debug, $output, "interopEchoTests.echoStringArray", array($decl_1, $decl_2, $decl_3, $decl_4));
run_test($server, $debug, $output, "interopEchoTests.echoIntegerArray", array(23, 234, 1, 0, -10, 999));
run_test($server, $debug, $output, "interopEchoTests.echoFloatArray", array(2.45, 9.9999));
run_test($server, $debug, $output, "interopEchoTests.echoStructArray", array(array("varFloat" => 1.2345,
"varInt" => 186000,
"varString" => "a string"),
array("varFloat" => 10.98765,
"varInt" => 3200,
"varString" => "happy little string" )
));
$foo = "some base64 string";
xmlrpc_set_type($foo, "base64");
run_test($server, $debug, $output, "interopEchoTests.echoBase64", $foo);
$foo="19980717T14:08:55";
xmlrpc_set_type($foo, "datetime");
run_test($server, $debug, $output, "interopEchoTests.echoDate", $foo);
run_no_param_test($server, $debug, $output, "interopEchoTests.noInParams");
}
function ident($server, $debug=0, $output=null) {
$method = "interopEchoTests.whichToolkit";
$result = xu_rpc_http_concise(array('method' => $method,
'host' => $server['host'],
'uri' => $server['uri'],
'port' => $server['port'],
'debug' => $debug,
'output' => $output));
if ($result && $result['toolkitDocsUrl'] && !$result['faultCode']) {
pass($method);
echo "
";
foreach($result as $key => $value) {
if(substr($value, 0, 7) === "http://") {
$value = "$value";
}
echo "$key: $value
";
}
}
else {
fail($method, false, $result);
}
}
function run_stress_tests($server, $debug=0, $output=null) {
global $decl_1, $decl_2, $decl_3, $decl_4;
run_test($server, $debug, $output, "interopEchoTests.echoString", "XML Comment in a string: ");
run_test($server, $debug, $output, "interopEchoTests.echoInteger", 4200000000);
run_test($server, $debug, $output, "interopEchoTests.echoFloat", 1.2);
run_test($server, $debug, $output, "interopEchoTests.echoStruct",
array("varFloat" => 1.2345,
"varInt" => 186000,
"varString" => "18 > 2 && 2 < 18 && 42 == the answer to life, the universe, and everything" ));
run_test($server, $debug, $output, "interopEchoTests.echoStringArray",
array($decl_1, $decl_2, $decl_3, $decl_4, "non-ascii chars above 127 (165-170): ¥, ¦, §, ¨, ©, ª"));
run_test($server, $debug, $output, "interopEchoTests.echoIntegerArray",
array(23, 234, 1, 0, -10, 999));
run_test($server, $debug, $output, "interopEchoTests.echoFloatArray",
array(2.45, 9.9999));
run_test($server, $debug, $output, "interopEchoTests.echoStructArray",
array(array("varFloat" => 1.2345,
"varInt" => 186000,
"varString" => "non-print char (8): "),
array("varFloat" => 10.98765,
"varInt" => 3200,
"varString" => "happy little string" )
));
}
// a method to display an html form for invoking the script
function print_html_form($servers_list) {
echo <<< END
Choose an xmlrpc server to run interop tests against live!
END;
print_servers_form($servers_list);
echo <<< END
if you know of any other servers that support interop tests, please send a note to
xmlrpc-epi-devel@lists.sourceforge.net
and we will add it to the list.
END;
}
// some code which determines if we are in form display or response mode.
$server_list = get_interop_servers();
$server = get_server_from_user($server_list);
if ($server) {
$debug = $GLOBALS['HTTP_GET_VARS']['debug'] || $GLOBALS['HTTP_GET_VARS']['start_debug'];
$output['version'] = $GLOBALS['HTTP_GET_VARS']['version'];
if ($server) {
$title = $server['title'];
echo "
Results for $title
";
ident($server, $debug, $output);
if($GLOBALS['HTTP_GET_VARS']['stress'] == 1) {
run_stress_tests($server, $debug, $output);
}
else {
run_easy_tests($server, $debug, $output);
}
}
else {
echo "invalid option
";
}
}
else {
print_html_form($server_list);
}
/* Interop tests description:
interopEchoTests.echoString (inputString) -- Sends a random string to the server, and checks that the
response is a string whose value is the same as the string that was sent.
interopEchoTests.echoInteger (inputInteger) -- Sends a random integer to the server, and checks that
the response is an integer whose value is the same as the integer that was sent.
interopEchoTests.echoFloat (inputFloat) -- Sends a random floating point number to the server, and
checks that the response is a float whose value is the same as the number that was sent.
interopEchoTests.echoStruct (inputStruct) -- Sends a struct to the server, which contains three
elements: varString, varInt, and varFloat, a random string, a random integer, and a random float,
respectively, and checks that the response is a struct containing the same values that were sent.
interopEchoTests.echoStringArray (inputStringArray) -- Sends an array of random strings to the server,
and checks that the response is an array of strings, whose values are the same as the values that were
sent.
interopEchoTests.echoIntegerArray (inputIntegerArray) -- Sends an array of random integers to the
server, and checks that the response is an array of integers, whose values are the same as the values that
were sent.
interopEchoTests.echoFloatArray (inputFloatArray) -- Sends an array of random floating point numbers
to the server, and checks that the response is an array of floats, whose values are the same as the values
that were sent.
interopEchoTests.echoStructArray (inputStructArray) -- Sends an array of structs to the server, and
checks that the response is an array of structs, which contain the same values that were sent. Each struct
contains three elements: varString, varInt, and varFloat, a string, an integer, and a floating point number,
respectively.
*/