+++ /dev/null
-<?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' );
- }
-}
projects / yaffs-website / blobdiff