/**
* Wrapper function to test BeanCan Server, does the boring
* plumming work.
*
* @param mixed $data Data for JSON-RPC request object
* @param mixed $params Parameters for JSON-RPC request object
* @param string $id Identification of JSON-RPC request to connect to response
*
* @return string $out Output JSON from BeanCan server.
*/
function fakeBeanCanServerRequest($data, $params = NULL, $id = "1234", $whiteList = 'all')
{
$j = array("jsonrpc" => "2.0", "method" => $data, "params" => $params, "id" => $id);
$can = new RedBean_Plugin_BeanCan();
$request = json_encode($j);
$can->setWhitelist($whiteList);
$out = $can->handleJSONRequest($request);
return $out;
}
/**
* Test REST interface.
*
* @return void
*/
public function testREST()
{
testpack('Test new Resty BeanCan');
$user = R::dispense('user');
$user->name = 'me';
$site = R::dispense('site');
$site->name = 'site 1';
$page = R::dispense('page');
$page->name = 'page 1';
$ad = R::dispense('ad');
$ad->name = 'an ad';
$ad2 = R::dispense('ad');
$ad2->name = 'an ad2';
$page->sharedAd[] = $ad;
$page->sharedAd[] = $ad2;
$site->ownPage[] = $page;
$user->ownSite[] = $site;
R::store($user);
testpack('Test REST Lists');
$can = new RedBean_Plugin_BeanCanResty(R::$toolbox);
$can->setWhitelist('all');
$resp = $can->handleREST($user, 'site/list', 'GET');
asrt(count($resp['result']), 1);
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/list', 'GET');
asrt(count($resp['result']), 2);
$can = new RedBean_Plugin_BeanCanResty();
$can->setWhitelist('all');
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/list', 'GET');
asrt(count($resp['result']), 2);
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/list', 'GET', array(), array('shared-ad' => array('LIMIT 1')));
asrt(count($resp['result']), 1);
$can->setWhitelist(array('ad' => array('GET')));
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/list', 'GET', array(), array('shared-ad' => array('LIMIT 1', array())));
asrt(count($resp['result']), 1);
$can->setWhitelist(array('ad' => array('GET')));
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/list', 'GET', array(), array('shared-ad' => array(' ORDER BY ad.id DESC ', array())));
asrt(count($resp['result']), 2);
$entry1 = reset($resp['result']);
$entry2 = end($resp['result']);
asrt($entry1['id'] > $entry2['id'], TRUE);
$can->setWhitelist(array('ad' => array('GET')));
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/list', 'GET', array(), array('shared-ad' => array(' ORDER BY ad.id ASC ', array())));
asrt(count($resp['result']), 2);
$entry1 = reset($resp['result']);
$entry2 = end($resp['result']);
asrt($entry1['id'] < $entry2['id'], TRUE);
$can->setWhitelist(array('page' => array('GET')));
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/list', 'GET', array(), array('shared-ad' => array('LIMIT 1', array())));
asrt(isset($resp['error']), TRUE);
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/list', 'GET', array(), array('shared-ad' => array(' id = ? ', array(0))));
asrt(count($resp['result']), 1);
//works also with names param?
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/list', 'GET', array(), array('page' => array(' id > :id ', array(':id' => 0))));
asrt(count($resp['result']), 1);
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/list', 'GET', array(), array('shared-ad' => array(' id = ? ')));
asrt(count($resp['result']), 1);
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/list', 'GET', array(), array('page' => array(' id = ? ', array($page->id))));
asrt(count($resp['result']), 1);
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/list', 'GET', array(), array('page' => array(' id = ? ', array(0))));
asrt(count($resp['result']), 0);
$can->setWhitelist('all');
$resp = $can->handleREST($user, '@!#?', 'GET');
asrt((string) $resp['error']['message'], 'URI contains invalid characters.');
asrt((string) $resp['error']['code'], '400');
$resp = $can->handleREST($user, 'blah', 'GET');
asrt((string) $resp['error']['message'], 'Invalid path: needs 1 more element.');
asrt((string) $resp['error']['code'], '404');
asrt((string) $resp['red-resty'], '1.0');
$resp = $can->handleREST($user, '/blah', 'GET');
asrt((string) $resp['error']['message'], 'Cannot access list.');
asrt((string) $resp['error']['code'], '404');
asrt((string) $resp['red-resty'], '1.0');
$resp = $can->handleREST($user, 'site/2', 'GET');
asrt((string) $resp['error']['message'], 'Cannot access bean.');
asrt((string) $resp['error']['code'], '404');
asrt((string) $resp['red-resty'], '1.0');
$resp = $can->handleREST($user, 'blah/2', 'GET');
asrt((string) $resp['error']['message'], 'Cannot access bean.');
$resp = $can->handleREST($user, '', 'GET');
asrt((string) $resp['red-resty'], '1.0');
asrt((string) $resp['result']['name'], 'me');
$resp = $can->handleREST($user, 'book', 'POST', '');
asrt((string) $resp['error']['code'], '400');
asrt((string) $resp['error']['message'], 'Payload needs to be array.');
$resp = $can->handleREST($user, '', 'POST', array());
asrt((string) $resp['error']['code'], '400');
asrt((string) $resp['error']['message'], 'Missing list.');
$resp = $can->handleREST($user, 'shared-bo-ok', 'POST', array());
asrt((string) $resp['error']['code'], '400');
asrt((string) $resp['error']['message'], 'Invalid list.');
$resp = $can->handleREST($user, 'book', 'POST', array('type' => 'book'));
asrt((string) $resp['error']['code'], '400');
asrt((string) $resp['error']['message'], 'Missing parameter \'bean\'.');
// Send a GET /site/1 request to BeanCan Server
$resp = $can->handleREST($user, 'site/' . $site->id, 'GET');
asrt((string) $resp['result']['id'], (string) $site->id);
asrt((string) $resp['result']['name'], (string) $site->name);
asrt((string) $resp['result']['user_id'], (string) $site->user_id);
$can->setWhitelist(array('page' => array('PUT')));
$resp = $can->handleREST($user, 'site/' . $site->id, 'GET');
asrt((string) $resp['error']['message'], 'This bean is not available. Set whitelist to "all" or add to whitelist.');
asrt((string) $resp['error']['code'], '403');
$can->setWhitelist(array('site' => array('PUT')));
$resp = $can->handleREST($user, 'site/' . $site->id, 'GET');
asrt((string) $resp['error']['message'], 'This bean is not available. Set whitelist to "all" or add to whitelist.');
asrt((string) $resp['error']['code'], '403');
$can->setWhitelist(array('site' => array('GET')));
$resp = $can->handleREST($user, 'site/' . $site->id, 'GET');
asrt((string) $resp['result']['id'], (string) $site->id);
asrt((string) $resp['result']['name'], (string) $site->name);
asrt((string) $resp['result']['user_id'], (string) $site->user_id);
asrt(!isset($resp['error']), TRUE);
$can->setWhitelist('all');
// Send a GET /site/1/page/1 request to BeanCan Server
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id, 'GET');
asrt((string) $resp['result']['id'], (string) $page->id);
asrt((string) $resp['result']['name'], (string) $page->name);
asrt((string) $resp['result']['site_id'], (string) $page->site_id);
// Send a GET /site/1/page/1/shared-ad/1
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/' . $ad->id, 'GET');
asrt((string) $resp['result']['id'], (string) $ad->id);
asrt((string) $resp['result']['name'], (string) $ad->name);
// Send a POST /site/1/page
$payLoad = array('bean' => array('name' => 'my new page'));
$resp = $can->handleREST($user, 'site/' . $site->id . '/page', 'POST', $payLoad);
$newPage = R::findOne('page', ' name = ? ', array('my new page'));
asrt((string) $resp['result']['id'], (string) $newPage->id);
asrt((string) $resp['result']['name'], (string) $newPage->name);
$payload = array('bean' => array('does' => 'fly'));
$resp = $can->handleREST($user, 'teapot', 'POST', $payload);
$newTeapot = R::findOne('teapot');
asrt((string) $newTeapot->id, (string) $resp['result']['id']);
asrt((string) $newTeapot->does, 'fly');
$badPayLoad = array('type' => 'ad', 'bean' => 42);
$incompletePayLoad = array('type' => 'ad');
// Send a PUT /site/1/page/2/shared-ad
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad', 'POST', $badPayLoad);
asrt((string) $resp['error']['message'], 'Parameter \'bean\' must be object/array.');
asrt((string) $resp['error']['code'], '400');
$payLoad = array('type' => 'ad', 'bean' => array('name' => 'my new ad'));
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad', 'POST', $payLoad);
$newAd = R::findOne('ad', ' name = ? ', array('my new ad'));
asrt((string) $resp['result']['id'], (string) $newAd->id);
asrt((string) $resp['result']['name'], (string) $newAd->name);
// Send a POST /site/1
$exception = NULL;
$resp = $can->handleREST($user, 'site/' . $site->id, 'PUT', $incompletePayLoad);
asrt((string) $resp['error']['message'], 'Missing parameter \'bean\'.');
asrt((string) $resp['error']['code'], '400');
$resp = $can->handleREST($user, 'site/' . $site->id, 'PUT', $badPayLoad);
asrt((string) $resp['error']['message'], 'Parameter \'bean\' must be object/array.');
asrt((string) $resp['error']['code'], '400');
$badPayLoad = array('type' => 'ad', 'bean' => array(array()));
$resp = $can->handleREST($user, 'site/' . $site->id, 'PUT', $badPayLoad);
asrt((string) $resp['error']['message'], 'Object "bean" invalid.');
asrt((string) $resp['error']['code'], '400');
$payLoad = array('bean' => array('name' => 'The Original'));
$resp = $can->handleREST($user, 'site/' . $site->id, 'PUT', $payLoad);
asrt((string) $resp['result']['id'], (string) $site->id);
asrt((string) $resp['result']['name'], 'The Original');
// Send a DELETE /site/1/page/2/shared-ad/2
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id . '/shared-ad/' . $newAd->id, 'DELETE');
$newAd = R::findOne('ad', ' name = ? ', array('my new ad'));
asrt((string) $resp['result'], 'OK');
asrt($newAd, NULL);
// Send a MAIL /site/1/page/1
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id, 'mail', array());
asrt((string) $resp['result'], 'mail has been sent to nobody');
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id, 'mail', array('param' => 123));
asrt((string) $resp['error']['message'], 'Parameter \'param\' must be object/array.');
asrt((string) $resp['error']['code'], '400');
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id, 'mail', array('param' => array('me')));
asrt((string) $resp['result'], 'mail has been sent to me');
$resp = $can->handleREST($user, 'site/' . $site->id . '/page/' . $page->id, 'err', array('param' => array('me')));
asrt((string) $resp['error']['message'], 'Exception: 123');
asrt((string) $resp['error']['code'], '500');
// Test Access control
$setting = R::dispense('setting');
$option = R::dispense('option');
$setting->ownOption[] = $option;
$user->ownSetting[] = $setting;
$option->name = 'secret';
R::store($user);
$resp = $can->handleREST($user, 'setting/' . $setting->id . '/option/' . $option->id, 'GET');
asrt($resp['result']['name'], 'secret');
$user2 = R::load('user', R::store(R::dispense('user')));
$resp = $can->handleREST($user2, 'setting/' . $setting->id . '/option/' . $option->id, 'GET');
asrt(isset($resp['error']), TRUE);
Model_Setting::$closed = TRUE;
$resp = $can->handleREST($user, 'setting/' . $setting->id . '/option/' . $option->id, 'GET');
asrt(isset($resp['error']), TRUE);
Model_Setting::$closed = FALSE;
// Some other scenarios, not allowed to post nested sets.
$village = R::dispense('village');
$village->user = $user;
R::store($village);
asrt(count($village->ownBuilding), 0);
$resp = $can->handleREST($user, 'village/' . $village->id . '/building', 'POST', array('bean' => array('name' => 'house')));
$village = $village->fresh();
asrt(count($village->ownBuilding), 1);
$resp = $can->handleREST($user, 'village/' . $village->id . '/building', 'POST', array('bean' => array('name' => 'house', 'ownFurniture' => array('chair'))));
asrt($resp['error']['message'], "Object 'bean' invalid.");
asrt(count($village->ownBuilding), 1);
// Test some combination with cache, needs more testing
R::nuke();
R::$writer->setUseCache(TRUE);
$village = R::dispense('village');
$village->user = R::dispense('user');
R::store($village);
asrt(count($village->ownBuilding), 0);
$resp = $can->handleREST($user, 'village/' . $village->id . '/building', 'POST', array('bean' => array('name' => 'house')));
$village = $village->fresh();
asrt(count($village->ownBuilding), 1);
$resp = $can->handleREST($user, 'village/' . $village->id . '/building', 'POST', array('bean' => array('name' => 'house', 'ownFurniture' => array('chair'))));
asrt($resp['error']['message'], "Object 'bean' invalid.");
asrt(count($village->ownBuilding), 1);
R::$writer->setUseCache(FALSE);
testpack("Test BeanCan Server 1 / create");
R::nuke();
$rs = fakeBeanCanServerRequest("candybar:store", array(array("brand" => "funcandy", "taste" => "sweet")));
asrt(is_string($rs), TRUE);
$rs = json_decode($rs, TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), TRUE);
asrt($rs["result"] > 0, TRUE);
asrt(isset($rs["error"]), FALSE);
asrt(count($rs), 3);
$oldid = $rs["result"];
testpack("Test retrieve");
$rs = json_decode(fakeBeanCanServerRequest("candybar:load", array($oldid)), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), TRUE);
asrt(isset($rs["error"]), FALSE);
asrt(is_array($rs["result"]), TRUE);
asrt(count($rs["result"]), 3);
asrt($rs["result"]["id"], (string) $oldid);
asrt($rs["result"]["brand"], "funcandy");
asrt($rs["result"]["taste"], "sweet");
testpack("Test update");
$rs = json_decode(fakeBeanCanServerRequest("candybar:store", array(array("id" => $oldid, "taste" => "salty")), "42"), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "42");
asrt(isset($rs["result"]), TRUE);
asrt(isset($rs["error"]), FALSE);
$rs = json_decode(fakeBeanCanServerRequest("candybar:load", array($oldid)), TRUE);
asrt($rs["result"]["taste"], "salty");
$rs = json_decode(fakeBeanCanServerRequest("candybar:load", array()), TRUE);
asrt($rs["error"]["message"], "First param needs to be Bean ID");
asrt((string) $rs["error"]["code"], "-32602");
$rs = json_decode(fakeBeanCanServerRequest("candybar:export", array()), TRUE);
asrt($rs["error"]["message"], "First param needs to be Bean ID");
asrt((string) $rs["error"]["code"], "-32602");
$rs = json_decode(fakeBeanCanServerRequest("candybar:trash", array()), TRUE);
asrt($rs["error"]["message"], "First param needs to be Bean ID");
asrt((string) $rs["error"]["code"], "-32602");
$rs = json_decode(fakeBeanCanServerRequest("candybar:store", array(array("brand" => "darkchoco", "taste" => "bitter"))), TRUE);
$id2 = $rs["result"];
$rs = json_decode(fakeBeanCanServerRequest("candybar:load", array($oldid)), TRUE);
asrt($rs["result"]["brand"], "funcandy");
asrt($rs["result"]["taste"], "salty");
$rs = json_decode(fakeBeanCanServerRequest("candybar:load", array($id2)), TRUE);
asrt($rs["result"]["brand"], "darkchoco");
asrt($rs["result"]["taste"], "bitter");
testpack("Test delete");
$rs = json_decode(fakeBeanCanServerRequest("candybar:trash", array($oldid)), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), TRUE);
asrt(isset($rs["error"]), FALSE);
asrt($rs["result"], "OK");
$rs = json_decode(fakeBeanCanServerRequest("candybar:load", array($oldid)), TRUE);
asrt(isset($rs["result"]), TRUE);
asrt(isset($rs["error"]), FALSE);
asrt($rs["result"]["id"], 0);
$rs = json_decode(fakeBeanCanServerRequest("candybar:load", array($id2)), TRUE);
asrt($rs["result"]["brand"], "darkchoco");
asrt($rs["result"]["taste"], "bitter");
testpack("Test Custom Method");
$rs = json_decode(fakeBeanCanServerRequest("candybar:customMethod", array("test")), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), TRUE);
asrt(isset($rs["error"]), FALSE);
asrt($rs["result"], "test!");
$rs = json_decode(fakeBeanCanServerRequest("candybar:customMethodWithException", array("test")), TRUE);
asrt($rs["error"]["code"], -32099);
asrt($rs["error"]["message"], '0-Oops!');
testpack("Test Whitelist");
$can = new RedBean_Plugin_BeanCan();
$can->setWhitelist('all');
$rs = json_decode(fakeBeanCanServerRequest("candybar:store", array(array("brand" => "darkchoco", "taste" => "bitter")), 1, ''), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt(isset($rs["error"]["code"]), TRUE);
asrt($rs["error"]["code"], -32600);
asrt($rs["error"]["message"], 'This bean is not available. Set whitelist to "all" or add to whitelist.');
$can = new RedBean_Plugin_BeanCan();
$rs = json_decode(fakeBeanCanServerRequest("candybar:store", array(array("brand" => "darkchoco", "taste" => "bitter")), 1, array('candybar' => array('like'))), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt(isset($rs["error"]["code"]), TRUE);
asrt($rs["error"]["code"], -32600);
asrt($rs["error"]["message"], 'This bean is not available. Set whitelist to "all" or add to whitelist.');
$can = new RedBean_Plugin_BeanCan();
$rs = json_decode(fakeBeanCanServerRequest("candybar:store", array(array("brand" => "darkchoco", "taste" => "bitter")), 1, array('candybar' => array('store'))), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt(isset($rs["result"]), TRUE);
asrt(isset($rs["error"]), FALSE);
testpack("Test Negatives: parse error");
$rs = json_decode($can->handleJSONRequest("crap"), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 2);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), FALSE);
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt(isset($rs["error"]["code"]), TRUE);
asrt($rs["error"]["code"], -32700);
testpack("invalid request");
$can = new RedBean_Plugin_BeanCan();
$can->setWhitelist('all');
$rs = json_decode($can->handleJSONRequest('{"aa":"bb"}'), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 2);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), FALSE);
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt(isset($rs["error"]["code"]), TRUE);
asrt($rs["error"]["code"], -32600);
$can->setWhitelist('all');
$rs = json_decode($can->handleJSONRequest('{"jsonrpc":"9.1"}'), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 2);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), FALSE);
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt(isset($rs["error"]["code"]), TRUE);
asrt($rs["error"]["code"], -32600);
$can->setWhitelist('all');
$rs = json_decode($can->handleJSONRequest('{"id":9876,"jsonrpc":"9.1"}'), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 2);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), FALSE);
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt(isset($rs["error"]["code"]), TRUE);
asrt($rs["error"]["code"], -32600);
$rs = json_decode(fakeBeanCanServerRequest("wrong", array("test")), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt($rs["error"]["code"], -32600);
asrt($rs["error"]["message"], "Invalid method signature. Use: BEAN:ACTION");
$rs = json_decode(fakeBeanCanServerRequest(".;':wrong", array("test")), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt($rs["error"]["code"], -32600);
asrt($rs["error"]["message"], "Invalid Bean Type String");
$rs = json_decode(fakeBeanCanServerRequest("wrong:.;'", array("test")), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt($rs["error"]["code"], -32600);
asrt($rs["error"]["message"], "Invalid Action String");
$rs = json_decode(fakeBeanCanServerRequest("wrong:wrong", array("test")), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt($rs["error"]["code"], -32601);
asrt($rs["error"]["message"], "No such bean in the can!");
$rs = json_decode(fakeBeanCanServerRequest("candybar:beHealthy", array("test")), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt($rs["error"]["code"], -32601);
asrt($rs["error"]["message"], "Method not found in Bean: candybar ");
$rs = json_decode(fakeBeanCanServerRequest("candybar:store"), TRUE);
asrt(is_array($rs), TRUE);
asrt(empty($rs), FALSE);
asrt(count($rs), 3);
asrt(isset($rs["jsonrpc"]), TRUE);
asrt($rs["jsonrpc"], "2.0");
asrt(isset($rs["id"]), TRUE);
asrt($rs["id"], "1234");
asrt(isset($rs["result"]), FALSE);
asrt(isset($rs["error"]), TRUE);
asrt($rs["error"]["code"], -32602);
$rs = json_decode(fakeBeanCanServerRequest("pdo:connect", array("abc")), TRUE);
asrt($rs["error"]["code"], -32601);
$rs = json_decode(fakeBeanCanServerRequest("stdClass:__toString", array("abc")), TRUE);
asrt($rs["error"]["code"], -32601);
$j = array("jsonrpc" => "2.0", 'id' => '1');
$can = new RedBean_Plugin_BeanCan();
$request = json_encode($j);
$out = $can->handleJSONRequest($request);
$rs = json_decode($out, TRUE);
asrt((string) $rs["error"]["message"], 'No method');
asrt((string) $rs["error"]["code"], '-32600');
$j = array("jsonrpc" => "2.0", 'method' => 'method');
$can = new RedBean_Plugin_BeanCan();
$request = json_encode($j);
$out = $can->handleJSONRequest($request);
$rs = json_decode($out, TRUE);
asrt((string) $rs["error"]["message"], 'No ID');
asrt((string) $rs["error"]["code"], '-32600');
R::nuke();
$server = new RedBean_Plugin_BeanCan();
$book = R::dispense('book');
$book->title = 'book 1';
$id1 = R::store($book);
$book = R::dispense('book');
$book->title = 'book 2';
$id2 = R::store($book);
asrt(json_decode($server->handleRESTGetRequest('book/' . $id1))->result->title, 'book 1');
asrt(json_decode($server->handleRESTGetRequest('book/' . $id2))->result->title, 'book 2');
$r = json_decode($server->handleRESTGetRequest('book'), TRUE);
$a = $r['result'];
asrt(count($a), 2);
$r = json_decode($server->handleRESTGetRequest(''), TRUE);
$a = $r['error']['message'];
asrt($a, 'Internal Error');
$r = json_decode($server->handleRESTGetRequest(array()), TRUE);
$a = $r['error']['message'];
asrt($a, 'IR');
testpack('Test BeanCan:export');
R::nuke();
$briefcase = R::dispense('briefcase');
$documents = R::dispense('document', 2);
$page = R::dispense('page');
$author = R::dispense('author');
$briefcase->name = 'green';
$documents[0]->name = 'document 1';
$page->content = 'Lorem Ipsum';
$author->name = 'Someone';
$briefcase->ownDocument = $documents;
$documents[1]->ownPage[] = $page;
$page->sharedAuthor[] = $author;
$id = R::store($briefcase);
$rs = json_decode(fakeBeanCanServerRequest('briefcase:export', array($id)), TRUE);
asrt((int) $rs['result'][0]['id'], (int) $id);
asrt($rs['result'][0]['name'], 'green');
asrt($rs['result'][0]['ownDocument'][0]['name'], 'document 1');
asrt($rs['result'][0]['ownDocument'][1]['ownPage'][0]['content'], 'Lorem Ipsum');
asrt($rs['result'][0]['ownDocument'][1]['ownPage'][0]['sharedAuthor'][0]['name'], 'Someone');
$rs = json_decode(fakeBeanCanServerRequest('document:export', array($documents[1]->id)), TRUE);
asrt((int) $rs['result'][0]['id'], (int) $documents[1]->id);
asrt($rs['result'][0]['ownPage'][0]['content'], 'Lorem Ipsum');
asrt($rs['result'][0]['ownPage'][0]['sharedAuthor'][0]['name'], 'Someone');
asrt($rs['result'][0]['briefcase']['name'], 'green');
testpack('BeanCan does not include the request id in the response if it is 0');
$id = R::store(R::dispense('foo')->setAttr('prop1', 'val1'));
$can->setWhitelist('all');
$rs = json_decode($can->handleJSONRequest('{"jsonrpc":"2.0","method":"foo:load","params":[' . $id . '],"id":0}'), TRUE);
asrt(isset($rs['id']), TRUE);
asrt($rs['id'], 0);
}