<?php
namespace RedUNIT\Base;
use RedUNIT\Base as Base;
use RedBeanPHP\Facade as R;
use RedBeanPHP\OODBBean as OODBBean;
use RedBeanPHP\QueryWriter\AQueryWriter as AQueryWriter;
R::ext('xdispense', function($type){
return R::getRedBean()->dispense($type);
});
define('BOOK', 'tbl_book');
define('AUTHOR', 'tbl_author');
define('COAUTHOR', 'coAuthor');
define('FRIEND', 'tbl_friend');
define('PUBLISHER', 'tbl_publisher');
define('BOOKLIST', 'ownTbl_book');
define('FRIENDLIST', 'sharedTbl_friend');
/**
* Prefixes
*
* Tests whether we can use tables with prefixes.
* Some people seem to like that.
*
* @file RedUNIT/Base/Prefixes.php
* @desc Tests whether you can use RedBeanPHP with table prefixes.
* @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 Prefixes extends Base
{
/**
* Test prerequisites.
*/
public function testPrerequisites()
{
R::nuke();
$bean = R::xdispense( 'type_with_underscore' );
asrt( ( $bean instanceof OODBBean ), TRUE );
asrt( constant( 'BOOK' ), 'tbl_book' );
asrt( constant( 'AUTHOR' ), 'tbl_author' );
asrt( constant( 'PUBLISHER' ), 'tbl_publisher' );
asrt( constant( 'FRIEND' ), 'tbl_friend' );
asrt( constant( 'BOOKLIST' ), 'ownTbl_book' );
asrt( constant( 'FRIENDLIST' ), 'sharedTbl_friend' );
asrt( constant( 'COAUTHOR' ), 'coAuthor' );
}
/**
* Test basic CRUD operations.
*/
public function testBasicOperations()
{
//Can we dispense a naughty bean? (with underscore)
$author = R::xdispense( AUTHOR );
asrt( ( $author instanceof OODBBean ), TRUE );
asrt( $author->getMeta('type'), AUTHOR );
$author->name = 'Mr. Quill';
$book = R::xdispense( BOOK );
asrt( ( $book instanceof OODBBean ), TRUE );
asrt( $book->getMeta('type'), BOOK );
$book->title = 'Good Stories';
$friend = R::xdispense( FRIEND );
$friend->name = 'Muse';
asrt( ( $friend instanceof OODBBean ), TRUE );
asrt( $friend->getMeta('type'), FRIEND );
$publisher = R::xdispense( PUBLISHER );
$publisher->name = 'Good Books';
asrt( ( $publisher instanceof OODBBean ), TRUE );
asrt( $publisher->getMeta('type'), PUBLISHER );
asrt( is_array( $author->{BOOKLIST} ), TRUE );
//add books to the book list using the constant
$author->{BOOKLIST}[] = $book;
asrt( count( $author->{BOOKLIST} ), 1 );
//can we also add friends? (N-M)
$author->{FRIENDLIST}[] = $friend;
$author->{PUBLISHER} = $publisher;
$id = R::store( $author );
asrt( ( $id > 0 ), TRUE );
$author = $author->fresh();
//Can we add another friend after reload?
$author->{FRIENDLIST}[] = R::xdispense( FRIEND )->setAttr( 'name', 'buddy' );
R::store($author);
$author = $author->fresh();
//Now check the contents of the bean, its lists (books,friends) and parent (publisher)
asrt( $author->name, 'Mr. Quill' );
asrt( count( $author->{BOOKLIST} ), 1 );
$firstBook = reset( $author->{BOOKLIST} );
asrt( $firstBook->title, 'Good Stories' );
asrt( count( $author->{FRIENDLIST} ), 2 );
$firstFriend = reset( $author->{FRIENDLIST} );
$parent = $author->{PUBLISHER};
asrt( ( $parent instanceof OODBBean ), TRUE );
$tables = R::inspect();
//have all tables been prefixed?
foreach( $tables as $table ) asrt( strpos( $table, 'tbl_' ), 0 );
//Can we make an export?
$export = R::exportAll( R::findOne( AUTHOR ), TRUE );
$export = reset( $export );
asrt( isset( $export[ PUBLISHER ] ), TRUE );
asrt( isset( $export[ BOOKLIST ] ), TRUE );
asrt( isset( $export[ FRIENDLIST ] ), TRUE );
asrt( isset( $export[ 'ownBook' ] ), FALSE );
asrt( isset( $export[ 'sharedFriend' ] ), FALSE );
asrt( isset( $export[ 'publisher' ] ), FALSE );
//Can we duplicate?
$copy = R::dup( $author );
$copy->name = 'Mr. Clone';
R::store( $copy );
$copy = $copy->fresh();
asrt( $copy->name, 'Mr. Clone' );
asrt( count( $copy->{BOOKLIST} ), 1 );
$firstBook = reset( $copy->{BOOKLIST} );
asrt( $firstBook->title, 'Good Stories' );
asrt( count( $copy->{FRIENDLIST} ), 2 );
$firstFriend = reset( $copy->{FRIENDLIST} );
$parent = $copy->{PUBLISHER};
asrt( ( $parent instanceof OODBBean ), TRUE );
//Can we count?
asrt( R::count( AUTHOR ), 2 );
$copy = $copy->fresh();
asrt( $copy->countOwn( BOOK ), 1 );
asrt( $copy->countShared( FRIEND ), 2 );
//Can we delete?
R::trash( $author );
asrt( R::count( AUTHOR ), 1 );
//Can we nuke?
R::nuke();
asrt( R::count( AUTHOR ), 0 );
asrt( count( R::inspect() ), 0 );
}
/**
* Test basic operations in frozen mode.
*/
public function testBasicOperationsFrozen()
{
R::nuke();
$author = R::xdispense( AUTHOR );
$author->name = 'Mr. Quill';
$book = R::xdispense( BOOK );
$book->title = 'Good Stories';
$book2 = R::xdispense( BOOK );
$book2->title = 'Good Stories 2';
$friend = R::xdispense( FRIEND );
$friend->name = 'Muse';
$publisher = R::xdispense( PUBLISHER );
$publisher->name = 'Good Books';
$author->{BOOKLIST} = array( $book, $book2 );
$author->{FRIENDLIST}[] = $friend;
$author->{PUBLISHER} = $publisher;
$coAuthor = R::xdispense( AUTHOR );
$coAuthor->name = 'Xavier';
$book2->{COAUTHOR} = $coAuthor;
R::store( $author );
R::freeze( TRUE );
asrt( $author->name, 'Mr. Quill' );
asrt( count( $author->{BOOKLIST} ), 2 );
$firstBook = reset( $author->{BOOKLIST} );
asrt( $firstBook->title, 'Good Stories' );
asrt( count( $author->{FRIENDLIST} ), 1 );
$firstFriend = reset( $author->{FRIENDLIST} );
$parent = $author->{PUBLISHER};
asrt( ( $parent instanceof OODBBean ), TRUE );
$tables = R::inspect();
//have all tables been prefixed?
foreach( $tables as $table ) asrt( strpos( $table, 'tbl_' ), 0 );
//Can we make an export?
$export = R::exportAll( R::findOne( AUTHOR ), TRUE );
$export = reset( $export );
asrt( isset( $export[ PUBLISHER ] ), TRUE );
asrt( isset( $export[ BOOKLIST ] ), TRUE );
asrt( isset( $export[ FRIENDLIST ] ), TRUE );
asrt( isset( $export[ 'ownBook' ] ), FALSE );
asrt( isset( $export[ 'sharedFriend' ] ), FALSE );
asrt( isset( $export[ 'publisher' ] ), FALSE );
R::freeze( FALSE );
}
/**
* Test conditions and aliases.
*/
public function testConditionsAndAliases()
{
R::nuke();
$author = R::xdispense( AUTHOR );
$author->name = 'Mr. Quill';
$book = R::xdispense( BOOK );
$book->title = 'Good Stories';
$book2 = R::xdispense( BOOK );
$book2->title = 'Good Stories 2';
$friend = R::xdispense( FRIEND );
$friend->name = 'Muse';
$publisher = R::xdispense( PUBLISHER );
$publisher->name = 'Good Books';
$author->{BOOKLIST} = array( $book, $book2 );
$author->{FRIENDLIST}[] = $friend;
$author->{PUBLISHER} = $publisher;
$coAuthor = R::xdispense( AUTHOR );
$coAuthor->name = 'Xavier';
$book2->{COAUTHOR} = $coAuthor;
R::store( $author );
$author = $author->fresh();
asrt( R::count( AUTHOR ), 2 );
//Can we use with and withCondition?
asrt( count( $author->{BOOKLIST} ), 2 );
asrt( count( $author->with(' LIMIT 1 ')->{BOOKLIST} ), 1 );
asrt( count( $author->withCondition(' title LIKE ? ', array( '%2%' ) )->{BOOKLIST} ), 1 );
//Can we use an alias?
$book2 = $book2->fresh();
asrt( $book2->fetchAs( AUTHOR )->{COAUTHOR}->name, 'Xavier' );
$coAuthor = $book2->fetchAs( AUTHOR )->{COAUTHOR}->fresh();
asrt( count( $coAuthor->alias( COAUTHOR )->{BOOKLIST} ), 1 );
}
/**
* Test prettier tables using via().
*/
public function testViaPrettification()
{
R::nuke();
R::renameAssociation( 'tbl_author_tbl_friend', 'tbl_author_friend' );
$author = R::xdispense( AUTHOR );
$author->name = 'Mr. Quill';
$friend = R::xdispense( FRIEND );
$friend->name = 'Muse';
$author->{FRIENDLIST}[] = $friend;
$id = R::store( $author );
//print_r(R::inspect()); exit;
$author = R::load( AUTHOR, $id );
$tables = array_flip( R::inspect() );
asrt( isset( $tables[ 'tbl_author_friend' ] ), TRUE );
asrt( isset( $tables[ 'tbl_author_tbl_friend' ] ), FALSE );
asrt( count( $author->{FRIENDLIST} ), 1 );
AQueryWriter::clearRenames();
}
/**
* Test self-referential N-M relations.
*/
public function testSelfRefNM()
{
R::nuke();
$friend1 = R::xdispense( FRIEND );
$friend1->name = 'f1';
$friend2 = R::xdispense( FRIEND );
$friend2->name = 'f2';
$friend3 = R::xdispense( FRIEND );
$friend3->name = 'f3';
$friend1->{FRIENDLIST} = array( $friend2, $friend3 );
$friend3->{FRIENDLIST} = array( $friend1 );
R::storeAll( array( $friend1, $friend2, $friend3 ) );
$friend1 = $friend1->fresh();
$friend2 = $friend2->fresh();
$friend3 = $friend3->fresh();
asrt( count( $friend1->{FRIENDLIST} ), 2 );
asrt( count( $friend2->{FRIENDLIST} ), 1 );
asrt( count( $friend3->{FRIENDLIST} ), 1 );
$friend = reset( $friend3->{FRIENDLIST} );
asrt( $friend->name, 'f1' );
}
}
|
Download
