--- /dev/null
+<?php
+namespace RedUNIT\Base;
+
+use RedUNIT\Base as Base;
+use RedBeanPHP\Facade as R;
+
+/**
+ * Bean
+ *
+ * One of the core test suites of RedBeanPHP, tests the
+ * bean interface and all basic bean functions, including
+ * deletion, updating, inserting, importing and more...
+ *
+ * @file RedUNIT/Base/Bean.php
+ * @desc Tests list manipulations of bean.
+ * @author Gabor de Mooij and the RedBeanPHP Community
+ * @license New BSD/GPLv2
+ *
+ * (c) G.J.G.T. (Gabor) de Mooij and the RedBeanPHP Community.
+ * This source file is subject to the New BSD/GPLv2 License that is bundled
+ * with this source code in the file license.txt.
+ */
+class Bean extends Base
+{
+ /**
+ * Tests whether we can send results of a query to meta data
+ * when converting to bean.
+ */
+ public function testImportMeta()
+ {
+ R::nuke();
+ $book = R::dispense( array(
+ '_type' => 'book',
+ 'title' => 'Bean Recipes',
+ 'author' => 'Meastro de la Bean'
+ ) );
+ $pages = R::dispenseAll( 'page*2' );
+ $book->ownPageList = reset( $pages );
+ R::store( $book );
+ $data = R::getRow('SELECT book.*,
+ COUNT(page.id) AS meta_count,
+ 1234 AS meta_extra
+ FROM book
+ LEFT JOIN page ON page.book_id = book.id
+ GROUP BY book.id
+ ');
+ $bean = R::convertToBean( 'book', $data, 'meta_' );
+ asrt( isset( $bean->title ), TRUE );
+ asrt( isset( $bean->author ), TRUE );
+ asrt( isset( $bean->meta_count ), FALSE );
+ asrt( isset( $bean->meta_extra ), FALSE );
+ $data = $bean->getMeta( 'data.bundle' );
+ asrt( intval( $data['meta_count'] ), 2);
+ asrt( intval( $data['meta_extra'] ), 1234);
+ //now with multiple beans
+ $book = R::dispense( array(
+ '_type' => 'book',
+ 'title' => 'Bean Adventures',
+ 'author' => 'Mr Adventure'
+ ) );
+ $pages = R::dispenseAll( 'page*3' );
+ $book->ownPageList = reset( $pages );
+ R::store( $book );
+ $data = R::getAll('SELECT book.*,
+ COUNT(page.id) AS meta_pages
+ FROM book
+ LEFT JOIN page ON page.book_id = book.id
+ GROUP BY book.id
+ ');
+ $books = R::convertToBeans( 'book', $data, 'meta_' );
+ $found = 0;
+ foreach( $books as $book ) {
+ if ( $book->title == 'Bean Recipes' ) {
+ $found++;
+ asrt( isset( $book->title ), TRUE );
+ asrt( isset( $book->author ), TRUE );
+ asrt( isset( $book->meta_count ), FALSE );
+ asrt( isset( $book->meta_extra ), FALSE );
+ $data = $book->getMeta( 'data.bundle' );
+ asrt( intval( $data['meta_pages'] ), 2);
+ }
+ if ( $book->title == 'Bean Adventures' ) {
+ $found++;
+ asrt( isset( $book->title ), TRUE );
+ asrt( isset( $book->author ), TRUE );
+ asrt( isset( $book->meta_pages ), FALSE );
+ asrt( isset( $book->meta_extra ), FALSE );
+ $data = $book->getMeta( 'data.bundle' );
+ asrt( intval( $data['meta_pages'] ), 3);
+ }
+ }
+ asrt( $found, 2 );
+ }
+
+ /**
+ * Test beautification conflicts...
+ * Issue #418
+ *
+ * @return void
+ */
+ public function testBeau()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $book->ownerId = 2;
+ $book->ownerCritic = 'a';
+ $book->sharedbyReader = 'b';
+ $id = R::store( $book );
+ $columns = R::inspect( 'book' );
+ asrt( isset( $columns['owner_id'] ), TRUE );
+ asrt( isset( $columns['owner_critic'] ), TRUE );
+ asrt( isset( $columns['sharedby_reader'] ), TRUE );
+ asrt( isset( $columns['ownerId'] ), FALSE );
+ asrt( isset( $columns['ownerCritic'] ), FALSE );
+ asrt( isset( $columns['sharedbyReader'] ), FALSE );
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $book->xownerId = 2;
+ $book->xownerCritic = 'a';
+ $book->sharedbyReader = 'b';
+ $id = R::store( $book );
+ $columns = R::inspect( 'book' );
+ asrt( isset( $columns['xowner_id'] ), TRUE );
+ asrt( isset( $columns['xowner_critic'] ), TRUE );
+ asrt( isset( $columns['sharedby_reader'] ), TRUE );
+ asrt( isset( $columns['xownerId'] ), FALSE );
+ asrt( isset( $columns['xownerCritic'] ), FALSE );
+ asrt( isset( $columns['sharedbyReader'] ), FALSE );
+ }
+
+ /**
+ * Other tests...
+ */
+ public function testMisc()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $book->ownPage[] = R::dispense( 'page' );
+ R::store( $book );
+ R::nuke();
+ R::store( $book );
+ asrt( R::count( 'book' ), 0 );
+ $book->ownPage;
+ R::store( $book );
+ asrt( R::count( 'book' ), 0 );
+ $book->title = 'x';
+ R::store( $book );
+ asrt( R::count( 'book' ), 0 );
+ }
+
+ /**
+ * Only fire update query if the bean really contains different
+ * values. But make sure beans several 'parents' away still get
+ * saved.
+ *
+ * @return void
+ */
+ public function testBeanTainting()
+ {
+ $logger = R::getDatabaseAdapter()->getDatabase()->getLogger();
+ list( $i, $k, $c, $s ) = R::dispenseAll( 'invoice,customer,city,state' );
+ $i->customer = $k;
+ $i->status = 0;
+ $k->city = $c;
+ $c->state = $s;
+ $s->name = 'x';
+ R::store( $i );
+ $i = $i->fresh();
+ asrt( $i->customer->city->state->name, 'x' );
+ $i->status = 1;
+ R::freeze( true );
+ $logger = R::debug( 1, 1 );
+ //do we properly skip unmodified but tainted parent beans?
+ R::store( $i );
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ //does cascade update still work?
+ $i = $i->fresh();
+ $i->customer->city->state->name = 'y';
+ R::store( $i );
+ $i = $i->fresh();
+ asrt( $i->customer->city->state->name, 'y' );
+ $i = $i->fresh();
+ $differentCity = R::dispense( 'city' );
+ R::store( $differentCity );
+ $i->customer->city = $differentCity;
+ R::store( $i );
+ $i = $i->fresh();
+ asrt( ( $i->customer->city->id != $c->id ), TRUE );
+ asrt( is_null( $i->customer->city->state ), TRUE );
+ $i->customer->city = NULL;
+ R::store( $i );
+ $i = $i->fresh();
+ asrt( is_null( $i->customer->city ), TRUE );
+ $i->customer = $k;
+ $i->status = 0;
+ $k->city = $c;
+ $c->state = $s;
+ $s->name = 'x';
+ R::store( $i );
+ R::freeze( FALSE );
+ $i = $i->fresh();
+ //can we still change remote parent?
+ $i->customer->city->name = 'q';
+ $logger->clear();
+ R::store($i);
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ //print_r($logger->getLogs());
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ $i = $i->fresh();
+ asrt( $i->customer->city->name, 'q' );
+ //do we properly skip unmodified but tainted parent beans?
+ $i->status = 3;
+ $logger->clear();
+ R::store( $i );
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ }
+
+ /**
+ * Test whether the number of update queries
+ * executed is limited to the ones that are absolutely
+ * necessary to sync the database.
+ *
+ * @return void
+ */
+ public function testUpdateQueries()
+ {
+ $book = R::dispense( 'book' );
+ $book->title = 'Eye of Wight';
+ $book->xownPageList = R::dispense( 'page', 10 );
+ $book->sharedCategoryList = R::dispense( 'category', 2 );
+ $n = 1;
+ foreach( $book->xownPageList as $page ) {
+ $page->number = $n++;
+ }
+ $book->sharedCategory[0]->name = 'adventure';
+ $book->sharedCategory[1]->name = 'puzzle';
+ $book->author = R::dispense( 'author' );
+ $book->author->name = 'John';
+ $book->map = R::dispense( 'map' );
+ $book->map->name = 'Wight';
+ $book->map->xownLocationList = R::dispense( 'location', 3 );
+ asrt( $book->getMeta('tainted'), TRUE );
+ asrt( $book->getMeta('changed'), TRUE );
+ R::store( $book );
+ asrt( $book->getMeta('tainted'), FALSE );
+ asrt( $book->getMeta('changed'), FALSE );
+ $logger = R::debug( 1, 1 );
+ $book = $book->fresh();
+ asrt( $book->getMeta('tainted'), FALSE );
+ asrt( $book->getMeta('changed'), FALSE );
+ $book->author;
+ asrt( $book->getMeta('tainted'), TRUE );
+ asrt( $book->getMeta('changed'), FALSE );
+ $logger->clear();
+ R::store( $book );
+ //read only, no updates
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 0 );
+ $book->title = 'Spirit of the Stones';
+ R::store( $book );
+ //changed title, 1 update
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ $logger->clear();
+ //store again, no changes, no updates
+ R::store( $book );
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 0 );
+ $logger->clear();
+ $book = $book->fresh();
+ $book->xownPageList;
+ asrt( $book->getMeta('tainted'), TRUE );
+ asrt( $book->getMeta('changed'), FALSE );
+ R::store( $book );
+ //access only, no update
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 0 );
+ $logger->clear();
+ $book = $book->fresh();
+ $book->sharedCategoryList;
+ asrt( $book->getMeta('tainted'), TRUE );
+ asrt( $book->getMeta('changed'), FALSE );
+ R::store( $book );
+ //access only, no update
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 0 );
+ $logger->clear();
+ $book = $book->fresh();
+ unset($book->xownPageList[5]);
+ asrt( $book->getMeta('tainted'), TRUE );
+ asrt( $book->getMeta('changed'), FALSE );
+ R::store( $book );
+ //remove only, no update, just 1 delete
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 0 );
+ $numberOfUpdateQueries = $logger->grep( 'DELETE' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ $book = $book->fresh();
+ asrt( count( $book->xownPageList ), 9 );
+ $logger->clear();
+ $book = $book->fresh();
+ $book->xownPageList[] = R::dispense('page');
+ asrt( $book->getMeta('tainted'), TRUE );
+ asrt( $book->getMeta('changed'), FALSE );
+ R::store( $book );
+ //no update, 1 insert, just adding
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 0 );
+ $numberOfUpdateQueries = $logger->grep( 'INSERT' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ $book = $book->fresh();
+ asrt( count( $book->xownPageList ), 10 );
+ $logger->clear();
+ $book = $book->fresh();
+ $book->map->xownLocationList[1]->name = 'Horshoe Bay';
+ asrt( $book->getMeta('tainted'), TRUE );
+ asrt( $book->getMeta('changed'), FALSE );
+ asrt( $book->map->getMeta('tainted'), TRUE );
+ asrt( $book->map->getMeta('changed'), FALSE );
+ asrt( $book->map->xownLocationList[1]->getMeta('tainted'), TRUE );
+ asrt( $book->map->xownLocationList[1]->getMeta('changed'), TRUE );
+ R::store( $book );
+ //1 update for child of parent, no other updates
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ $book = $book->fresh();
+ asrt( $book->map->xownLocationList[1]->name, 'Horshoe Bay' );
+ $logger->clear();
+ R::store( $book );
+ //just access, no updates
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 0 );
+ $logger->clear();
+ $book = $book->fresh();
+ $book->ownPageList[2]->number = 99;
+ R::store( $book );
+ //1 update, do not update rest of pages or book itself
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ $book = $book->fresh();
+ $book->author->name = 'Worsley';
+ $logger->clear();
+ R::store( $book );
+ //1 update for parent
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ $author = R::dispense('author');
+ $author->name = 'J.W.';
+ R::store( $author );
+ $book = $book->fresh();
+ $book->author = $author;
+ $author->name = 'JW';
+ $logger->clear();
+ R::store( $book );
+ //2 updates, one for author, one for link field: author_id needs update.
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 2 );
+ $author->country = R::dispense( 'country' )->setAttr( 'name', 'England' );
+ R::store( $author );
+ $book = $book->fresh();
+ $book->author->country->name = 'Wight';
+ $logger->clear();
+ R::store( $book );
+ //1 update, country only, dont update for intermediate parents: book -> author -> ...
+ $numberOfUpdateQueries = $logger->grep( 'UPDATE' );
+ asrt( count( $numberOfUpdateQueries ), 1 );
+ }
+
+ /**
+ * Tests effects of importFrom and setProperty.
+ *
+ * @return void
+ */
+ public function testImportFromAndSetProp()
+ {
+ $bean = R::dispense( 'bean' );
+ asrt( $bean->getMeta( 'tainted' ), TRUE );
+ asrt( $bean->getMeta( 'changed' ), TRUE );
+ $bean->setMeta( 'tainted', FALSE );
+ $bean->setMeta( 'changed', FALSE );
+ asrt( $bean->getMeta( 'tainted' ), FALSE );
+ asrt( $bean->getMeta( 'changed' ), FALSE );
+ $bean->importFrom( R::dispense( 'bean' ) );
+ asrt( $bean->getMeta( 'tainted' ), TRUE );
+ asrt( $bean->getMeta( 'changed' ), TRUE );
+ $bean->setMeta( 'tainted', FALSE );
+ $bean->setMeta( 'changed', FALSE );
+ asrt( $bean->getMeta( 'tainted' ), FALSE );
+ asrt( $bean->getMeta( 'changed' ), FALSE );
+ $bean->setProperty( 'id', 0, TRUE, TRUE );
+ asrt( $bean->getMeta( 'tainted' ), TRUE );
+ asrt( $bean->getMeta( 'changed' ), TRUE );
+ $bean->setMeta( 'tainted', FALSE );
+ $bean->setMeta( 'changed', FALSE );
+ asrt( $bean->getMeta( 'tainted' ), FALSE );
+ asrt( $bean->getMeta( 'changed' ), FALSE );
+ $bean->setProperty( 'id', 0, TRUE, FALSE );
+ asrt( $bean->getMeta( 'tainted' ), FALSE );
+ asrt( $bean->getMeta( 'changed' ), FALSE );
+ $bean->name = 'x';
+ asrt( $bean->getMeta( 'tainted' ), TRUE );
+ asrt( $bean->getMeta( 'changed' ), TRUE );
+ }
+
+ /**
+ * Setup
+ *
+ * @return void
+ */
+ private function _createBook()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $pages = R::dispense( 'page', 2 );
+ $ads = R::dispense('ad', 3 );
+ $tags = R::dispense( 'tag', 2 );
+ $author = R::dispense( 'author' );
+ $coauthor = R::dispense( 'author' );
+ $book->alias( 'magazine' )->ownAd = $ads;
+ $book->ownPage = $pages;
+ $book->sharedTag = $tags;
+ $book->via( 'connection' )->sharedUser = array( R::dispense( 'user' ) );
+ $book->author = $author;
+ $book->coauthor = $coauthor;
+ R::store( $book );
+ return $book->fresh();
+ }
+
+ /*
+ * Can we add a bean to a list?
+ *
+ * @return void
+ */
+ public function testWhetherWeCanAddToLists()
+ {
+ $book = $this->_createBook();
+ $book->ownPage[] = R::dispense( 'page' );
+ R::store( $book );
+ asrt( R::count('page'), 3 );
+ $book = $this->_createBook();
+ $book->ownPageList[] = R::dispense('page');
+ R::store( $book );
+ asrt( R::count('page'), 3 );
+ $book = $this->_createBook();
+ $book->xownPage[] = R::dispense('page');
+ R::store( $book );
+ asrt( R::count('page'), 3 );
+ $book = $this->_createBook();
+ $book->xownPageList[] = R::dispense('page');
+ R::store( $book );
+ asrt( R::count('page'), 3 );
+
+ $ads = R::dispense('ad', 3 );
+ $book = $this->_createBook();
+ $book->alias('magazine')->ownAd = $ads;
+ $book->ownPage[] = R::dispense('page');
+ R::store( $book );
+ asrt( R::count('ad'), 6 );
+ asrt( R::count('page'), 3 );
+ $ads = R::dispense('ad', 3 );
+ $book = $this->_createBook();
+ $book->alias('magazine')->ownAdList = $ads;
+ $book->ownPageList[] = R::dispense('page');
+ R::store( $book );
+ asrt( R::count('ad'), 6 );
+ asrt( R::count('page'), 3 );
+ $ads = R::dispense('ad', 3 );
+ $book = $this->_createBook();
+ $book->alias('magazine')->xownAd = $ads;
+ $book->xownPage[] = R::dispense('page');
+ R::store( $book );
+ asrt( R::count('ad'), 3 );
+ asrt( R::count('page'), 3 );
+ $ads = R::dispense('ad', 3 );
+ $book = $this->_createBook();
+ $book->alias('magazine')->xownAdList = $ads;
+ $book->xownPageList[] = R::dispense('page');
+ R::store( $book );
+ asrt( R::count('ad'), 3 );
+ asrt( R::count('page'), 3 );
+
+ $book = $this->_createBook();
+ $book->sharedTag[] = R::dispense('tag');
+ R::store( $book );
+ asrt( R::count('tag'), 3 );
+ $book = $this->_createBook();
+ $book->sharedTagList[] = R::dispense('tag');
+ R::store( $book );
+ asrt( R::count('tag'), 3 );
+ }
+
+ /**
+ * Can we delete a bean in a list by its ID?
+ * Only the UNSET() variant should work.
+ *
+ * @return void
+ */
+ public function testDeleteByIDs()
+ {
+ $book = $this->_createBook();
+ $firstPage = reset( $book->ownPageList );
+ $book->ownPage[ $firstPage->id ] = NULL;
+ try { R::store( $book ); fail(); }catch(\Exception $e) { pass(); }
+ $book = $this->_createBook();
+ asrt( count( $book->ownPage ), 2 );
+ $firstPage = reset( $book->ownPageList );
+ unset( $book->ownPage[ $firstPage->id ] );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book->ownPage ), 1 );
+ $firstPage = reset( $book->ownPageList );
+ $book->ownPage[ $firstPage->id ] = FALSE;
+ try { R::store( $book ); fail(); }catch(\Exception $e) { pass(); }
+ $book = $book->fresh();
+ asrt( count( $book->ownPage ), 0 );
+
+ $book = $this->_createBook();
+ $firstAd = reset( $book->alias('magazine')->ownAd );
+ $book->alias('magazine')->ownAd[ $firstAd->id ] = NULL;
+ try { R::store( $book ); fail(); }catch(\Exception $e) { pass(); }
+ $book = $this->_createBook();
+ asrt( count( $book->alias('magazine')->ownAd ), 3 );
+ $firstAd = reset( $book->alias('magazine')->ownAdList );
+ unset( $book->alias('magazine')->ownAdList[ $firstAd->id ] );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book->alias('magazine')->ownAd ), 2 );
+ $firstAd = reset( $book->alias('magazine')->ownAd );
+ $book->alias('magazine')->ownAd[ $firstAd->id ] = FALSE;
+ try { R::store( $book ); fail(); }catch(\Exception $e) { pass(); }
+ $book = $book->fresh();
+ asrt( count( $book->alias('magazine')->ownAd ), 1 );
+
+ }
+
+ /**
+ * You CAN delete an own-list by assiging an empty array.
+ *
+ * @return void
+ */
+ public function testDeleteOwnListWithEmptyArray()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->ownPage ), 2 ); //when loaded has 2
+ $book->ownPage = array(); //remove all
+ R::store( $book );
+ asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->ownPage ), 0 );
+ }
+
+ /**
+ * You cannot delete an own-list by assigning NULL.
+ *
+ * @return void
+ */
+ public function testCANTDeleteOwnListWithNULL()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->ownPage ), 2 ); //when loaded has 2
+ $book->ownPage = NULL; //remove all
+ R::store( $book );
+ asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->ownPage ), 2 );
+ }
+
+ /**
+ * You cannot delete an own-list by assigning FALSE.
+ *
+ * @return void
+ */
+ public function testCANTDeleteOwnListWithFalse()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->ownPage ), 2 ); //when loaded has 2
+ $book->ownPage = FALSE; //remove all
+ R::store( $book );
+ asrt( isset($book->ownPage), TRUE ); //not loaded yet, lazy loading
+ asrt( $book->ownPage, '0' );
+ }
+
+ /**
+ * You cannot delete an own-list by unsetting it.
+ */
+ public function testCANTDeleteOwnListWithUnset()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->ownPage ), 2 ); //when loaded has 2
+ unset( $book->ownPage ); //does NOT remove all
+ R::store( $book );
+ asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->ownPage ), 2 );
+ }
+
+ /**
+ * You CAN delete an aliased own-list by assiging an empty array.
+ *
+ * @return void
+ */
+ public function testDeleteAliasedOwnListWithEmptyArray()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->alias('magazine')->ownAd ), 3 ); //when loaded has 2
+ $book->alias('magazine')->ownAd = array(); //remove all
+ $book->ownPage[] = R::dispense('page');
+ R::store( $book );
+ asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->alias('magazine')->ownAd ), 0 );
+ asrt( count( $book->alias('magazine')->ownPage ), 0 ); //also test possible confusion
+ asrt( count( $book->all()->ownPageList ), 3 );
+ }
+
+ /**
+ * You cannot delete an aliased own-list by assigning NULL.
+ *
+ * @return void
+ */
+ public function testCANTDeleteAliasedOwnListWithNULL()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->alias('magazine')->ownAd ), 3 ); //when loaded has 2
+ $book->alias('magazine')->ownAd = NULL; //remove all
+ R::store( $book );
+ asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->alias('magazine')->ownAd ), 3 );
+ }
+
+ /**
+ * You cannot delete an aliased own-list by assigning FALSE.
+ *
+ * @return void
+ */
+ public function testCANTDeleteAliasedOwnListWithFalse()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->alias('magazine')->ownAd ), 3 ); //when loaded has 2
+ $book->alias('magazine')->ownAd = FALSE; //remove all
+ R::store( $book );
+ asrt( isset($book->alias('magazine')->ownAd), TRUE ); //not loaded yet, lazy loading
+ asrt( $book->alias('magazine')->ownAd, '0' );
+ }
+
+ /**
+ * You cannot delete an aliased own-list by unsetting it.
+ *
+ * @return void
+ */
+ public function testCANTDeleteAliasedOwnListWithUnset()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->alias('magazine')->ownAd ), 3 ); //when loaded has 2
+ unset( $book->alias('magazine')->ownAd ); //does NOT remove all
+ R::store( $book );
+ asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->alias('magazine')->ownAd ), 3 );
+ }
+
+ /**
+ * You CAN delete an x-own-list by assiging an empty array.
+ *
+ * @return void
+ */
+ public function testDeleteXOwnListWithEmptyArray()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->xownPage ), 2 ); //when loaded has 2
+ $book->xownPage = array(); //remove all
+ R::store( $book );
+ asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->xownPage ), 0 );
+ }
+
+ /**
+ * You cannot delete an x-own-list by assigning NULL.
+ *
+ * @return void
+ */
+ public function testCANTDeleteXOwnListWithNULL()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->xownPage ), 2 ); //when loaded has 2
+ $book->xownPage = NULL; //remove all
+ R::store( $book );
+ asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->xownPage ), 2 );
+ }
+
+ /**
+ * You cannot delete an x-own-list by assigning FALSE.
+ *
+ * @return void
+ */
+ public function testCANTDeleteXOwnListWithFalse()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->xownPage ), 2 ); //when loaded has 2
+ $book->xownPage = FALSE; //remove all
+ R::store( $book );
+ asrt( isset($book->xownPage), TRUE ); //not loaded yet, lazy loading
+ asrt( $book->xownPage, '0' );
+ }
+
+ /**
+ * You cannot delete an x-own-list by unsetting it.
+ *
+ * @return void
+ */
+ public function testCANTDeleteXOwnListWithUnset()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->xownPage ), 2 ); //when loaded has 2
+ unset( $book->xownPage ); //does NOT remove all
+ R::store( $book );
+ asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->xownPage ), 2 );
+ }
+
+ /**
+ * You CAN delete a shared-list by assiging an empty array.
+ *
+ * @return void
+ */
+ public function testDeleteSharedListWithEmptyArray()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->sharedTag ), 2 ); //when loaded has 2
+ $book->sharedTag = array(); //remove all
+ R::store( $book );
+ asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->sharedTag ), 0 );
+ }
+
+ /**
+ * You cannot delete a shared list by assigning NULL.
+ *
+ * @return void
+ */
+ public function testCANTDeleteSharedListWithNULL()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->sharedTag ), 2 ); //when loaded has 2
+ $book->sharedTag = NULL; //remove all
+ R::store( $book );
+ asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->sharedTag ), 2 );
+ }
+
+ /**
+ * You cannot delete a shared-list by assigning FALSE.
+ *
+ * @return void
+ */
+ public function testCANTDeleteSharedListWithFalse()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->sharedTag ), 2 ); //when loaded has 2
+ $book->sharedTag = FALSE; //remove all
+ R::store( $book );
+ asrt( isset($book->sharedTag), TRUE ); //not loaded yet, lazy loading
+ asrt( $book->sharedTag, '0' );
+ }
+
+ /**
+ * You cannot delete a shared-list by unsetting it.
+ *
+ * @return void
+ */
+ public function testCANTDeleteSharedWithUnset()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->sharedTag ), 2 ); //when loaded has 2
+ unset( $book->sharedTag ); //does NOT remove all
+ R::store( $book );
+ asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->sharedTag ), 2 );
+ }
+
+ /**
+ * You CAN delete a shared-list by assiging an empty array.
+ *
+ * @return void
+ */
+ public function testDeleteViaSharedListWithEmptyArray()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 2
+ $book->via('connection')->sharedUser = array(); //remove all
+ R::store( $book );
+ asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->via('connection')->sharedUser ), 0 );
+ }
+
+ /**
+ * You cannot delete a shared-list by assigning NULL.
+ *
+ * @return void
+ */
+ public function testCANTDeleteViaSharedListWithNULL()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 2
+ $book->via('connection')->sharedUser = NULL; //remove all
+ R::store( $book );
+ asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->via('connection')->sharedUser ), 1 );
+ }
+
+ /**
+ * You cannot delete a shared list by assigning FALSE.
+ *
+ * @return void
+ */
+ public function testCANTDeleteViaSharedListWithFalse()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 1
+ $book->via('connection')->sharedUser = FALSE; //remove all
+ R::store( $book );
+ asrt( isset($book->via('connection')->sharedUser), TRUE ); //not loaded yet, lazy loading
+ asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 1
+
+ }
+
+ /**
+ * You cannot delete a shared-list by unsetting it.
+ *
+ * @return void
+ */
+ public function testCANTDeleteViaSharedWithUnset()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 2
+ unset( $book->via('connection')->sharedUser ); //does NOT remove all
+ R::store( $book );
+ asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
+ asrt( count( $book->via('connection')->sharedUser ), 1 );
+ }
+
+ /**
+ * You cannot delete a parent bean by unsetting it.
+ *
+ * @return void
+ */
+ public function testYouCANTDeleteParentBeanWithUnset()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->author), FALSE );
+ asrt( (boolean) ($book->author), TRUE );
+ unset( $book->author );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( isset($book->author), FALSE );
+ asrt( (boolean) ($book->author), TRUE );
+ }
+
+ /**
+ * You cannot delete a parent bean by setting it to NULL.
+ *
+ * @return void
+ */
+ public function testYouCANDeleteParentBeanWithNULL()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->author), FALSE );
+ asrt( (boolean) ($book->author), TRUE );
+ $book->author = NULL;
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( isset($book->author), FALSE );
+ asrt( (boolean) ($book->author), FALSE );
+ }
+
+ /**
+ * You CAN delete a parent bean by setting it to FALSE.
+ *
+ * @return void
+ */
+ public function testYouCANDeleteParentBeanWithFALSE()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->author), FALSE );
+ asrt( (boolean) ($book->author), TRUE );
+ $book->author = FALSE;
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( isset($book->author), FALSE );
+ asrt( (boolean) ($book->author), FALSE );
+ }
+
+ /**
+ * You cannot delete an aliased parent bean by unsetting it.
+ *
+ * @return void
+ */
+ public function testYouCANTDeleteAliasedParentBeanWithUnset()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->fetchAs('author')->coauthor), FALSE );
+ asrt( (boolean) ($book->fetchAs('author')->coauthor), TRUE );
+ unset( $book->fetchAs('author')->coauthor );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( isset($book->fetchAs('author')->coauthor), FALSE );
+ asrt( (boolean) ($book->fetchAs('author')->coauthor), TRUE );
+ }
+
+ /**
+ * You CAN delete an aliased parent bean by setting it to NULL.
+ *
+ * @return void
+ */
+ public function testYouCANDeleteAliasedParentBeanWithNULL()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->fetchAs('author')->coauthor), FALSE );
+ asrt( (boolean) ($book->fetchAs('author')->coauthor), TRUE );
+ $book->fetchAs('author')->coauthor = NULL;
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( isset($book->fetchAs('author')->coauthor), FALSE );
+ asrt( (boolean) ($book->fetchAs('author')->coauthor), FALSE );
+ }
+
+ /**
+ * You cannot delete an aliased parent bean by setting it to FALSE.
+ *
+ * @return void
+ */
+ public function testYouCANDeleteAliasedParentBeanWithFALSE()
+ {
+ $book = $this->_createBook();
+ asrt( isset($book->fetchAs('author')->coauthor), FALSE );
+ asrt( (boolean) ($book->fetchAs('author')->coauthor), TRUE );
+ $book->fetchAs('author')->coauthor = FALSE;
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( isset($book->fetchAs('author')->coauthor), FALSE );
+ asrt( (boolean) ($book->fetchAs('author')->coauthor), FALSE );
+ }
+
+ /**
+ * Tests the effects of unsetting on the shadow of a list.
+ *
+ * @return void
+ */
+ public function testUnsettingAListAndShadow()
+ {
+ $book = $this->_createBook();
+ //should work with ownPage and ownPageList as well...
+ unset( $book->ownPageList );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book->ownPage ), 2 );
+ unset( $book->ownPage );
+ //shadow should be reloaded as well...
+ $book->with(' LIMIT 1 ')->ownPage;
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book->ownPage ), 2 );
+ asrt( count( $book->getMeta('sys.shadow.ownPage') ), 2 );
+ unset( $book->ownPage );
+ asrt( $book->getMeta('sys.shadow.ownPage'), NULL );
+ //no load must clear shadow as well...
+ $book->noLoad()->ownPage[] = R::dispense( 'page' );
+ asrt( count( $book->getMeta('sys.shadow.ownPage') ), 0 );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book->ownPage ), 3 );
+ $lists = array( 'ownPage', 'ownPageList', 'xownPage', 'xownPageList', 'sharedPage', 'sharedPageList' );
+ foreach( $lists as $list ) {
+ $book = R::dispense( 'book' );
+ $book->$list;
+ $shadowKey = $list;
+ if ( strpos( $list, 'x' ) === 0) $shadowKey = substr( $shadowKey, 1 );
+ $shadowKey = preg_replace( '/List$/', '', $shadowKey );
+ asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
+ unset( $book->$list );
+ asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
+ $book->$list; //reloading brings back shadow
+ asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
+ $book->$list = array(); //keeps shadow (very important to compare deletions!)
+ asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
+ R::store( $book ); //clears shadow
+ $book->alias('magazine')->$list; //reloading with alias also brings back shadow
+ unset( $book->$list );
+ asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
+ $book = $book->fresh(); //clears shadow, reload
+ asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
+ $book->noLoad()->$list; //reloading with noload also brings back shadow
+ asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
+ asrt( count( $book->getMeta('sys.shadow.'.$shadowKey) ), 0 );
+ $book = $book->fresh(); //clears shadow, reload
+ asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
+ $book->all()->$list; //reloading with all also brings back shadow
+ asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
+ $book = $book->fresh(); //clears shadow, reload
+ asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
+ $book->with(' LIMIT 1 ')->$list; //reloading with with- all also brings back shadow
+ asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
+ $book = $book->fresh(); //clears shadow, reload
+ asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
+ $book->$list = array(); //keeps shadow (very important to compare deletions!)
+ asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
+ $book = $book->fresh(); //clears shadow, reload
+ asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
+ $book->$list = array(); //keeps shadow (very important to compare deletions!)
+ asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
+ R::trash( $book );
+ asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
+ }
+
+ //no shadow for parent bean
+ $book = $book->fresh();
+ $book->author = R::dispense( 'author' );
+ asrt( $book->getMeta('sys.shadow.author'), NULL );
+ R::store( $book );
+ $book = $book->fresh();
+ unset( $book->author ); //we can unset and it does not remove
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( is_object( $book->author ),TRUE );
+ //but we can also remove
+ $book->author = NULL;
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( $book->author, NULL );
+
+ }
+
+ /**
+ * Test whether the tainted flag gets set correctly.
+ *
+ * @return void
+ */
+ public function testAccessingTainting()
+ {
+ $book = $this->_createBook();
+ asrt( $book->isTainted(), FALSE );
+ $book->ownPage;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->author;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->fetchAs('author')->coauthor;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->alias('magazine')->xownAdList;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->title = 'Hello';
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->sharedTag;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->via('connection')->sharedUser;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->coauthor;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->ownFakeList;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->sharedFakeList;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->alias('fake')->ownFakeList;
+ asrt( $book->isTainted(), TRUE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->title;
+ asrt( $book->isTainted(), FALSE );
+ $book = $book->fresh();
+ asrt( $book->isTainted(), FALSE );
+ $book->title = 1;
+ $book->setMeta( 'tainted', FALSE );
+ asrt( $book->isTainted(), FALSE );
+ }
+}