--- /dev/null
+<?php
+
+namespace RedUNIT\Base;
+
+use RedUNIT\Base as Base;
+use RedBeanPHP\Facade as R;
+use RedBeanPHP\AssociationManager as AssociationManager;
+use RedBeanPHP\RedException\SQL as SQL;
+use RedBeanPHP\RedException as RedException;
+use RedBeanPHP\OODBBean as OODBBean;
+
+/**
+ * Cross
+ *
+ * Tests self referential many-to-many relations, including the
+ * aggr feature.
+ *
+ * @file RedUNIT/Base/Cross.php
+ * @desc Tests associations within the same table (i.e. page_page2 alike)
+ * Cross tables, self referential many-to-many relations
+ * and aggregation techniques
+ * @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 Cross extends Base
+{
+
+ /**
+ * Test how well aggr handles fields with no
+ * values.
+ *
+ * @return void
+ */
+ public function testAggrNullHandling()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $page = R::dispense( 'page' );
+ $page->name = 'Page 3';
+ $book->xownPageList[] = $page;
+ R::store( $book );
+ $book = $book->fresh();
+ $texts = $book->aggr( 'ownPageList', 'text' );
+ pass();
+ asrt( count( $texts ), 0 );
+ asrt( is_array( $texts ), TRUE );
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $page1 = R::dispense( 'page' );
+ $page1->name = 'Page 1';
+ $text1 = R::dispense('text');
+ $text1->content = 'Text 1';
+ $page1->text = $text1;
+ $book->xownPageList[] = $page1;
+ $page2 = R::dispense( 'page' );
+ $page2->name = 'Page 2';
+ $text2 = R::dispense( 'text' );
+ $text2->content = 'Text 2';
+ $page2->text = $text2;
+ $book->xownPageList[] = $page2;
+ $page3 = R::dispense( 'page' );
+ $page3->name = 'Page 3';
+ $book->xownPageList[] = $page3;
+ R::store( $book );
+ $book = $book->fresh();
+ $texts = $book->aggr( 'ownPageList', 'text' );
+ pass();
+ asrt( count( $texts ), 2 );
+ }
+
+ /**
+ * Test many different scenarios with self referential
+ * many-to-many relations.
+ *
+ * @return void
+ */
+ public function testSelfReferentialCRUD()
+ {
+ R::nuke();
+ $buddies = R::dispense( 'buddy', 4 );
+ $buddies[0]->name = 'A';
+ $buddies[1]->name = 'B';
+ $buddies[2]->name = 'C';
+ $buddies[3]->name = 'D';
+ $buddies[0]->sharedBuddyList = array( $buddies[1], $buddies[2] );
+ $buddies[3]->sharedBuddyList = array( $buddies[2] );
+ R::storeAll( $buddies );
+ $buddies[0] = $buddies[0]->fresh();
+ asrt( count( $buddies[0]->sharedBuddyList ), 2 );
+
+ //does this yield valid combinations - cross relations / self ref n-m
+ //need to symmetric....
+
+ $names = R::gatherLabels( $buddies[0]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'B,C' );
+
+ unset( $buddies[0]->sharedBuddy );
+ R::storeAll( $buddies );
+ $buddies[0] = $buddies[0]->fresh();
+ asrt( count( $buddies[0]->sharedBuddyList ), 2 );
+
+ $buddies[3] = $buddies[3]->fresh();
+ asrt( count( $buddies[3]->sharedBuddyList ), 1 );
+
+ $names = R::gatherLabels( $buddies[3]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'C' );
+
+ $buddies[2] = $buddies[2]->fresh();
+ asrt( count( $buddies[2]->sharedBuddyList ), 2 );
+
+ $names = R::gatherLabels( $buddies[2]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'A,D' );
+
+ $buddies[1] = $buddies[1]->fresh();
+ asrt( count( $buddies[1]->sharedBuddyList ), 1 );
+
+ $names = R::gatherLabels( $buddies[1]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'A' );
+
+ //Can we add one?
+ $buddies[1]->sharedBuddyList[] = R::dispense('buddy')->setAttr('name', 'E');
+ R::store( $buddies[1] );
+
+ $buddies[0] = $buddies[0]->fresh();
+ asrt( count( $buddies[0]->sharedBuddyList ), 2 );
+
+ $names = R::gatherLabels( $buddies[0]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'B,C' );
+
+ $buddies[1] = $buddies[1]->fresh();
+ asrt( count( $buddies[1]->sharedBuddyList ), 2 );
+
+ $names = R::gatherLabels( $buddies[1]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'A,E' );
+
+ $all = R::find( 'buddy' );
+ asrt( count( $all ), 5 );
+
+ foreach( $buddies[1]->sharedBuddy as $buddy ) {
+ if ( $buddy->name === 'E' ) {
+ $buddyE = $buddy;
+ }
+ }
+
+ asrt( isset( $buddyE ), TRUE );
+ asrt( $buddyE->name, 'E' );
+
+ //can we update?
+ foreach( $buddies[0]->sharedBuddy as $buddy ) {
+ if ( $buddy->name === 'C' ) {
+ $buddy->name = 'C2';
+ }
+ }
+
+ R::store( $buddies[0] );
+
+ $buddies[0] = $buddies[0]->fresh();
+ asrt( count( $buddies[0]->sharedBuddyList ), 2 );
+
+ $names = R::gatherLabels( $buddies[0]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'B,C2' );
+
+ $buddies[2] = $buddies[2]->fresh();
+ asrt( count( $buddies[2]->sharedBuddyList ), 2 );
+
+ $names = R::gatherLabels( $buddies[2]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'A,D' );
+
+ //can we delete?
+ foreach( $buddies[0]->sharedBuddyList as $id => $buddy ) {
+ if ( $buddy->name === 'B' ) {
+ unset( $buddies[0]->sharedBuddyList[$id] );
+ }
+ }
+
+ R::store( $buddies[0] );
+
+ $buddies[0] = $buddies[0]->fresh();
+ asrt( count( $buddies[0]->sharedBuddyList ), 1 );
+
+ $names = R::gatherLabels( $buddies[0]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'C2' );
+
+ $buddies[1] = $buddies[1]->fresh();
+ asrt( count( $buddies[1]->sharedBuddyList ), 1 );
+
+ $names = R::gatherLabels( $buddies[1]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'E' );
+
+ asrt( R::count( 'buddy' ), 5 );
+ asrt( R::count( 'buddyBuddy' ), 3 );
+
+ $buddies[3] = $buddies[3]->fresh();
+ asrt( count( $buddies[3]->sharedBuddyList ), 1 );
+
+ $names = R::gatherLabels( $buddies[3]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'C2' );
+
+ $buddies[2] = $buddies[2]->fresh();
+ asrt( count( $buddies[2]->sharedBuddyList ), 2 );
+
+ $names = R::gatherLabels( $buddies[2]->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'A,D' );
+
+ $buddyE = $buddyE->fresh();
+ asrt( count( $buddyE->sharedBuddyList ), 1 );
+
+ $names = R::gatherLabels( $buddyE->sharedBuddyList );
+ sort( $names );
+ $names = implode( ',', $names );
+ asrt( $names, 'B' );
+
+ //can we access linked_by -- o dear mysql again! cant have alias in WHERE!
+ if ( $this->currentlyActiveDriverID === 'mysql' ) {
+ $buddyE = $buddyE->fresh();
+ asrt( count( $buddyE->with(' HAVING linked_by > 0 ')->sharedBuddyList ), 1 );
+ $buddyE = $buddyE->fresh();
+ asrt( count( $buddyE->with(' HAVING linked_by < 0 ')->sharedBuddyList ), 0 );
+ }
+
+ //even postgres sucks. Only SQLite knows how to handle this.
+ //I dont give a fuck whether it's an SQL standard or not, it should just work.
+ if ( $this->currentlyActiveDriverID === 'sqlite' ) {
+ $buddyE = $buddyE->fresh();
+ asrt( count( $buddyE->withCondition(' linked_by > 0 ')->sharedBuddyList ), 1 );
+ $buddyE = $buddyE->fresh();
+ asrt( count( $buddyE->withCondition(' linked_by < 0 ')->sharedBuddyList ), 0 );
+ }
+
+ $buddyE = $buddyE->fresh();
+ asrt( count( $buddyE->withCondition(' buddy_buddy.buddy_id > 0 AND buddy_buddy.buddy2_id > 0 ')->sharedBuddyList ), 1 );
+ $buddyE = $buddyE->fresh();
+ asrt( count( $buddyE->withCondition(' buddy_buddy.buddy_id < 0 AND buddy_buddy.buddy2_id < 0 ')->sharedBuddyList ), 0 );
+ }
+
+ /**
+ * Test self referential N-M relations (page_page).
+ *
+ * @return void
+ */
+ public function testSelfReferential()
+ {
+ $page = R::dispense( 'page' )->setAttr( 'title', 'a' );
+ $page->sharedPage[] = R::dispense( 'page' )->setAttr( 'title', 'b' );
+ R::store( $page );
+ $page = $page->fresh();
+ $page = reset( $page->sharedPage );
+ asrt( $page->title, 'b' );
+ $tables = array_flip( R::inspect() );
+ asrt( isset( $tables['page_page'] ), true );
+ $columns = R::inspect( 'page_page' );
+ asrt( isset( $columns['page2_id'] ), true );
+ }
+
+ /**
+ * Test the unique constraint.
+ * Just want to make sure it is not too limiting and functions
+ * properly for typical RedBeanPHP usage.
+ *
+ * @return void
+ */
+ public function testUnique()
+ {
+ R::nuke();
+ $page1 = R::dispense( 'page' );
+ $tag1 = R::dispense( 'tag' );
+ $page2 = R::dispense( 'page' );
+ $tag2 = R::dispense( 'tag' );
+ $page3 = R::dispense( 'page' );
+ $tag3 = R::dispense( 'tag' );
+ $page1->sharedTag[] = $tag1;
+ R::store( $page1 );
+ //can we save all combinations with unique?
+ asrt( R::count( 'pageTag' ), 1);
+ $page1->sharedTag[] = $tag2;
+ R::store( $page1 );
+ asrt( R::count( 'pageTag' ), 2 );
+ $page1->sharedTag[] = $tag3;
+ $page2->sharedTag[] = $tag1;
+ $page2->sharedTag[] = $tag2;
+ $page2->sharedTag[] = $tag3;
+ $page3->sharedTag[] = $tag1;
+ $page3->sharedTag[] = $tag2;
+ $page3->sharedTag[] = $tag3;
+ R::storeAll( array( $page1, $page2, $page3 ) );
+ asrt( R::count('pageTag'), 9 );
+ $page1 = $page1->fresh();
+ $page1->sharedTag[] = $tag3;
+ R::store( $page1 );
+ //cant add violates unique
+ asrt( R::count( 'pageTag' ), 9 );
+ }
+
+ /**
+ * Shared lists can only be formed using types.
+ * If you happen to have two beans of the same type you can still
+ * have a shared list but not with a sense of direction.
+ * I.e. quest->sharedQuest returns all the quests that follow the first one,
+ * but also the ones that are followed by the first one.
+ * If you want to have some sort of direction; i.e. one quest follows another one
+ * you'll have to use an alias: quest->target, but now you can't use the shared list
+ * anymore because it will start looking for a type named 'target' (which is just an alias)
+ * for quest, but it cant find that table and it's not possible to 'keep remembering'
+ * the alias throughout the system.
+ *
+ * The aggr() method solves this inconvenience.
+ * Aggr iterates through the list identified by its first argument ('target' -> ownQuestTargetList)
+ * and fetches every ID of the target (quest_target.target_id), loads these beans in batch for
+ * optimal performance, puts them back in the beans (questTarget->target) and returns the
+ * references.
+ *
+ * @return void
+ */
+ public function testAggregationInSelfRefNM()
+ {
+ R::nuke();
+ $quest1 = R::dispense( 'quest' );
+ $quest1->name = 'Quest 1';
+ $quest2 = R::dispense( 'quest' );
+ $quest2->name = 'Quest 2';
+ $quest3 = R::dispense( 'quest' );
+ $quest3->name = 'Quest 3';
+ $quest4 = R::dispense( 'quest' );
+ $quest4->name = 'Quest 4';
+
+ $quest1->link( 'questTarget' )->target = $quest2;
+ $quest1->link( 'questTarget' )->target = $quest3;
+ $quest3->link( 'questTarget' )->target = $quest4;
+ $quest3->link( 'questTarget' )->target = $quest1;
+
+ R::storeAll( array( $quest1, $quest3 ) );
+
+ //There should be 4 links
+ asrt( (int) R::count('questTarget'), 4 );
+
+ $quest1 = $quest1->fresh();
+ $targets = $quest1->aggr( 'ownQuestTargetList', 'target', 'quest' );
+
+ //can we aggregate the targets over the link type?
+ asrt( count( $targets), 2 );
+
+ //are the all valid beans?
+ foreach( $targets as $target ) {
+ //are they beans?
+ asrt( ( $target instanceof OODBBean ), TRUE );
+ //are they fetched as quest?
+ asrt( ( $target->getMeta( 'type' ) ), 'quest' );
+ }
+
+ //list target should already have been loaded, nuke has no effect
+ R::nuke();
+ $links = $quest1->ownQuestTargetList;
+
+ //are the links still there, have they been set in the beans as well?
+ asrt( count( $links ), 2);
+
+ //are they references instead of copies, changes in the aggregation set should affect the beans in links!
+ foreach( $targets as $target ) {
+ $target->name .= 'b';
+ asrt( substr( $target->name, -1 ), 'b' );
+ }
+
+ //do the names end with a 'b' here as well ? i.e. have they been changed through references?
+ foreach( $links as $link ) {
+ asrt( substr( $target->name, -1 ), 'b' );
+ }
+
+ //now test the effect on existing shadow...
+ R::nuke();
+ $quest1 = R::dispense('quest');
+ $quest1->name = 'Quest 1';
+ $quest2 = R::dispense('quest');
+ $quest2->name = 'Quest 2';
+ $quest3 = R::dispense('quest');
+ $quest3->name = 'Quest 3';
+ $quest4 = R::dispense('quest');
+ $quest4->name = 'Quest 4';
+
+ $quest1->link( 'questTarget' )->target = $quest2;
+ $quest1->link( 'questTarget' )->target = $quest3;
+
+ R::store($quest1);
+ asrt( (int) R::count( 'questTarget' ), 2 );
+
+ //now lets first build a shadow
+ $quest1->link( 'questTarget' )->target = $quest4;
+
+ //$quest1 = $quest1->fresh();
+ $targets = $quest1->aggr( 'ownQuestTargetList', 'target', 'quest' );
+
+ //targets should not include the new bean...
+ asrt( count($targets), 2 );
+
+ //this should not overwrite the existing beans
+ R::store($quest1);
+ asrt( (int) R::count( 'questTarget' ), 3 );
+ }
+
+ /**
+ * Test aggr without the aliasing.
+ *
+ * @return void
+ */
+ public function testAggrBasic()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $page1 = R::dispense( 'page' );
+ $page1->name = 'Page 1';
+ $text1 = R::dispense('text');
+ $text1->content = 'Text 1';
+ $page1->text = $text1;
+ $book->xownPageList[] = $page1;
+ $page2 = R::dispense( 'page' );
+ $page2->name = 'Page 2';
+ $text2 = R::dispense( 'text' );
+ $text2->content = 'Text 2';
+ $page2->text = $text2;
+ $book->xownPageList[] = $page2;
+ R::store( $book );
+ $book = $book->fresh();
+ $texts = $book->aggr( 'ownPageList', 'text' );
+ R::nuke();
+ asrt( count( $texts ), 2 );
+ foreach( $texts as $text ) {
+ asrt( ( $text instanceof OODBBean ), TRUE );
+ }
+ $pages = $book->ownPageList;
+ asrt( count( $pages ), 2 );
+ asrt( R::count( 'page' ), 0 );
+ foreach( $pages as $page ) {
+ asrt( ( $page instanceof OODBBean ), TRUE );
+ $text = $page->text;
+ asrt( ( $text instanceof OODBBean ), TRUE );
+ $text->content = 'CHANGED';
+ }
+ foreach( $texts as $text ) {
+ asrt( $text->content, 'CHANGED' );
+ }
+ }
+
+ /**
+ * Test aggr with basic aliasing.
+ *
+ * @return void
+ */
+ public function testAggrWithOnlyAlias()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $page1 = R::dispense( 'page' );
+ $page1->name = 'Page 1';
+ $text1 = R::dispense( 'text' );
+ $text1->content = 'Text 1';
+ $page1->content = $text1;
+ $book->xownPageList[] = $page1;
+ $page2 = R::dispense( 'page' );
+ $page2->name = 'Page 2';
+ $text2 = R::dispense( 'text' );
+ $text2->content = 'Text 2';
+ $page2->content = $text2;
+ $book->xownPageList[] = $page2;
+ R::store( $book );
+ $book = $book->fresh();
+ $texts = $book->aggr( 'ownPageList', 'content', 'text' );
+ R::nuke();
+ asrt( count( $texts ), 2 );
+ foreach( $texts as $text ) {
+ asrt( ( $text instanceof OODBBean), TRUE );
+ }
+ $pages = $book->ownPageList;
+ asrt( count( $pages ), 2 );
+ asrt( R::count( 'page' ), 0 );
+ foreach( $pages as $page ) {
+ asrt( ( $page instanceof OODBBean ), TRUE );
+ $text = $page->content;
+ asrt( ( $text instanceof OODBBean ), TRUE );
+ $text->content = 'CHANGED';
+ }
+ foreach( $texts as $text ) {
+ asrt( $text->content, 'CHANGED' );
+ }
+ }
+
+ /**
+ * The aggr method can only be used with own-list.
+ *
+ * @return void
+ */
+ public function testErrorHandlingAggr()
+ {
+ $wrongLists = array( 'not-an-own-list', 'OWNlist', 'Ownpage', 'ownbook', 'own book', '!', 'sharedBook' );
+ foreach( $wrongLists as $wrongList ) {
+ $bean = R::dispense( 'bean' );
+ try {
+ $bean->aggr( $wrongList, 'field' );
+ fail();
+ } catch ( \Exception $exception ) {
+ pass();
+ asrt( ( $exception instanceof RedException ), TRUE );
+ }
+ }
+ }
+}