<?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' );
	}
}