/**
* Test integration with pre-existing schemas.
*
* @return void
*/
public function testPlaysNiceWithPreExitsingSchema()
{
$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);
$adapter->exec("ALTER TABLE " . $writer->esc('page') . "\n\t\tCHANGE " . $writer->esc('name') . " " . $writer->esc('name') . "\n\t\tVARCHAR( 254 ) CHARACTER SET utf8 COLLATE utf8_unicode_ci NULL DEFAULT NULL ");
$page = $redbean->dispense("page");
$page->name = "Just Another Page In a Table";
$cols = $writer->getColumns("page");
asrt($cols["name"], "varchar(254)");
//$pdo->SethMode(1);
$redbean->store($page);
pass();
// No crash?
$cols = $writer->getColumns("page");
asrt($cols["name"], "varchar(254)");
//must still be same
}
/**
* Associates two Beans. This method will associate two beans with eachother.
* You can then get one of the beans by using the related() function and
* providing the other bean. You can also provide a base bean in the extra
* parameter. This base bean allows you to add extra information to the association
* record. Note that this is for advanced use only and the information will not
* be added to one of the beans, just to the association record.
* It's also possible to provide an array or JSON string as base bean. If you
* pass a scalar this function will interpret the base bean as having one
* property called 'extra' with the value of the scalar.
*
* @todo extract from facade
*
* @param RedBean_OODBBean $bean1 bean that will be part of the association
* @param RedBean_OODBBean $bean2 bean that will be part of the association
* @param mixed $extra bean, scalar, array or JSON providing extra data.
*
* @return mixed
*/
public function associate($beans1, $beans2, $extra = NULL)
{
if (!$extra) {
return $this->associationManager->associate($beans1, $beans2);
} else {
return $this->extAssocManager->extAssociateSimple($beans1, $beans2, $extra);
}
}
public static function Associate($bean1, $bean2)
{
//Get a new association manager
$association = new \RedBean_AssociationManager(self::Toolbox());
//associate the bean
$association->associate($bean1, $bean2);
//Add acascaded delete constraint
\RedBean_Plugin_Constraint::addConstraint($bean1, $bean2);
}
/**
* Processes a list of beans from a bean. A bean may contain lists. This
* method handles shared addition lists; i.e. the $bean->sharedObject properties.
*
* @param RedBean_OODBBean $bean the bean
* @param array $sharedAdditions list with shared additions
*
* @return void
*
* @throws RedBean_Exception_Security
*/
private function processSharedAdditions($bean, $sharedAdditions)
{
foreach ($sharedAdditions as $addition) {
if ($addition instanceof RedBean_OODBBean) {
$this->assocManager->associate($addition, $bean);
} else {
throw new RedBean_Exception_Security('Array may only contain RedBean_OODBBeans');
}
}
}
/**
* Adds tags to a bean.
* If $tagList is a comma separated list of tags all tags will
* be associated with the bean.
* You may also pass an array instead of a string.
*
* Tag list can be either an array with tag names or a comma separated list
* of tag names.
*
* @param RedBean_OODBBean $bean bean to add tags to
* @param array|string $tagList list of tags to add to bean
*
* @return void
*/
public function addTags(RedBean_OODBBean $bean, $tagList)
{
$tags = $this->extractTagsIfNeeded($tagList);
if ($tagList === FALSE) {
return;
}
foreach ($tags as $tag) {
if (!($t = $this->findTagByTitle($tag))) {
$t = $this->redbean->dispense('tag');
$t->title = $tag;
$this->redbean->store($t);
}
$this->associationManager->associate($bean, $t);
}
}
/**
* Associates two Beans. This method will associate two beans with eachother.
* You can then get one of the beans by using the related() function and
* providing the other bean. You can also provide a base bean in the extra
* parameter. This base bean allows you to add extra information to the association
* record. Note that this is for advanced use only and the information will not
* be added to one of the beans, just to the association record.
* It's also possible to provide an array or JSON string as base bean. If you
* pass a scalar this function will interpret the base bean as having one
* property called 'extra' with the value of the scalar.
*
* @param RedBean_OODBBean $bean1 bean that will be part of the association
* @param RedBean_OODBBean $bean2 bean that will be part of the association
* @param mixed $extra bean, scalar, array or JSON providing extra data.
*
* @return mixed
*/
public static function associate(RedBean_OODBBean $bean1, RedBean_OODBBean $bean2, $extra = null)
{
//No extra? Just associate like always (default)
if (!$extra) {
return self::$associationManager->associate($bean1, $bean2);
} else {
if (!is_array($extra)) {
$info = json_decode($extra, true);
if (!$info) {
$info = array("extra" => $extra);
}
} else {
$info = $extra;
}
$bean = RedBean_Facade::dispense("typeLess");
$bean->import($info);
return self::$extAssocManager->extAssociate($bean1, $bean2, $bean);
}
}
/**
* Associates two Beans. This method will associate two beans with eachother.
* You can then get one of the beans by using the related() function and
* providing the other bean. You can also provide a base bean in the extra
* parameter. This base bean allows you to add extra information to the association
* record. Note that this is for advanced use only and the information will not
* be added to one of the beans, just to the association record.
* It's also possible to provide an array or JSON string as base bean. If you
* pass a scalar this function will interpret the base bean as having one
* property called 'extra' with the value of the scalar.
*
* @todo extract from facade
*
* @param RedBean_OODBBean $bean1 bean that will be part of the association
* @param RedBean_OODBBean $bean2 bean that will be part of the association
* @param mixed $extra bean, scalar, array or JSON providing extra data.
*
* @return mixed
*/
public static function associate($beans1, $beans2, $extra = null)
{
if (!$extra) {
return self::$associationManager->associate($beans1, $beans2);
} else {
return self::$extAssocManager->extAssociateSimple($beans1, $beans2, $extra);
}
}
/**
* Associates the bean inside with another OODBBean
* @param RedBean_DomainObject $other
*/
protected function associate(RedBean_DomainObject $other)
{
$this->associationManager->associate($this->bean, $other->bean);
}
/**
* 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();
}
/**
* Associates two Beans.
* @param RedBean_OODBBean $bean1
* @param RedBean_OODBBean $bean2
* @return mixed
*/
public static function associate(RedBean_OODBBean $bean1, RedBean_OODBBean $bean2)
{
return self::$associationManager->associate($bean1, $bean2);
}
asrt(in_array("id", $columns), false);
$movie2 = $redbean2->dispense("movie");
asrt(isset($movie2->movie_id), true);
$movie2->name = "movie 2";
$movieid2 = $redbean2->store($movie2);
$movie1 = $redbean2->load("movie", $movieid);
asrt($movie->name, "movie 1");
$movie2 = $redbean2->load("movie", $movieid2);
asrt($movie2->name, "movie 2");
$movies = $redbean2->batch("movie", array($movieid, $movieid2));
asrt(count($movies), 2);
asrt($movies[$movieid]->name, "movie 1");
asrt($movies[$movieid2]->name, "movie 2");
$toolbox2 = new RedBean_ToolBox($redbean2, $adapter, $writer2);
$a2 = new RedBean_AssociationManager($toolbox2);
$a2->associate($movie1, $movie2);
$movies = $a2->related($movie1, "movie");
asrt(count($movies), 1);
asrt((int) $movies[0], (int) $movieid2);
$movies = $a2->related($movie2, "movie");
asrt(count($movies), 1);
asrt((int) $movies[0], (int) $movieid);
$genre = $redbean2->dispense("genre");
$genre->name = "western";
$a2->associate($movie, $genre);
$movies = $a2->related($genre, "movie");
asrt(count($movies), 1);
asrt((int) $movies[0], (int) $movieid);
$a2->unassociate($movie, $genre);
$movies = $a2->related($genre, "movie");
asrt(count($movies), 0);
/**
* Associates two Beans. This method will associate two beans with eachother.
* You can then get one of the beans by using the related() function and
* providing the other bean. You can also provide a base bean in the extra
* parameter. This base bean allows you to add extra information to the association
* record. Note that this is for advanced use only and the information will not
* be added to one of the beans, just to the association record.
* It's also possible to provide an array or JSON string as base bean. If you
* pass a scalar this function will interpret the base bean as having one
* property called 'extra' with the value of the scalar.
*
* @param RedBean_OODBBean $bean1 bean that will be part of the association
* @param RedBean_OODBBean $bean2 bean that will be part of the association
* @param mixed $extra bean, scalar, array or JSON providing extra data.
* @param string $table specific the table name if needed
*
* @return mixed
*/
public static function associate(RedBean_OODBBean $bean1, RedBean_OODBBean $bean2, $extra = null, $table = null)
{
//No extra? Just associate like always (default)
if (!$extra) {
return self::$associationManager->associate($bean1, $bean2, $table);
} elseif ($table != null) {
throw new NotSupportedException();
} else {
if (!is_array($extra)) {
$info = json_decode($extra, true);
if (!$info) {
$info = array('extra' => $extra);
}
} else {
$info = $extra;
}
$bean = RedBean_Facade::dispense('typeLess');
$bean->import($info);
return self::$extAssocManager->extAssociate($bean1, $bean2, $bean);
}
}
/**
* Tests freezing the database.
* After freezing the database, schema modifications are no longer
* allowed and referring to missing columns will now cause exceptions.
*
* @return void
*/
public function testFreezer()
{
$toolbox = R::$toolbox;
$adapter = $toolbox->getDatabaseAdapter();
$writer = $toolbox->getWriter();
$redbean = $toolbox->getRedBean();
$pdo = $adapter->getDatabase();
$a = new RedBean_AssociationManager($toolbox);
$post = $redbean->dispense('post');
$post->title = 'title';
$redbean->store($post);
$page = $redbean->dispense('page');
$page->name = 'title';
$redbean->store($page);
$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);
$redbean->freeze(TRUE);
$page = $redbean->dispense("page");
$page->sections = 10;
$page->name = "half a page";
try {
$id = $redbean->store($page);
fail();
} catch (RedBean_Exception_SQL $e) {
pass();
}
$post = $redbean->dispense("post");
$post->title = "existing table";
try {
$id = $redbean->store($post);
pass();
} catch (RedBean_Exception_SQL $e) {
fail();
}
asrt(in_array("name", array_keys($writer->getColumns("page"))), TRUE);
asrt(in_array("sections", array_keys($writer->getColumns("page"))), FALSE);
$newtype = $redbean->dispense("newtype");
$newtype->property = 1;
try {
$id = $redbean->store($newtype);
fail();
} catch (RedBean_Exception_SQL $e) {
pass();
}
$logger = RedBean_Plugin_QueryLogger::getInstanceAndAttach($adapter);
// Now log and make sure no 'describe SQL' happens
$page = $redbean->dispense("page");
$page->name = "just another page that has been frozen...";
$id = $redbean->store($page);
$page = $redbean->load("page", $id);
$page->name = "just a frozen page...";
$redbean->store($page);
$page2 = $redbean->dispense("page");
$page2->name = "an associated frozen page";
$a->associate($page, $page2);
$a->related($page, "page");
$a->unassociate($page, $page2);
$a->clearRelations($page, "page");
$items = $redbean->find("page", array(), array("1"));
$redbean->trash($page);
$redbean->freeze(FALSE);
asrt(count($logger->grep("SELECT")) > 0, TRUE);
asrt(count($logger->grep("describe")) < 1, TRUE);
asrt(is_array($logger->getLogs()), TRUE);
}
/**
* Begin testing.
* This method runs the actual test pack.
*
* @return void
*/
public function testFinding()
{
$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);
$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 RedBean_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 (RedBean_Exception_Security $exception) {
pass();
}
}
/**
* Various.
* Tests whether writer correctly handles keyword 'group' and SQL state 23000 issue.
* These tests remain here to make sure issues 9 and 10 never happen again.
* However this bug will probably never re-appear due to changed architecture.
*
* @return void
*/
public function testIssue9and10()
{
$toolbox = R::$toolbox;
$redbean = $toolbox->getRedBean();
$adapter = $toolbox->getDatabaseAdapter();
$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)");
$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) {
print_r($e);
fail();
}
asrt((int) $adapter->getCell("select count(*) from book_group"), 1);
//just 1 rec!
}
/**
* (FALSE should be stored as 0 not as '')
*
* @return voids
*/
public function testZeroIssue()
{
testpack("Zero issue");
$toolbox = R::$toolbox;
$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 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();
$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 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)");
$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 (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!
$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 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();
}
/**
* 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);
}
