+++ /dev/null
-<?php
-
-namespace RedUNIT\Base;
-
-use RedUNIT\Base as Base;
-use RedBeanPHP\Facade as R;
-use RedBeanPHP\RedException as RedException;
-use RedBeanPHP\OODBBean as OODBBean;
-
-/**
- * Traverse
- *
- * Tests whether RedBeanPHP can easily deal with hierarchies
- * of beans.
- *
- * @file RedUNIT/Base/Traverse.php
- * @desc Tests traversal functionality
- * @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 Traverse extends Base
-{
-
- /**
- * Very simple traverse case (one-level).
- *
- * @return void
- */
- public function testSimplestTraversal()
- {
- R::nuke();
- $books = R::dispense( 'book', 10 );
- $i = 1;
- foreach( $books as $book ) {
- $book->title = 'Book ' . ( $i++ );
- }
- $books[5]->marked = TRUE;
- $shelf = R::dispense( 'shelf' );
- $shelf->ownBook = $books;
- $found = NULL;
- $shelf->traverse('ownBookList', function( $book ) use ( &$found ) {
- if ( $book->marked ) $found = $book;
- });
- asrt( ( $found->marked == TRUE ), TRUE );
- asrt( $found->title, 'Book 6' );
- }
-
- /**
- * Tests basic traversal.
- *
- * @return void
- */
- public function testBasicTraversal()
- {
- R::nuke();
- $pageA = R::dispense( 'page' )->setAttr( 'title', 'a' );
- $pageB = R::dispense( 'page' )->setAttr( 'title', 'b' );
- $pageC = R::dispense( 'page' )->setAttr( 'title', 'c' );
- $pageD = R::dispense( 'page' )->setAttr( 'title', 'd' );
- $pageE = R::dispense( 'page' )->setAttr( 'title', 'e' );
- $pageF = R::dispense( 'page' )->setAttr( 'title', 'f' );
- $pageG = R::dispense( 'page' )->setAttr( 'title', 'g' );
- $pageH = R::dispense( 'page' )->setAttr( 'title', 'h' );
- $pageA->ownPage = array( $pageB, $pageC );
- $pageB->ownPage = array( $pageD );
- $pageC->ownPage = array( $pageE, $pageF );
- $pageD->ownPage = array( $pageG );
- $pageF->ownPage = array( $pageH );
- R::store( $pageA );
- $pageA = $pageA->fresh();
- //also tests non-existant column handling by count().
- asrt( R::count( 'page', ' price = ? ', array( '5' ) ), 0);
- asrt( R::count( 'tag', ' title = ? ', array( 'new' ) ), 0);
- $pageA->traverse( 'ownPageList', function( $bean ) {
- $bean->price = 5;
- });
- R::store( $pageA );
- asrt( R::count( 'page', ' price = ? ', array( '5' ) ), 7);
- }
-
- /**
- * Test traversing paths, ancestry.
- *
- * @return void
- */
- public function testTraversePaths()
- {
- R::nuke();
- $pageA = R::dispense( 'page' )->setAttr( 'title', 'a' );
- $pageB = R::dispense( 'page' )->setAttr( 'title', 'b' );
- $pageC = R::dispense( 'page' )->setAttr( 'title', 'c' );
- $pageD = R::dispense( 'page' )->setAttr( 'title', 'd' );
- $pageE = R::dispense( 'page' )->setAttr( 'title', 'e' );
- $pageF = R::dispense( 'page' )->setAttr( 'title', 'f' );
- $pageG = R::dispense( 'page' )->setAttr( 'title', 'g' );
- $pageH = R::dispense( 'page' )->setAttr( 'title', 'h' );
- $pageA->ownPage = array( $pageB, $pageC );
- $pageB->ownPage = array( $pageD );
- $pageC->ownPage = array( $pageE, $pageF );
- $pageD->ownPage = array( $pageG );
- $pageF->ownPage = array( $pageH );
- R::store( $pageA );
- $parents = array();
- $pageF->traverse( 'page', function( $page ) use ( &$parents ) {
- $parents[] = $page->title;
- } );
- asrt( implode( ',', $parents ), 'c,a' );
- $parents = array();
- $pageH->traverse( 'page', function( $page ) use ( &$parents ) {
- $parents[] = $page->title;
- } );
- asrt( implode( ',', $parents ), 'f,c,a' );
- $parents = array();
- $pageG->traverse( 'page', function( $page ) use ( &$parents ) {
- $parents[] = $page->title;
- } );
- asrt( implode( ',', $parents ), 'd,b,a' );
- $path = array();
- $pageA->traverse( 'ownPageList', function( $page ) use ( &$path ) {
- $path[] = $page->title;
- } );
- asrt( implode( ',', $path ), 'b,d,g,c,e,f,h' );
- $path = array();
- $pageC->traverse( 'ownPageList', function( $page ) use ( &$path ) {
- $path[] = $page->title;
- } );
- asrt( implode( ',', $path ), 'e,f,h' );
- $path = array();
- $pageA->traverse( 'ownPageList', function( $page ) use ( &$path ) {
- $path[] = $page->title;
- }, 2 );
- asrt( implode( ',', $path ), 'b,d,c,e,f' );
- }
-
- /**
- * Test traversal with embedded SQL snippets.
- *
- * @return void
- */
- public function testTraversalWithSQL()
- {
- $tasks = R::dispense('task', 10);
- foreach( $tasks as $key => $task ) {
- $task->descr = 't'.$key;
- }
- $tasks[0]->ownTask = array( $tasks[1], $tasks[9], $tasks[7] );
- $tasks[1]->ownTask = array( $tasks[5] );
- $tasks[9]->ownTask = array( $tasks[3], $tasks[8] );
- $tasks[2]->ownTask = array( $tasks[4] );
- $tasks[7]->ownTask = array( $tasks[6] );
- R::storeAll( $tasks );
- $task = R::load('task', $tasks[0]->id);
- $todo = array();
- $task->with(' ORDER BY descr ASC ')->traverse('ownTaskList', function( $t ) use ( &$todo ) {
- $todo[] = $t->descr;
- } );
- asrt( implode( ',', $todo ), 't1,t5,t7,t6,t9,t3,t8' );
- $task = R::load( 'task', $tasks[0]->id );
- $todo = array();
- $task->withCondition( ' ( descr = ? OR descr = ? ) ', array( 't7','t6' ) )
- ->traverse( 'ownTaskList', function( $task ) use( &$todo ){
- $todo[] = $task->descr;
- } );
- asrt( implode( ',', $todo ), 't7,t6' );
- }
-
- /**
- * Test traversal with aliases.
- *
- * @return void
- */
- public function testTraversalWithAlias()
- {
- R::nuke();
- $book = R::dispense( 'book' );
- $cats = R::dispense( 'category', 3 );
- $cats[0]->gname = 'SF';
- $cats[1]->gname = 'Fantasy';
- $cats[2]->gname = 'Horror';
- $book->genre = $cats[0];
- $book->name = 'Space Story';
- $cats[0]->genre = $cats[1];
- $cats[2]->genre = $cats[1];
- R::store( $book );
- $book2 = R::dispense( 'book' );
- $book2->genre = $cats[2];
- $book2->name = 'Ghost Story';
- R::store( $book2 );
- $fantasy = R::load( 'category', $cats[1]->id );
- $cats = array();
- $book = $book->fresh();
- $book->fetchAs( 'category' )->traverse( 'genre', function( $cat ) use ( &$cats ) {
- $cats[] = $cat->gname;
- } );
- asrt( implode( ',', $cats ), 'SF,Fantasy' );
- $catList = array();
- $fantasy->alias( 'genre' )
- ->with( ' ORDER BY gname ASC ' )
- ->traverse( 'ownCategory', function( $cat ) use ( &$catList ) {
- $catList[] = $cat->gname;
- } );
- asrt( implode( ',', $catList ), 'Horror,SF' );
- }
-
- /**
- * Traverse can only work with own-lists, otherwise infinite loops.
- *
- * @return void
- */
- public function testSharedTraversal()
- {
- $friend = R::dispense( 'friend' );
- try {
- $friend->traverse( 'sharedFriend', function( $friend ){ } );
- fail();
- } catch( RedException $e ) {
- pass();
- }
- }
-}