<?php
namespace RedUNIT\Base;

use RedUNIT\Base as Base;
use RedBeanPHP\Facade as R;

/**
 * Bean
 *
 * One of the core test suites of RedBeanPHP, tests the
 * bean interface and all basic bean functions, including
 * deletion, updating, inserting, importing and more...
 *
 * @file    RedUNIT/Base/Bean.php
 * @desc    Tests list manipulations of bean.
 * @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 Bean extends Base
{
	/**
	 * Tests whether we can send results of a query to meta data
	 * when converting to bean.
	 */
	public function testImportMeta()
	{
		R::nuke();
		$book = R::dispense( array(
			'_type'  => 'book',
			'title'  => 'Bean Recipes',
			'author' => 'Meastro de la Bean'
		) );
		$pages = R::dispenseAll( 'page*2' );
		$book->ownPageList = reset( $pages );
		R::store( $book );
		$data = R::getRow('SELECT book.*,
								  COUNT(page.id) AS meta_count,
								  1234 AS meta_extra
						   FROM book
						   LEFT JOIN page ON page.book_id = book.id
						   GROUP BY book.id
						   ');
		$bean = R::convertToBean( 'book', $data, 'meta_' );
		asrt( isset( $bean->title ), TRUE );
		asrt( isset( $bean->author ), TRUE );
		asrt( isset( $bean->meta_count ), FALSE );
		asrt( isset( $bean->meta_extra ), FALSE );
		$data = $bean->getMeta( 'data.bundle' );
		asrt( intval( $data['meta_count'] ), 2);
		asrt( intval( $data['meta_extra'] ), 1234);
		//now with multiple beans
		$book = R::dispense( array(
			'_type'  => 'book',
			'title'  => 'Bean Adventures',
			'author' => 'Mr Adventure'
		) );
		$pages = R::dispenseAll( 'page*3' );
		$book->ownPageList = reset( $pages );
		R::store( $book );
		$data = R::getAll('SELECT book.*,
								  COUNT(page.id) AS meta_pages
						   FROM book
						   LEFT JOIN page ON page.book_id = book.id
						   GROUP BY book.id
						   ');
		$books = R::convertToBeans( 'book', $data, 'meta_' );
		$found = 0;
		foreach( $books as $book ) {
			if ( $book->title == 'Bean Recipes' ) {
				$found++;
				asrt( isset( $book->title ), TRUE );
				asrt( isset( $book->author ), TRUE );
				asrt( isset( $book->meta_count ), FALSE );
				asrt( isset( $book->meta_extra ), FALSE );
				$data = $book->getMeta( 'data.bundle' );
				asrt( intval( $data['meta_pages'] ), 2);
			}
			if ( $book->title == 'Bean Adventures' ) {
				$found++;
				asrt( isset( $book->title ), TRUE );
				asrt( isset( $book->author ), TRUE );
				asrt( isset( $book->meta_pages ), FALSE );
				asrt( isset( $book->meta_extra ), FALSE );
				$data = $book->getMeta( 'data.bundle' );
				asrt( intval( $data['meta_pages'] ), 3);
			}
		}
		asrt( $found, 2 );
	}

	/**
	 * Test beautification conflicts...
	 * Issue #418
	 *
	 * @return void
	 */
	public function testBeau()
	{
		R::nuke();
		$book = R::dispense( 'book' );
		$book->ownerId = 2;
		$book->ownerCritic = 'a';
		$book->sharedbyReader = 'b';
		$id = R::store( $book );
		$columns = R::inspect( 'book' );
		asrt( isset( $columns['owner_id'] ), TRUE );
		asrt( isset( $columns['owner_critic'] ), TRUE );
		asrt( isset( $columns['sharedby_reader'] ), TRUE );
		asrt( isset( $columns['ownerId'] ), FALSE );
		asrt( isset( $columns['ownerCritic'] ), FALSE );
		asrt( isset( $columns['sharedbyReader'] ), FALSE );
		R::nuke();
		$book = R::dispense( 'book' );
		$book->xownerId = 2;
		$book->xownerCritic = 'a';
		$book->sharedbyReader = 'b';
		$id = R::store( $book );
		$columns = R::inspect( 'book' );
		asrt( isset( $columns['xowner_id'] ), TRUE );
		asrt( isset( $columns['xowner_critic'] ), TRUE );
		asrt( isset( $columns['sharedby_reader'] ), TRUE );
		asrt( isset( $columns['xownerId'] ), FALSE );
		asrt( isset( $columns['xownerCritic'] ), FALSE );
		asrt( isset( $columns['sharedbyReader'] ), FALSE );
	}

	/**
	 * Other tests...
	 */
	public function testMisc()
	{
		R::nuke();
		$book = R::dispense( 'book' );
		$book->ownPage[] = R::dispense( 'page' );
		R::store( $book );
		R::nuke();
		R::store( $book );
		asrt( R::count( 'book' ), 0 );
		$book->ownPage;
		R::store( $book );
		asrt( R::count( 'book' ), 0 );
		$book->title = 'x';
		R::store( $book );
		asrt( R::count( 'book' ), 0 );
	}

	/**
	 * Only fire update query if the bean really contains different
	 * values. But make sure beans several 'parents' away still get
	 * saved.
	 *
	 * @return void
	 */
	public function testBeanTainting()
	{
		$logger = R::getDatabaseAdapter()->getDatabase()->getLogger();
		list( $i, $k, $c, $s ) = R::dispenseAll( 'invoice,customer,city,state' );
		$i->customer = $k;
		$i->status = 0;
		$k->city = $c;
		$c->state = $s;
		$s->name = 'x';
		R::store( $i );
		$i = $i->fresh();
		asrt( $i->customer->city->state->name, 'x' );
		$i->status = 1;
		R::freeze( true );
		$logger = R::debug( 1, 1 );
		//do we properly skip unmodified but tainted parent beans?
		R::store( $i );
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 1 );
		//does cascade update still work?
		$i = $i->fresh();
		$i->customer->city->state->name = 'y';
		R::store( $i );
		$i = $i->fresh();
		asrt( $i->customer->city->state->name, 'y' );
		$i = $i->fresh();
		$differentCity = R::dispense( 'city' );
		R::store( $differentCity );
		$i->customer->city = $differentCity;
		R::store( $i );
		$i = $i->fresh();
		asrt( ( $i->customer->city->id != $c->id ), TRUE );
		asrt( is_null( $i->customer->city->state ), TRUE );
		$i->customer->city = NULL;
		R::store( $i );
		$i = $i->fresh();
		asrt( is_null( $i->customer->city ), TRUE );
		$i->customer = $k;
		$i->status = 0;
		$k->city = $c;
		$c->state = $s;
		$s->name = 'x';
		R::store( $i );
		R::freeze( FALSE );
		$i = $i->fresh();
		//can we still change remote parent?
		$i->customer->city->name = 'q';
		$logger->clear();
		R::store($i);
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		//print_r($logger->getLogs());
		asrt( count( $numberOfUpdateQueries ), 1 );
		$i = $i->fresh();
		asrt( $i->customer->city->name, 'q' );
		//do we properly skip unmodified but tainted parent beans?
		$i->status = 3;
		$logger->clear();
		R::store( $i );
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 1 );
	}

	/**
	 * Test whether the number of update queries
	 * executed is limited to the ones that are absolutely
	 * necessary to sync the database.
	 *
	 * @return void
	 */
	public function testUpdateQueries()
	{
		$book = R::dispense( 'book' );
		$book->title = 'Eye of Wight';
		$book->xownPageList = R::dispense( 'page', 10 );
		$book->sharedCategoryList = R::dispense( 'category', 2 );
		$n = 1;
		foreach( $book->xownPageList as $page ) {
			$page->number = $n++;
		}
		$book->sharedCategory[0]->name = 'adventure';
		$book->sharedCategory[1]->name = 'puzzle';
		$book->author = R::dispense( 'author' );
		$book->author->name = 'John';
		$book->map = R::dispense( 'map' );
		$book->map->name = 'Wight';
		$book->map->xownLocationList = R::dispense( 'location', 3 );
		asrt( $book->getMeta('tainted'), TRUE );
		asrt( $book->getMeta('changed'), TRUE );
		R::store( $book );
		asrt( $book->getMeta('tainted'), FALSE );
		asrt( $book->getMeta('changed'), FALSE );
		$logger = R::debug( 1, 1 );
		$book = $book->fresh();
		asrt( $book->getMeta('tainted'), FALSE );
		asrt( $book->getMeta('changed'), FALSE );
		$book->author;
		asrt( $book->getMeta('tainted'), TRUE );
		asrt( $book->getMeta('changed'), FALSE );
		$logger->clear();
		R::store( $book );
		//read only, no updates
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 0 );
		$book->title = 'Spirit of the Stones';
		R::store( $book );
		//changed title, 1 update
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 1 );
		$logger->clear();
		//store again, no changes, no updates
		R::store( $book );
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 0 );
		$logger->clear();
		$book = $book->fresh();
		$book->xownPageList;
		asrt( $book->getMeta('tainted'), TRUE );
		asrt( $book->getMeta('changed'), FALSE );
		R::store( $book );
		//access only, no update
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 0 );
		$logger->clear();
		$book = $book->fresh();
		$book->sharedCategoryList;
		asrt( $book->getMeta('tainted'), TRUE );
		asrt( $book->getMeta('changed'), FALSE );
		R::store( $book );
		//access only, no update
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 0 );
		$logger->clear();
		$book = $book->fresh();
		unset($book->xownPageList[5]);
		asrt( $book->getMeta('tainted'), TRUE );
		asrt( $book->getMeta('changed'), FALSE );
		R::store( $book );
		//remove only, no update, just 1 delete
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 0 );
		$numberOfUpdateQueries = $logger->grep( 'DELETE' );
		asrt( count( $numberOfUpdateQueries ), 1 );
		$book = $book->fresh();
		asrt( count( $book->xownPageList ), 9 );
		$logger->clear();
		$book = $book->fresh();
		$book->xownPageList[] = R::dispense('page');
		asrt( $book->getMeta('tainted'), TRUE );
		asrt( $book->getMeta('changed'), FALSE );
		R::store( $book );
		//no update, 1 insert, just adding
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 0 );
		$numberOfUpdateQueries = $logger->grep( 'INSERT' );
		asrt( count( $numberOfUpdateQueries ), 1 );
		$book = $book->fresh();
		asrt( count( $book->xownPageList ), 10 );
		$logger->clear();
		$book = $book->fresh();
		$book->map->xownLocationList[1]->name = 'Horshoe Bay';
		asrt( $book->getMeta('tainted'), TRUE );
		asrt( $book->getMeta('changed'), FALSE );
		asrt( $book->map->getMeta('tainted'), TRUE );
		asrt( $book->map->getMeta('changed'), FALSE );
		asrt( $book->map->xownLocationList[1]->getMeta('tainted'), TRUE );
		asrt( $book->map->xownLocationList[1]->getMeta('changed'), TRUE );
		R::store( $book );
		//1 update for child of parent, no other updates
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 1 );
		$book = $book->fresh();
		asrt( $book->map->xownLocationList[1]->name, 'Horshoe Bay' );
		$logger->clear();
		R::store( $book );
		//just access, no updates
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 0 );
		$logger->clear();
		$book = $book->fresh();
		$book->ownPageList[2]->number = 99;
		R::store( $book );
		//1 update, do not update rest of pages or book itself
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 1 );
		$book = $book->fresh();
		$book->author->name = 'Worsley';
		$logger->clear();
		R::store( $book );
		//1 update for parent
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 1 );
		$author = R::dispense('author');
		$author->name = 'J.W.';
		R::store( $author );
		$book = $book->fresh();
		$book->author = $author;
		$author->name = 'JW';
		$logger->clear();
		R::store( $book );
		//2 updates, one for author, one for link field: author_id needs update.
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 2 );
		$author->country = R::dispense( 'country' )->setAttr( 'name', 'England' );
		R::store( $author );
		$book = $book->fresh();
		$book->author->country->name = 'Wight';
		$logger->clear();
		R::store( $book );
		//1 update, country only, dont update for intermediate parents: book -> author -> ...
		$numberOfUpdateQueries = $logger->grep( 'UPDATE' );
		asrt( count( $numberOfUpdateQueries ), 1 );
	}

	/**
	 * Tests effects of importFrom and setProperty.
	 *
	 * @return void
	 */
	public function testImportFromAndSetProp()
	{
		$bean = R::dispense( 'bean' );
		asrt( $bean->getMeta( 'tainted' ), TRUE );
		asrt( $bean->getMeta( 'changed' ), TRUE );
		$bean->setMeta( 'tainted', FALSE );
		$bean->setMeta( 'changed', FALSE );
		asrt( $bean->getMeta( 'tainted' ), FALSE );
		asrt( $bean->getMeta( 'changed' ), FALSE );
		$bean->importFrom( R::dispense( 'bean' ) );
		asrt( $bean->getMeta( 'tainted' ), TRUE );
		asrt( $bean->getMeta( 'changed' ), TRUE );
		$bean->setMeta( 'tainted', FALSE );
		$bean->setMeta( 'changed', FALSE );
		asrt( $bean->getMeta( 'tainted' ), FALSE );
		asrt( $bean->getMeta( 'changed' ), FALSE );
		$bean->setProperty( 'id', 0, TRUE, TRUE );
		asrt( $bean->getMeta( 'tainted' ), TRUE );
		asrt( $bean->getMeta( 'changed' ), TRUE );
		$bean->setMeta( 'tainted', FALSE );
		$bean->setMeta( 'changed', FALSE );
		asrt( $bean->getMeta( 'tainted' ), FALSE );
		asrt( $bean->getMeta( 'changed' ), FALSE );
		$bean->setProperty( 'id', 0, TRUE, FALSE );
		asrt( $bean->getMeta( 'tainted' ), FALSE );
		asrt( $bean->getMeta( 'changed' ), FALSE );
		$bean->name = 'x';
		asrt( $bean->getMeta( 'tainted' ), TRUE );
		asrt( $bean->getMeta( 'changed' ), TRUE );
	}

	/**
	 * Setup
	 *
	 * @return void
	 */
	private function _createBook()
	{
		R::nuke();
		$book = R::dispense( 'book' );
		$pages = R::dispense( 'page', 2 );
		$ads = R::dispense('ad', 3 );
		$tags = R::dispense( 'tag', 2 );
		$author = R::dispense( 'author' );
		$coauthor = R::dispense( 'author' );
		$book->alias( 'magazine' )->ownAd = $ads;
		$book->ownPage = $pages;
		$book->sharedTag = $tags;
		$book->via( 'connection' )->sharedUser = array( R::dispense( 'user' ) );
		$book->author = $author;
		$book->coauthor = $coauthor;
		R::store( $book );
		return $book->fresh();
	}

	/*
	 * Can we add a bean to a list?
	 *
	 * @return void
	 */
	public function testWhetherWeCanAddToLists()
	{
		$book = $this->_createBook();
		$book->ownPage[] = R::dispense( 'page' );
		R::store( $book );
		asrt( R::count('page'), 3 );
		$book = $this->_createBook();
		$book->ownPageList[] = R::dispense('page');
		R::store( $book );
		asrt( R::count('page'), 3 );
		$book = $this->_createBook();
		$book->xownPage[] = R::dispense('page');
		R::store( $book );
		asrt( R::count('page'), 3 );
		$book = $this->_createBook();
		$book->xownPageList[] = R::dispense('page');
		R::store( $book );
		asrt( R::count('page'), 3 );

		$ads = R::dispense('ad', 3 );
		$book = $this->_createBook();
		$book->alias('magazine')->ownAd = $ads;
		$book->ownPage[] = R::dispense('page');
		R::store( $book );
		asrt( R::count('ad'), 6 );
		asrt( R::count('page'), 3 );
		$ads = R::dispense('ad', 3 );
		$book = $this->_createBook();
		$book->alias('magazine')->ownAdList = $ads;
		$book->ownPageList[] = R::dispense('page');
		R::store( $book );
		asrt( R::count('ad'), 6 );
		asrt( R::count('page'), 3 );
		$ads = R::dispense('ad', 3 );
		$book = $this->_createBook();
		$book->alias('magazine')->xownAd = $ads;
		$book->xownPage[] = R::dispense('page');
		R::store( $book );
		asrt( R::count('ad'), 3 );
		asrt( R::count('page'), 3 );
		$ads = R::dispense('ad', 3 );
		$book = $this->_createBook();
		$book->alias('magazine')->xownAdList = $ads;
		$book->xownPageList[] = R::dispense('page');
		R::store( $book );
		asrt( R::count('ad'), 3 );
		asrt( R::count('page'), 3 );

		$book = $this->_createBook();
		$book->sharedTag[] = R::dispense('tag');
		R::store( $book );
		asrt( R::count('tag'), 3 );
		$book = $this->_createBook();
		$book->sharedTagList[] = R::dispense('tag');
		R::store( $book );
		asrt( R::count('tag'), 3 );
	}

	/**
	 * Can we delete a bean in a list by its ID?
	 * Only the UNSET() variant should work.
	 *
	 * @return void
	 */
	public function testDeleteByIDs()
	{
		$book = $this->_createBook();
		$firstPage = reset( $book->ownPageList );
		$book->ownPage[ $firstPage->id ] = NULL;
		try { R::store( $book ); fail(); }catch(\Exception $e) { pass(); }
		$book = $this->_createBook();
		asrt( count( $book->ownPage ), 2 );
		$firstPage = reset( $book->ownPageList );
		unset( $book->ownPage[ $firstPage->id ] );
		R::store( $book );
		$book = $book->fresh();
		asrt( count( $book->ownPage ), 1 );
		$firstPage = reset( $book->ownPageList );
		$book->ownPage[ $firstPage->id ] = FALSE;
		try { R::store( $book ); fail(); }catch(\Exception $e) { pass(); }
		$book = $book->fresh();
		asrt( count( $book->ownPage ), 0 );

		$book = $this->_createBook();
		$firstAd = reset( $book->alias('magazine')->ownAd );
		$book->alias('magazine')->ownAd[ $firstAd->id ] = NULL;
		try { R::store( $book ); fail(); }catch(\Exception $e) { pass(); }
		$book = $this->_createBook();
		asrt( count( $book->alias('magazine')->ownAd ), 3 );
		$firstAd = reset( $book->alias('magazine')->ownAdList );
		unset( $book->alias('magazine')->ownAdList[ $firstAd->id ] );
		R::store( $book );
		$book = $book->fresh();
		asrt( count( $book->alias('magazine')->ownAd ), 2 );
		$firstAd = reset( $book->alias('magazine')->ownAd );
		$book->alias('magazine')->ownAd[ $firstAd->id ] = FALSE;
		try { R::store( $book ); fail(); }catch(\Exception $e) { pass(); }
		$book = $book->fresh();
		asrt( count( $book->alias('magazine')->ownAd ), 1 );

	}

	/**
	 * You CAN delete an own-list by assiging an empty array.
	 *
	 * @return void
	 */
	public function testDeleteOwnListWithEmptyArray()
	{
		$book = $this->_createBook();
		asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->ownPage ), 2 ); //when loaded has 2
		$book->ownPage = array(); //remove all
		R::store( $book );
		asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->ownPage ), 0 );
	}

	/**
	 * You cannot delete an own-list by assigning NULL.
	 *
	 * @return void
	 */
	public function testCANTDeleteOwnListWithNULL()
	{
		$book = $this->_createBook();
		asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->ownPage ), 2 ); //when loaded has 2
		$book->ownPage = NULL; //remove all
		R::store( $book );
		asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->ownPage ), 2 );
	}

	/**
	 * You cannot delete an own-list by assigning FALSE.
	 *
	 * @return void
	 */
	public function testCANTDeleteOwnListWithFalse()
	{
		$book = $this->_createBook();
		asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->ownPage ), 2 ); //when loaded has 2
		$book->ownPage = FALSE; //remove all
		R::store( $book );
		asrt( isset($book->ownPage), TRUE ); //not loaded yet, lazy loading
		asrt( $book->ownPage, '0' );
	}

	/**
	 * You cannot delete an own-list by unsetting it.
	 */
	public function testCANTDeleteOwnListWithUnset()
	{
		$book = $this->_createBook();
		asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->ownPage ), 2 ); //when loaded has 2
		unset( $book->ownPage ); //does NOT remove all
		R::store( $book );
		asrt( isset($book->ownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->ownPage ), 2 );
	}

	/**
	 * You CAN delete an aliased own-list by assiging an empty array.
	 *
	 * @return void
	 */
	public function testDeleteAliasedOwnListWithEmptyArray()
	{
		$book = $this->_createBook();
		asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->alias('magazine')->ownAd ), 3 ); //when loaded has 2
		$book->alias('magazine')->ownAd = array(); //remove all
		$book->ownPage[] = R::dispense('page');
		R::store( $book );
		asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->alias('magazine')->ownAd ), 0 );
		asrt( count( $book->alias('magazine')->ownPage ), 0 ); //also test possible confusion
		asrt( count( $book->all()->ownPageList ), 3 );
	}

	/**
	 * You cannot delete an aliased own-list by assigning NULL.
	 *
	 * @return void
	 */
	public function testCANTDeleteAliasedOwnListWithNULL()
	{
		$book = $this->_createBook();
		asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->alias('magazine')->ownAd ), 3 ); //when loaded has 2
		$book->alias('magazine')->ownAd = NULL; //remove all
		R::store( $book );
		asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->alias('magazine')->ownAd ), 3 );
	}

	/**
	 * You cannot delete an aliased own-list by assigning FALSE.
	 *
	 * @return void
	 */
	public function testCANTDeleteAliasedOwnListWithFalse()
	{
		$book = $this->_createBook();
		asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->alias('magazine')->ownAd ), 3 ); //when loaded has 2
		$book->alias('magazine')->ownAd = FALSE; //remove all
		R::store( $book );
		asrt( isset($book->alias('magazine')->ownAd), TRUE ); //not loaded yet, lazy loading
		asrt( $book->alias('magazine')->ownAd, '0' );
	}

	/**
	 * You cannot delete an aliased own-list by unsetting it.
	 *
	 * @return void
	 */
	public function testCANTDeleteAliasedOwnListWithUnset()
	{
		$book = $this->_createBook();
		asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->alias('magazine')->ownAd ), 3 ); //when loaded has 2
		unset( $book->alias('magazine')->ownAd ); //does NOT remove all
		R::store( $book );
		asrt( isset($book->alias('magazine')->ownAd), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->alias('magazine')->ownAd ), 3 );
	}

	/**
	 * You CAN delete an x-own-list by assiging an empty array.
	 *
	 * @return void
	 */
	public function testDeleteXOwnListWithEmptyArray()
	{
		$book = $this->_createBook();
		asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->xownPage ), 2 ); //when loaded has 2
		$book->xownPage = array(); //remove all
		R::store( $book );
		asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->xownPage ), 0 );
	}

	/**
	 * You cannot delete an x-own-list by assigning NULL.
	 *
	 * @return  void
	 */
	public function testCANTDeleteXOwnListWithNULL()
	{
		$book = $this->_createBook();
		asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->xownPage ), 2 ); //when loaded has 2
		$book->xownPage = NULL; //remove all
		R::store( $book );
		asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->xownPage ), 2 );
	}

	/**
	 * You cannot delete an x-own-list by assigning FALSE.
	 *
	 * @return void
	 */
	public function testCANTDeleteXOwnListWithFalse()
	{
		$book = $this->_createBook();
		asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->xownPage ), 2 ); //when loaded has 2
		$book->xownPage = FALSE; //remove all
		R::store( $book );
		asrt( isset($book->xownPage), TRUE ); //not loaded yet, lazy loading
		asrt( $book->xownPage, '0' );
	}

	/**
	 * You cannot delete an x-own-list by unsetting it.
	 *
	 * @return void
	 */
	public function testCANTDeleteXOwnListWithUnset()
	{
		$book = $this->_createBook();
		asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->xownPage ), 2 ); //when loaded has 2
		unset( $book->xownPage ); //does NOT remove all
		R::store( $book );
		asrt( isset($book->xownPage), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->xownPage ), 2 );
	}

	/**
	 * You CAN delete a shared-list by assiging an empty array.
	 *
	 * @return void
	 */
	public function testDeleteSharedListWithEmptyArray()
	{
		$book = $this->_createBook();
		asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->sharedTag ), 2 ); //when loaded has 2
		$book->sharedTag = array(); //remove all
		R::store( $book );
		asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->sharedTag ), 0 );
	}

	/**
	 * You cannot delete a shared list by assigning NULL.
	 *
	 * @return void
	 */
	public function testCANTDeleteSharedListWithNULL()
	{
		$book = $this->_createBook();
		asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->sharedTag ), 2 ); //when loaded has 2
		$book->sharedTag = NULL; //remove all
		R::store( $book );
		asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->sharedTag ), 2 );
	}

	/**
	 * You cannot delete a shared-list by assigning FALSE.
	 *
	 * @return void
	 */
	public function testCANTDeleteSharedListWithFalse()
	{
		$book = $this->_createBook();
		asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->sharedTag ), 2 ); //when loaded has 2
		$book->sharedTag = FALSE; //remove all
		R::store( $book );
		asrt( isset($book->sharedTag), TRUE ); //not loaded yet, lazy loading
		asrt( $book->sharedTag, '0' );
	}

	/**
	 * You cannot delete a shared-list by unsetting it.
	 *
	 * @return void
	 */
	public function testCANTDeleteSharedWithUnset()
	{
		$book = $this->_createBook();
		asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->sharedTag ), 2 ); //when loaded has 2
		unset( $book->sharedTag ); //does NOT remove all
		R::store( $book );
		asrt( isset($book->sharedTag), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->sharedTag ), 2 );
	}

	/**
	 * You CAN delete a shared-list by assiging an empty array.
	 *
	 * @return void
	 */
	public function testDeleteViaSharedListWithEmptyArray()
	{
		$book = $this->_createBook();
		asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 2
		$book->via('connection')->sharedUser = array(); //remove all
		R::store( $book );
		asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->via('connection')->sharedUser ), 0 );
	}

	/**
	 * You cannot delete a shared-list by assigning NULL.
	 *
	 * @return void
	 */
	public function testCANTDeleteViaSharedListWithNULL()
	{
		$book = $this->_createBook();
		asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 2
		$book->via('connection')->sharedUser = NULL; //remove all
		R::store( $book );
		asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->via('connection')->sharedUser ), 1 );
	}

	/**
	 * You cannot delete a shared list by assigning FALSE.
	 *
	 * @return void
	 */
	public function testCANTDeleteViaSharedListWithFalse()
	{
		$book = $this->_createBook();
		asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 1
		$book->via('connection')->sharedUser = FALSE; //remove all
		R::store( $book );
		asrt( isset($book->via('connection')->sharedUser), TRUE ); //not loaded yet, lazy loading
		asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 1

	}

	/**
	 * You cannot delete a shared-list by unsetting it.
	 *
	 * @return void
	 */
	public function testCANTDeleteViaSharedWithUnset()
	{
		$book = $this->_createBook();
		asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->via('connection')->sharedUser ), 1 ); //when loaded has 2
		unset( $book->via('connection')->sharedUser ); //does NOT remove all
		R::store( $book );
		asrt( isset($book->via('connection')->sharedUser), FALSE ); //not loaded yet, lazy loading
		asrt( count( $book->via('connection')->sharedUser ), 1 );
	}

	/**
	 * You cannot delete a parent bean by unsetting it.
	 *
	 * @return void
	 */
	public function testYouCANTDeleteParentBeanWithUnset()
	{
		$book = $this->_createBook();
		asrt( isset($book->author), FALSE );
		asrt( (boolean) ($book->author), TRUE );
		unset( $book->author );
		R::store( $book );
		$book = $book->fresh();
		asrt( isset($book->author), FALSE );
		asrt( (boolean) ($book->author), TRUE );
	}

	/**
	 * You cannot delete a parent bean by setting it to NULL.
	 *
	 * @return void
	 */
	public function testYouCANDeleteParentBeanWithNULL()
	{
		$book = $this->_createBook();
		asrt( isset($book->author), FALSE );
		asrt( (boolean) ($book->author), TRUE );
		$book->author = NULL;
		R::store( $book );
		$book = $book->fresh();
		asrt( isset($book->author), FALSE );
		asrt( (boolean) ($book->author), FALSE );
	}

	/**
	 * You CAN delete a parent bean by setting it to FALSE.
	 *
	 * @return void
	 */
	public function testYouCANDeleteParentBeanWithFALSE()
	{
		$book = $this->_createBook();
		asrt( isset($book->author), FALSE );
		asrt( (boolean) ($book->author), TRUE );
		$book->author = FALSE;
		R::store( $book );
		$book = $book->fresh();
		asrt( isset($book->author), FALSE );
		asrt( (boolean) ($book->author), FALSE );
	}

	/**
	 * You cannot delete an aliased parent bean by unsetting it.
	 *
	 * @return void
	 */
	public function testYouCANTDeleteAliasedParentBeanWithUnset()
	{
		$book = $this->_createBook();
		asrt( isset($book->fetchAs('author')->coauthor), FALSE );
		asrt( (boolean) ($book->fetchAs('author')->coauthor), TRUE );
		unset( $book->fetchAs('author')->coauthor );
		R::store( $book );
		$book = $book->fresh();
		asrt( isset($book->fetchAs('author')->coauthor), FALSE );
		asrt( (boolean) ($book->fetchAs('author')->coauthor), TRUE );
	}

	/**
	 * You CAN delete an aliased parent bean by setting it to NULL.
	 *
	 * @return void
	 */
	public function testYouCANDeleteAliasedParentBeanWithNULL()
	{
		$book = $this->_createBook();
		asrt( isset($book->fetchAs('author')->coauthor), FALSE );
		asrt( (boolean) ($book->fetchAs('author')->coauthor), TRUE );
		$book->fetchAs('author')->coauthor = NULL;
		R::store( $book );
		$book = $book->fresh();
		asrt( isset($book->fetchAs('author')->coauthor), FALSE );
		asrt( (boolean) ($book->fetchAs('author')->coauthor), FALSE );
	}

	/**
	 * You cannot delete an aliased parent bean by setting it to FALSE.
	 *
	 * @return void
	 */
	public function testYouCANDeleteAliasedParentBeanWithFALSE()
	{
		$book = $this->_createBook();
		asrt( isset($book->fetchAs('author')->coauthor), FALSE );
		asrt( (boolean) ($book->fetchAs('author')->coauthor), TRUE );
		$book->fetchAs('author')->coauthor = FALSE;
		R::store( $book );
		$book = $book->fresh();
		asrt( isset($book->fetchAs('author')->coauthor), FALSE );
		asrt( (boolean) ($book->fetchAs('author')->coauthor), FALSE );
	}

	/**
	 * Tests the effects of unsetting on the shadow of a list.
	 *
	 * @return void
	 */
	public function testUnsettingAListAndShadow()
	{
		$book = $this->_createBook();
		//should work with ownPage and ownPageList as well...
		unset( $book->ownPageList );
		R::store( $book );
		$book = $book->fresh();
		asrt( count( $book->ownPage ), 2 );
		unset( $book->ownPage );
		//shadow should be reloaded as well...
		$book->with(' LIMIT 1 ')->ownPage;
		R::store( $book );
		$book = $book->fresh();
		asrt( count( $book->ownPage ), 2 );
		asrt( count( $book->getMeta('sys.shadow.ownPage') ), 2 );
		unset( $book->ownPage );
		asrt( $book->getMeta('sys.shadow.ownPage'), NULL );
		//no load must clear shadow as well...
		$book->noLoad()->ownPage[] = R::dispense( 'page' );
		asrt( count( $book->getMeta('sys.shadow.ownPage') ), 0 );
		R::store( $book );
		$book = $book->fresh();
		asrt( count( $book->ownPage ), 3 );
		$lists = array( 'ownPage', 'ownPageList', 'xownPage', 'xownPageList', 'sharedPage', 'sharedPageList' );
		foreach( $lists as $list ) {
			$book = R::dispense( 'book' );
			$book->$list;
			$shadowKey = $list;
			if ( strpos( $list, 'x' ) === 0) $shadowKey = substr( $shadowKey, 1 );
			$shadowKey = preg_replace( '/List$/', '', $shadowKey );
			asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
			unset( $book->$list );
			asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
			$book->$list; //reloading brings back shadow
			asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
			$book->$list = array(); //keeps shadow (very important to compare deletions!)
			asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
			R::store( $book ); //clears shadow
			$book->alias('magazine')->$list; //reloading with alias also brings back shadow
			unset( $book->$list );
			asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
			$book = $book->fresh(); //clears shadow, reload
			asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
			$book->noLoad()->$list; //reloading with noload also brings back shadow
			asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
			asrt( count( $book->getMeta('sys.shadow.'.$shadowKey) ), 0 );
			$book = $book->fresh(); //clears shadow, reload
			asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
			$book->all()->$list; //reloading with all also brings back shadow
			asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
			$book = $book->fresh(); //clears shadow, reload
			asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
			$book->with(' LIMIT 1 ')->$list; //reloading with with- all also brings back shadow
			asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
			$book = $book->fresh(); //clears shadow, reload
			asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
			$book->$list = array(); //keeps shadow (very important to compare deletions!)
			asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
			$book = $book->fresh(); //clears shadow, reload
			asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
			$book->$list = array(); //keeps shadow (very important to compare deletions!)
			asrt( is_array( $book->getMeta('sys.shadow.'.$shadowKey) ), TRUE );
			R::trash( $book );
			asrt( $book->getMeta('sys.shadow.'.$shadowKey), NULL );
		}

		//no shadow for parent bean
		$book = $book->fresh();
		$book->author = R::dispense( 'author' );
		asrt( $book->getMeta('sys.shadow.author'), NULL );
		R::store( $book );
		$book = $book->fresh();
		unset( $book->author ); //we can unset and it does not remove
		R::store( $book );
		$book = $book->fresh();
		asrt( is_object( $book->author ),TRUE );
		//but we can also remove
		$book->author = NULL;
		R::store( $book );
		$book = $book->fresh();
		asrt( $book->author, NULL );

	}

	/**
	 * Test whether the tainted flag gets set correctly.
	 *
	 * @return void
	 */
	public function testAccessingTainting()
	{
		$book = $this->_createBook();
		asrt( $book->isTainted(), FALSE );
		$book->ownPage;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->author;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->fetchAs('author')->coauthor;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->alias('magazine')->xownAdList;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->title = 'Hello';
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->sharedTag;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->via('connection')->sharedUser;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->coauthor;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->ownFakeList;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->sharedFakeList;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->alias('fake')->ownFakeList;
		asrt( $book->isTainted(), TRUE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->title;
		asrt( $book->isTainted(), FALSE );
		$book = $book->fresh();
		asrt( $book->isTainted(), FALSE );
		$book->title = 1;
		$book->setMeta( 'tainted', FALSE );
		asrt( $book->isTainted(), FALSE );
	}
}