<?php

namespace RedUNIT\Base;

use RedUNIT\Base as Base;
use RedBeanPHP\Facade as R;
use RedBeanPHP\ToolBox as ToolBox;
use RedBeanPHP\AssociationManager as AssociationManager;
use RedBeanPHP\RedException\SQL as SQL;
use RedBeanPHP\QueryWriter\AQueryWriter as AQueryWriter;

/**
 * Via
 *
 * Tests the via() function to hop over an N-M table to
 * obtain a indirectly related bean, i.e. given person, participant
 * and project you should be able to obtain a the project associated
 * with a certain person via() the participant entity.
 *
 * @file    RedUNIT/Base/Via.php
 * @desc    Via tests
 * @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 Via extends Base
{
	/**
	 * Tests fix for issue #378.
	 * Via property does not get cleared properly.
	 *
	 * @return void
	 */
	public function testIssue378()
	{
		R::nuke();
		$mediaBean = R::dispense('media');
		$fooPerson = R::dispense('person');
		$mediaBean->sharedPersonList[] = $fooPerson;
		R::store($mediaBean);
		asrt( count( $mediaBean->sharedPersonList ), 1 );
		$person = R::findOne('person');
		$person->via('relation')->sharedMarriageList[] = R::dispense('marriage');
		//this second one caused the via property to not get cleared
		$person->via('relation')->sharedMarriageList;
		asrt( count( $person->sharedMediaList ), 1 );
		//also found this scenario, non-existing property
		$book = R::dispense('book');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->nothing;
		asrt( count( $book->sharedPageList ), 1 );
		//yet another
		$book = R::dispense('magazine');
		$book->ownAdList[] = R::dispense('ad');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->ownAdList;
		asrt( count( $book->sharedPageList ), 1 );
		$book = R::dispense('folder');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->sharedItemList[] = R::dispense('item');
		asrt( count( $book->sharedPageList ), 1 );
		$book = R::dispense('folder2');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->sharedItemList[] = R::dispense('item');
		$book->via('garbage')->sharedItemList[] = R::dispense('item');
		asrt( count( $book->sharedPageList ), 1 );
		$book = R::dispense('folder3');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->item = R::dispense('item');
		asrt( count( $book->sharedPageList ), 1 );
		$book = R::dispense('folder3');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->item = 'test';
		asrt( count( $book->sharedPageList ), 1 );
		//yet another
		$book = R::dispense('leaflet');
		$book->title = 'leaflet';
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->title;
		asrt( count( $book->sharedPageList ), 1 );
		//yet another
		$book = R::dispense('paper');
		$book->author = R::dispense('author');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->author;
		asrt( count( $book->sharedPageList ), 1 );
		$book = R::dispense('paper2');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('garbage')->author;
		asrt( count( $book->sharedPageList ), 1 );
		//yet another one
		$book = R::dispense('archive');
		$book->sharedItem[] = R::dispense('item');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		unset( $book->via('garbage')->sharedItem );
		asrt( count( $book->sharedPageList ), 1 );
		//theoretic cases
		$book = R::dispense('guide');
		$book->sharedItem[] = R::dispense('item');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('relation')->countShared('item');
		$book->via('relation')->countShared('item');
		asrt( count( $book->sharedPageList ), 1 );
		$book = R::dispense('catalogue');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('relation')->countShared('item');
		$book->via('relation')->countShared('item');
		asrt( count( $book->sharedPageList ), 1 );
		$book = R::dispense('tabloid');
		$book->ownItemList[] = R::dispense('item');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('relation')->countOwn('item');
		$book->via('relation')->countOwn('item');
		asrt( count( $book->sharedPageList ), 1 );
		$book = R::dispense('booklet');
		$book->ownItemList[] = R::dispense('item');
		$book->sharedPage[] = R::dispense('page');
		R::store($book);
		$book = $book->fresh();
		$book->via('relation')->countOwn('item');
		$book->via('relation')->countOwn('item');
		asrt( count( $book->sharedPageList ), 1 );
		AQueryWriter::clearRenames();
	}

	/**
	 * Via specific tests.
	 *
	 * @return void
	 */
	public function testViaAndSQL()
	{
		R::nuke();
		list($p1, $p2) = R::dispense('participant', 2);
		list($e1, $e2) = R::dispense('employee', 2);
		list($x1, $x2) = R::dispense('project', 2);
		$e1->name = 'Anna';
		$e2->name = 'John';
		$p1->project = $x1;
		$p1->employee = $e1;
		$p1->arole = 'designer';
		$p2->project = $x1;
		$p2->employee = $e2;
		$p2->arole = 'coder';
		R::storeAll(array( $p1, $p2 ));
		$project = R::load('project', $x1->id);
		$designers = $project
				->withCondition(' participant.arole = ? ', array( 'designer' ) )
				->via( 'participant' )
				->sharedEmployeeList;
		$anna = reset( $designers );
		asrt(count($designers), 1);
		asrt($anna->name, 'Anna');
		$coders = $project
				->withCondition(' participant.arole = ? ', array( 'coder' ) )
				->via( 'participant' )
				->sharedEmployeeList;
		$john = reset( $coders );
		asrt(count($coders), 1);
		asrt($john->name, 'John');
	}

	/**
	 * Test Via and Link together.
	 *
	 * @return void
	 */
	public function testViaAndLink()
	{
		R::nuke();
		list( $John, $Anna, $Celine ) = R::dispense( 'employee', 3 );
		$John->badge   = 'John';
		$Anna->badge   = 'Anna';
		$Celine->badge = 'Celine';
		$project = R::dispense( 'project' );
		$project->name = 'x';
		$project2 = R::dispense( 'project' );
		$project2->name = 'y';
		$John->link( 'participant', array(
			 'arole' => 'designer'
		) )->project = $project;
		$Anna->link( 'participant', array(
			 'arole' => 'developer'
		) )->project = $project;
		$Celine->link( 'participant', array(
			 'arole' => 'sales'
		) )->project = $project2;
		$Anna->link('participant', array(
			 'arole' => 'lead'
		) )->project = $project2;
		R::storeAll( array( $project, $project2, $John, $Anna, $Celine )  );
		$employees = $project
			->with(' ORDER BY badge ASC ')
			->via( 'participant' )
			->sharedEmployee;
		asrt( is_array( $employees ), TRUE );
		asrt( count( $employees ), 2 );
		$badges = array();
		foreach( $employees as $employee ) {
			$badges[] = $employee->badge;
		}
		asrt( implode( ',', $badges ), 'Anna,John' );
		$employees = $project2
			->with(' ORDER BY badge ASC ')
			->via( 'participant' )
			->sharedEmployee;
		asrt( is_array( $employees ), TRUE );
		asrt( count( $employees ), 2 );
		$badges = array();
		foreach( $employees as $employee ) {
			$badges[] = $employee->badge;
		}
		asrt( implode( ',', $badges ), 'Anna,Celine' );
		$projects = $John->sharedProject;
		asrt( is_array( $projects ), TRUE );
		asrt( count( $projects ), 1 );
		$projectList = array();
		foreach( $projects as $project ) {
			$projectList[] =  $project->name;
		}
		sort( $projectList );
		asrt( implode( ',', $projectList ), 'x' );
		$projects = $Anna->sharedProject;
		asrt( is_array( $projects ), TRUE );
		asrt( count( $projects ), 2 );
		$projectList = array();
		foreach( $projects as $project ) {
			$projectList[] =  $project->name;
		}
		sort( $projectList );
		asrt( implode( ',', $projectList ), 'x,y' );
		$projects = $Anna->via( 'participant' )->sharedProject;
		asrt( is_array( $projects ), TRUE );
		asrt( count( $projects ), 2 );
		$projectList = array();
		foreach( $projects as $project ) {
			$projectList[] =  $project->name;
		}
		sort( $projectList );
		asrt( implode( ',', $projectList ), 'x,y' );
		$projects = $Celine->via( 'participant' )->sharedProject;
		asrt( is_array( $projects ), TRUE );
		asrt( count( $projects ), 1 );
		$projectList = array();
		foreach( $projects as $project ) {
			$projectList[] =  $project->name;
		}
		sort( $projectList );
		asrt( implode( ',', $projectList ), 'y' );
		$roles = $Anna->ownParticipant;
		asrt( is_array( $roles ), TRUE );
		asrt( count( $roles ), 2 );
		$roleList = array();
		foreach( $roles as $role ) {
			$roleList[] = $role->arole;
		}
		sort( $roleList );
		asrt( implode( ',', $roleList ), 'developer,lead' );
		$project2->sharedEmployee[] = $John;
		R::store( $project2 );
		$projects = $John->sharedProject;
		asrt( is_array( $projects ), TRUE );
		asrt( count( $projects ), 2 );
		$projectList = array();
		foreach( $projects as $project ) {
			$projectList[] =  $project->name;
		}
		sort( $projectList );
		asrt( implode( ',', $projectList ), 'x,y' );
		$projects = $John->via( 'participant' )->sharedProject;
		asrt( is_array( $projects ), TRUE );
		asrt( count( $projects ), 2 );
		$projectList = array();
		foreach( $projects as $project ) {
			$projectList[] =  $project->name;
		}
		sort( $projectList );
		asrt( implode( ',', $projectList ), 'x,y' );
	}

	/**
	 * Test effect of via on shared list removal of beans.
	 *
	 * @return void
	 */
	public function testViaAndRemove()
	{
		R::nuke();
		$project   = R::dispense( 'project' );
		$employees = R::dispense( 'employee', 2);
		$project->via( 'partcipant' )->sharedEmployeeList = $employees;
		R::store( $project );
		asrt( R::count('employee'), 2 );
		asrt( R::count('participant'), 2 );
		$project = $project->fresh();
		$project->sharedEmployee = array();
		R::store( $project );
		asrt( R::count( 'employee' ), 2 );
		asrt( R::count( 'participant' ), 0 );
	}
}