+++ /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 );
- }
- }
- }
-}