/**
* (FALSE should be stored as 0 not as '')
*
* @return void
*/
public function testZeroIssue()
{
testpack("Zero issue");
$toolbox = R::getToolBox();
$redbean = $toolbox->getRedBean();
$bean = $redbean->dispense("zero");
$bean->zero = FALSE;
$bean->title = "bla";
$redbean->store($bean);
asrt(count($redbean->find("zero", array(), " zero = 0 ")), 1);
testpack("Test ANSI92 issue in clearrelations");
$redbean = $toolbox->getRedBean();
$a = new AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
set1toNAssoc($a, $book, $author1);
set1toNAssoc($a, $book, $author2);
pass();
}
/**
* (FALSE should be stored as 0 not as '')
*
* @return voids
*/
public function testZeroIssue()
{
testpack("Zero issue");
$toolbox = R::getToolBox();
$redbean = $toolbox->getRedBean();
$adapter = $toolbox->getDatabaseAdapter();
$writer = $toolbox->getWriter();
$pdo = $adapter->getDatabase();
$pdo->Execute("DROP TABLE IF EXISTS `zero`");
$bean = $redbean->dispense("zero");
$bean->zero = FALSE;
$bean->title = "bla";
$redbean->store($bean);
asrt(count($redbean->find("zero", array(), " zero = 0 ")), 1);
R::store(R::dispense('hack'));
testpack("Test RedBean Security - bean interface ");
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
$bean = $redbean->load("page", "13; drop table hack");
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
try {
$bean = $redbean->load("page where 1; drop table hack", 1);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
$bean = $redbean->dispense("page");
$evil = "; drop table hack";
$bean->id = $evil;
try {
$redbean->store($bean);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
unset($bean->id);
$bean->name = "\"" . $evil;
try {
$redbean->store($bean);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
$bean->name = "'" . $evil;
try {
$redbean->store($bean);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
$bean->{$evil} = 1;
try {
$redbean->store($bean);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
unset($bean->{$evil});
$bean->id = 1;
$bean->name = "\"" . $evil;
try {
$redbean->store($bean);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
$bean->name = "'" . $evil;
try {
$redbean->store($bean);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
$bean->{$evil} = 1;
try {
$redbean->store($bean);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
try {
$redbean->trash($bean);
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
try {
$redbean->find("::", array(), "");
} catch (\Exception $e) {
pass();
}
$adapter->exec("drop table if exists sometable");
testpack("Test RedBean Security - query writer");
try {
$writer->createTable("sometable` ( `id` INT( 11 ) UNSIGNED NOT NULL AUTO_INCREMENT , PRIMARY KEY ( `id` ) ) ENGINE = InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci ; drop table hack; --");
} catch (\Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("show tables")), TRUE);
testpack("Test ANSI92 issue in clearrelations");
$pdo->Execute("DROP TABLE IF EXISTS book_group");
$pdo->Execute("DROP TABLE IF EXISTS author_book");
$pdo->Execute("DROP TABLE IF EXISTS book");
$pdo->Execute("DROP TABLE IF EXISTS author");
$redbean = $toolbox->getRedBean();
$a = new AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
set1toNAssoc($a, $book, $author1);
set1toNAssoc($a, $book, $author2);
pass();
$pdo->Execute("DROP TABLE IF EXISTS book_group");
$pdo->Execute("DROP TABLE IF EXISTS book_author");
$pdo->Execute("DROP TABLE IF EXISTS author_book");
$pdo->Execute("DROP TABLE IF EXISTS book");
$pdo->Execute("DROP TABLE IF EXISTS author");
$redbean = $toolbox->getRedBean();
$a = new AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
$a->associate($book, $author1);
$a->associate($book, $author2);
pass();
testpack("Test Association Issue Group keyword (Issues 9 and 10)");
$pdo->Execute("DROP TABLE IF EXISTS `book_group`");
$pdo->Execute("DROP TABLE IF EXISTS `group`");
$group = $redbean->dispense("group");
$group->name = "mygroup";
$redbean->store($group);
try {
$a->associate($group, $book);
pass();
} catch (SQL $e) {
fail();
}
// Test issue SQL error 23000
try {
$a->associate($group, $book);
pass();
} catch (SQL $e) {
fail();
}
asrt((int) $adapter->getCell("select count(*) from book_group"), 1);
//just 1 rec!
$pdo->Execute("DROP TABLE IF EXISTS book_group");
$pdo->Execute("DROP TABLE IF EXISTS author_book");
$pdo->Execute("DROP TABLE IF EXISTS book");
$pdo->Execute("DROP TABLE IF EXISTS author");
$redbean = $toolbox->getRedBean();
$a = new AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
$a->unassociate($book, $author1);
$a->unassociate($book, $author2);
pass();
$redbean->trash($redbean->dispense("bla"));
pass();
$bean = $redbean->dispense("bla");
$bean->name = 1;
$bean->id = 2;
$redbean->trash($bean);
pass();
}
/**
* Test legacy methods, backward compatibility with removed
* setAssoc function.
*
* @return void
*/
public function testBackwardCompat()
{
$toolbox = R::$toolbox;
$adapter = $toolbox->getDatabaseAdapter();
$writer = $toolbox->getWriter();
$redbean = $toolbox->getRedBean();
$pdo = $adapter->getDatabase();
$rb = $redbean;
$testA = $rb->dispense('testA');
$testB = $rb->dispense('testB');
$a = new RedBean_AssociationManager($toolbox);
try {
$a->related($testA, "testB");
pass();
} catch (Exception $e) {
fail();
}
$user = $redbean->dispense("user");
$user->name = "John";
$redbean->store($user);
$page = $redbean->dispense("page");
$page->name = "John's page";
$redbean->store($page);
$page2 = $redbean->dispense("page");
$page2->name = "John's second page";
$redbean->store($page2);
$a = new RedBean_AssociationManager($toolbox);
$a->associate($page, $user);
asrt(count($a->related($user, "page")), 1);
$a->associate($user, $page2);
asrt(count($a->related($user, "page")), 2);
// Can we fetch the assoc ids themselves?
$pageKeys = $a->related($user, "page");
$pages = $redbean->batch("page", $pageKeys);
$links = $redbean->batch("page_user", $a->related($user, "page", TRUE));
asrt(count($links), 2);
// Confirm that the link beans are ok.
$link = array_pop($links);
asrt(isset($link->page_id), TRUE);
asrt(isset($link->user_id), TRUE);
asrt(isset($link->id), TRUE);
$link = array_pop($links);
asrt(isset($link->page_id), TRUE);
asrt(isset($link->user_id), TRUE);
asrt(isset($link->id), TRUE);
$a->unassociate($page, $user);
asrt(count($a->related($user, "page")), 1);
$a->clearRelations($user, "page");
asrt(count($a->related($user, "page")), 0);
$user2 = $redbean->dispense("user");
$user2->name = "Second User";
set1toNAssoc($a, $user2, $page);
set1toNAssoc($a, $user, $page);
asrt(count($a->related($user2, "page")), 0);
asrt(count($a->related($user, "page")), 1);
set1toNAssoc($a, $user, $page2);
asrt(count($a->related($user, "page")), 2);
$pages = $redbean->batch("page", $a->related($user, "page"));
asrt(count($pages), 2);
$apage = array_shift($pages);
asrt($apage->name == "John's page" || $apage->name == "John's second page", TRUE);
$apage = array_shift($pages);
asrt($apage->name == "John's page" || $apage->name == "John's second page", TRUE);
// Test save on the fly
$page = $redbean->dispense("page");
$page2 = $redbean->dispense("page");
$page->name = "idless page 1";
$page2->name = "idless page 1";
$a->associate($page, $page2);
asrt($page->id > 0, TRUE);
asrt($page2->id > 0, TRUE);
$idpage = $page->id;
$idpage2 = $page2->id;
$page = $redbean->dispense("page");
$page->name = "test page";
$id = $redbean->store($page);
$user = $redbean->dispense("user");
$a->unassociate($user, $page);
pass();
// No error
$a->unassociate($page, $user);
pass();
// No error
$a->clearRelations($page, "user");
pass();
// No error
$a->clearRelations($user, "page");
pass();
// No error
$a->associate($user, $page);
pass();
asrt(count($a->related($user, "page")), 1);
asrt(count($a->related($page, "user")), 1);
$a->clearRelations($user, "page");
pass();
// No error
asrt(count($a->related($user, "page")), 0);
asrt(count($a->related($page, "user")), 0);
$page = $redbean->load("page", $id);
pass();
asrt($page->name, "test page");
}
/**
* Test scanning and coding.
*
* @return void
*/
public function testScanningAndCoding()
{
$toolbox = R::$toolbox;
$adapter = $toolbox->getDatabaseAdapter();
$writer = $toolbox->getWriter();
$redbean = $toolbox->getRedBean();
$pdo = $adapter->getDatabase();
$a = new RedBean_AssociationManager($toolbox);
$this->dropTableIfExists($adapter, 'testtable');
asrt(in_array("testtable", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), FALSE);
$writer->createTable("testtable");
asrt(in_array("testtable", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
asrt(count(array_diff($writer->getTables(), $adapter->getCol("SELECT LOWER(table_name) FROM user_tables"))), 0);
asrt(count(array_keys($writer->getColumns("testtable"))), 1);
asrt(in_array("id", array_keys($writer->getColumns("testtable"))), TRUE);
asrt(in_array("c1", array_keys($writer->getColumns("testtable"))), FALSE);
$writer->addColumn("testtable", "c1", 1);
asrt(count(array_keys($writer->getColumns("testtable"))), 2);
asrt(in_array("c1", array_keys($writer->getColumns("testtable"))), TRUE);
foreach ($writer->sqltype_typeno as $key => $type) {
if ($type < 100) {
asrt($writer->code($key), $type);
} else {
asrt($writer->code($key), 99);
}
}
asrt($writer->code("unknown"), 99);
asrt($writer->scanType(FALSE), 0);
asrt($writer->scanType(NULL), 0);
asrt($writer->scanType(2), 1);
asrt($writer->scanType(255), 1);
asrt($writer->scanType(256), 2);
asrt($writer->scanType(-1), 3);
asrt($writer->scanType(1.5), 3);
asrt($writer->scanType(INF), 4);
asrt($writer->scanType("abc"), 4);
asrt($writer->scanType(str_repeat('abcd', 100000)), RedBean_QueryWriter_MySQL::C_DATATYPE_TEXT32);
asrt($writer->scanType("2001-10-10", TRUE), RedBean_QueryWriter_Oracle::C_DATATYPE_SPECIAL_DATE);
asrt($writer->scanType("2001-10-10 10:00:00", TRUE), RedBean_QueryWriter_Oracle::C_DATATYPE_SPECIAL_DATE);
asrt($writer->scanType("2001-10-10 10:00:00.99", TRUE), RedBean_QueryWriter_Oracle::C_DATATYPE_SPECIAL_TIMESTAMP);
asrt($writer->scanType("2001-10-10"), 4);
asrt($writer->scanType("2001-10-10 10:00:00"), 4);
asrt($writer->scanType("2001-10-10 10:00:00.99"), 4);
//asrt($writer->scanType("POINT(1 2)",TRUE),RedBean_QueryWriter_MySQL::C_DATATYPE_SPECIAL_POINT);
//asrt($writer->scanType("POINT(1 2)"),4);
asrt($writer->scanType(str_repeat("lorem ipsum", 100)), 5);
$writer->widenColumn("testtable", "c1", 2);
$cols = $writer->getColumns("testtable");
asrt($writer->code($cols["c1"]), 2);
$writer->widenColumn("testtable", "c1", 3);
$cols = $writer->getColumns("testtable");
asrt($writer->code($cols["c1"]), 3);
$writer->widenColumn("testtable", "c1", 4);
$cols = $writer->getColumns("testtable");
asrt($writer->code($cols["c1"]), 4);
$writer->widenColumn("testtable", "c1", 5);
$cols = $writer->getColumns("testtable");
asrt($writer->code($cols["c1"]), 5);
$id = $writer->updateRecord("testtable", array(array("property" => "c1", "value" => "lorem ipsum")));
$row = $writer->selectRecord("testtable", array("id" => array($id)));
asrt($row[0]["c1"], "lorem ipsum");
$writer->updateRecord("testtable", array(array("property" => "c1", "value" => "ipsum lorem")), $id);
$row = $writer->queryRecord("testtable", array("id" => array($id)));
asrt($row[0]["c1"], "ipsum lorem");
$writer->deleteRecord("testtable", array("id" => array($id)));
$row = $writer->queryRecord("testtable", array("id" => array($id)));
asrt(empty($row), TRUE);
//$pdo->setDebugMode(1);
$writer->addColumn("testtable", "c2", 2);
try {
$writer->addUniqueIndex("testtable", array("c1", "c2"));
echo 'to be fixed';
//fail(); //should fail, no content length blob
} catch (RedBean_Exception_SQL $e) {
pass();
}
$writer->addColumn("testtable", "c3", 2);
try {
$writer->addUniqueIndex("testtable", array("c2", "c3"));
pass();
//should fail, no content length blob
} catch (RedBean_Exception_SQL $e) {
fail();
}
$a = $adapter->get("select INDEX_NAME from user_ind_columns where TABLE_NAME='TESTTABLE'");
asrt(count($a), 5);
//asrt($a[1]["Key_name"],"UQ_64b283449b9c396053fe1724b4c685a80fd1a54d");
//asrt($a[2]["Key_name"],"UQ_64b283449b9c396053fe1724b4c685a80fd1a54d");
//Zero issue (FALSE should be stored as 0 not as '')
testpack("Zero issue");
$this->dropTableIfExists($adapter, 'zero');
$bean = $redbean->dispense("zero");
$bean->zero = FALSE;
$bean->title = "bla";
$redbean->store($bean);
asrt(count($redbean->find("zero", array(), " zero = 0 ")), 1);
R::store(R::dispense('hack'));
testpack("Test RedBean Security - bean interface ");
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
$bean = $redbean->load("page", "13; drop table hack");
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
try {
$bean = $redbean->load("page where 1; drop table hack", 1);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
$bean = $redbean->dispense("page");
$evil = "; drop table hack";
$bean->id = $evil;
try {
$redbean->store($bean);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
unset($bean->id);
$bean->name = "\"" . $evil;
try {
$redbean->store($bean);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
$bean->name = "'" . $evil;
try {
$redbean->store($bean);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
$bean->{$evil} = 1;
try {
$redbean->store($bean);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
unset($bean->{$evil});
$bean->id = 1;
$bean->name = "\"" . $evil;
try {
$redbean->store($bean);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
$bean->name = "'" . $evil;
try {
$redbean->store($bean);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
$bean->{$evil} = 1;
try {
$redbean->store($bean);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
try {
$redbean->trash($bean);
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
try {
$redbean->find("::", array(), "");
} catch (Exception $e) {
pass();
}
$this->dropTableIfExists($adapter, 'sometable');
testpack("Test RedBean Security - query writer");
try {
$writer->createTable("sometable` ( `id` INT( 11 ) UNSIGNED NOT NULL AUTO_INCREMENT , PRIMARY KEY ( `id` ) ) ENGINE = InnoDB DEFAULT CHARSET=utf8 COLLATE=utf8_unicode_ci ; drop table hack; --");
} catch (Exception $e) {
}
asrt(in_array("hack", $adapter->getCol("SELECT LOWER(table_name) FROM user_tables")), TRUE);
testpack("Test ANSI92 issue in clearrelations");
$this->dropTableIfExists($adapter, 'book_group');
$this->dropTableIfExists($adapter, 'author_book');
$this->dropTableIfExists($adapter, 'book');
$this->dropTableIfExists($adapter, 'author');
$redbean = $toolbox->getRedBean();
$a = new RedBean_AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
set1toNAssoc($a, $book, $author1);
set1toNAssoc($a, $book, $author2);
pass();
$this->dropTableIfExists($adapter, 'book_group');
$this->dropTableIfExists($adapter, 'book_author');
$this->dropTableIfExists($adapter, 'author_book');
$this->dropTableIfExists($adapter, 'book');
$this->dropTableIfExists($adapter, 'author');
$redbean = $toolbox->getRedBean();
$a = new RedBean_AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
$a->associate($book, $author1);
$a->associate($book, $author2);
pass();
testpack("Test Association Issue Group keyword (Issues 9 and 10)");
$this->dropTableIfExists($adapter, 'book_group');
$this->dropTableIfExists($adapter, '"group"');
$group = $redbean->dispense("group");
$group->name = "mygroup";
$redbean->store($group);
try {
$a->associate($group, $book);
pass();
} catch (RedBean_Exception_SQL $e) {
fail();
}
// Test issue SQL error 23000
try {
$a->associate($group, $book);
pass();
} catch (RedBean_Exception_SQL $e) {
fail();
}
asrt((int) $adapter->getCell("select count(*) from book_group"), 1);
//just 1 rec!
$this->dropTableIfExists($adapter, 'book_group');
$this->dropTableIfExists($adapter, 'author_book');
$this->dropTableIfExists($adapter, 'book');
$this->dropTableIfExists($adapter, 'author');
$redbean = $toolbox->getRedBean();
$a = new RedBean_AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
$a->unassociate($book, $author1);
$a->unassociate($book, $author2);
pass();
$redbean->trash($redbean->dispense("bla"));
pass();
$bean = $redbean->dispense("bla");
$bean->name = 1;
$bean->id = 2;
$redbean->trash($bean);
pass();
}
$a->associate($page2, $page2);
// fail();
} catch (RedBean_Exception_SQL $e) {
pass();
}
$pageOne = $redbean->dispense("page");
$pageOne->name = "one";
$pageMore = $redbean->dispense("page");
$pageMore->name = "more";
$pageEvenMore = $redbean->dispense("page");
$pageEvenMore->name = "evenmore";
$pageOther = $redbean->dispense("page");
$pageOther->name = "othermore";
set1toNAssoc($pageOther, $pageMore);
set1toNAssoc($pageOne, $pageMore);
set1toNAssoc($pageOne, $pageEvenMore);
asrt(count($a->related($pageOne, "page")), 2);
asrt(count($a->related($pageMore, "page")), 1);
asrt(count($a->related($pageEvenMore, "page")), 1);
asrt(count($a->related($pageOther, "page")), 0);
testpack("Transactions");
$adapter->startTransaction();
pass();
$adapter->rollback();
pass();
$adapter->startTransaction();
pass();
$adapter->commit();
pass();
testpack("Test Frozen ");
$redbean->freeze(true);
/**
* Begin testing.
* This method runs the actual test pack.
*
* @return void
*/
public function testFinding()
{
$toolbox = R::getToolBox();
$adapter = $toolbox->getDatabaseAdapter();
$writer = $toolbox->getWriter();
$redbean = $toolbox->getRedBean();
$pdo = $adapter->getDatabase();
$a = new AssociationManager($toolbox);
$page = $redbean->dispense("page");
$page->name = "John's page";
$idpage = $redbean->store($page);
$page2 = $redbean->dispense("page");
$page2->name = "John's second page";
$idpage2 = $redbean->store($page2);
$a->associate($page, $page2);
$pageOne = $redbean->dispense("page");
$pageOne->name = "one";
$pageMore = $redbean->dispense("page");
$pageMore->name = "more";
$pageEvenMore = $redbean->dispense("page");
$pageEvenMore->name = "evenmore";
$pageOther = $redbean->dispense("page");
$pageOther->name = "othermore";
set1toNAssoc($a, $pageOther, $pageMore);
set1toNAssoc($a, $pageOne, $pageMore);
set1toNAssoc($a, $pageOne, $pageEvenMore);
asrt(count($redbean->find("page", array(), " name LIKE '%more%' ", array())), 3);
asrt(count($redbean->find("page", array(), " name LIKE :str ", array(":str" => '%more%'))), 3);
asrt(count($redbean->find("page", array(), array(" name LIKE :str ", array(":str" => '%more%')))), 3);
asrt(count($redbean->find("page", array(), " name LIKE :str ", array(":str" => '%mxore%'))), 0);
asrt(count($redbean->find("page", array("id" => array(2, 3)))), 2);
$bean = $redbean->dispense("wine");
$bean->name = "bla";
for ($i = 0; $i < 10; $i++) {
$redbean->store($bean);
}
$redbean->find("wine", array("id" => 5));
// Finder:where call OODB::convertToBeans
$bean2 = $redbean->load("anotherbean", 5);
asrt($bean2->id, 0);
$keys = $adapter->getCol("SELECT id FROM page WHERE " . $writer->esc('name') . " LIKE '%John%'");
asrt(count($keys), 2);
$pages = $redbean->batch("page", $keys);
asrt(count($pages), 2);
$p = R::findLast('page');
pass();
$row = R::getRow('select * from page ');
asrt(is_array($row), TRUE);
asrt(isset($row['name']), TRUE);
// Test findAll -- should not throw an exception
asrt(count(R::findAll('page')) > 0, TRUE);
asrt(count(R::findAll('page', ' ORDER BY id ')) > 0, TRUE);
$beans = R::findOrDispense("page");
asrt(count($beans), 6);
asrt(is_null(R::findLast('nothing')), TRUE);
try {
R::find('bean', ' id > 0 ', 'invalid bindings argument');
fail();
} catch (RedException $exception) {
pass();
}
}
/**
* Test self referential N-M relations (page_page).
*
* @return void
*/
public function testSelfReferential()
{
$toolbox = R::$toolbox;
$adapter = $toolbox->getDatabaseAdapter();
$writer = $toolbox->getWriter();
$redbean = $toolbox->getRedBean();
$pdo = $adapter->getDatabase();
$a = new RedBean_AssociationManager($toolbox);
$page = $redbean->dispense("page");
$page->name = "John's page";
$idpage = $redbean->store($page);
$page2 = $redbean->dispense("page");
$page2->name = "John's second page";
$idpage2 = $redbean->store($page2);
$a->associate($page, $page2);
$ids = $a->related($page, "page");
asrt(count($ids), 1);
asrt(intval(array_pop($ids)), intval($idpage2));
$ids = $a->related($page2, "page");
asrt(count($ids), 1);
asrt(intval(array_pop($ids)), intval($idpage));
$page3 = $redbean->dispense("page");
$page3->name = "third";
$page4 = $redbean->dispense("page");
$page4->name = "fourth";
$a->associate($page3, $page2);
$a->associate($page2, $page4);
$a->unassociate($page, $page2);
asrt(count($a->related($page, "page")), 0);
$ids = $a->related($page2, "page");
asrt(count($ids), 2);
asrt(in_array($page3->id, $ids), TRUE);
asrt(in_array($page4->id, $ids), TRUE);
asrt(in_array($page->id, $ids), FALSE);
asrt(count($a->related($page3, "page")), 1);
asrt(count($a->related($page4, "page")), 1);
$a->clearRelations($page2, "page");
asrt(count($a->related($page2, "page")), 0);
asrt(count($a->related($page3, "page")), 0);
asrt(count($a->related($page4, "page")), 0);
try {
$a->associate($page2, $page2);
pass();
} catch (RedBean_Exception_SQL $e) {
fail();
}
$pageOne = $redbean->dispense("page");
$pageOne->name = "one";
$pageMore = $redbean->dispense("page");
$pageMore->name = "more";
$pageEvenMore = $redbean->dispense("page");
$pageEvenMore->name = "evenmore";
$pageOther = $redbean->dispense("page");
$pageOther->name = "othermore";
set1toNAssoc($a, $pageOther, $pageMore);
set1toNAssoc($a, $pageOne, $pageMore);
set1toNAssoc($a, $pageOne, $pageEvenMore);
asrt(count($a->related($pageOne, "page")), 2);
asrt(count($a->related($pageMore, "page")), 1);
asrt(count($a->related($pageEvenMore, "page")), 1);
asrt(count($a->related($pageOther, "page")), 0);
}
//exit;
testpack("Test ANSI92 issue in clearrelations");
//$adapter->getDatabase()->setDebugMode(1);
$pdo->Execute("DROP TABLE IF EXISTS author_book");
$pdo->Execute("DROP TABLE IF EXISTS book");
$pdo->Execute("DROP TABLE IF EXISTS author");
$redbean = $toolbox->getRedBean();
$a = new RedBean_AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
set1toNAssoc($book, $author1);
set1toNAssoc($book, $author2);
pass();
$pdo->Execute("DROP TABLE IF EXISTS author_book");
$pdo->Execute("DROP TABLE IF EXISTS book");
$pdo->Execute("DROP TABLE IF EXISTS author");
$redbean = $toolbox->getRedBean();
$a = new RedBean_AssociationManager($toolbox);
$book = $redbean->dispense("book");
$author1 = $redbean->dispense("author");
$author2 = $redbean->dispense("author");
$book->title = "My First Post";
$author1->name = "Derek";
$author2->name = "Whoever";
$a->associate($book, $author1);
$a->associate($book, $author2);
pass();
