<?php

namespace RedUNIT\Base;

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

/**
 * Copy
 *
 * Tests whether we can make a copy or a deep copy of a bean
 * and whether recursion is handled well. Also tests
 * versioning: copying can be used to implement a versioning feature,
 * some test cases will reflect this particular use case.
 *
 * @file    RedUNIT/Base/Copy.php
 * @desc    Tests whether we can make a deep copy of a 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 Copy extends Base
{
	/**
	 * Test whether recursion happens
	 */
	public function testCopyRecursion()
	{
		$document = R::dispense( 'document' );
		$id = R::store( $document );
		$document->ownDocument[] = $document;
		R::store( $document );
		$duplicate = R::dup( $document );
		pass(); //if RB cant handle this is will crash (nesting level error from PHP).
		$id2 = R::store( $duplicate );
		$duplicate = R::load( 'document', $id );
		asrt( (int) $document->document_id, $id );
		asrt( (int) $duplicate->document_id, $id2 );
		// Export variant
		$duplicate = R::exportAll( $document );
		asrt( (int) $duplicate[0]['document_id'], $id );
	}

	/**
	 * Test real world scenario: Versioning
	 */
	public function testVersioning()
	{
		$document = R::dispense( 'document' );
		$page = R::dispense( 'page' );
		$document->title = 'test';
		$page->content = 'lorem ipsum';
		$user = R::dispense( 'user' );
		$user->name = 'Leo';
		$document->sharedUser[] = $user;
		$document->ownPage[]    = $page;
		$document->starship_id = 3;
		$document->planet      = R::dispense( 'planet' );
		R::store( $document );
		$duplicate = R::dup( $document );
		R::store( $duplicate );
		$duplicate = R::dup( $document );
		R::store( $duplicate );
		asrt( R::count( 'planet' ), 1 );
		asrt( R::count( 'user' ), 1 );
		asrt( R::count( 'document' ), 3 );
		asrt( R::count( 'page' ), 3 );
		asrt( R::count( 'spaceship' ), 0 );
	}

	/**
	 * Same as above but now with intermediate save, counts must be same
	 */
	public function testVersioningIntermediateSaves()
	{
		$document = R::dispense( 'document' );
		$page = R::dispense( 'page' );
		$document->title = 'test';
		$page->content = 'lorem ipsum';
		$user = R::dispense( 'user' );
		$user->name = 'Leo';
		$document->sharedUser[] = $user;
		$document->ownPage[]    = $page;
		$document->starship_id = 3;
		$document->planet = R::dispense( 'planet' );
		R::store( $document );
		$duplicate = R::dup( $document );
		R::store( $document );
		R::store( $duplicate );
		R::store( $document );
		$duplicate = R::dup( $document );
		R::store( $document );
		R::store( $duplicate );
		asrt( R::count( 'planet' ), 1 );
		asrt( R::count( 'user' ), 1 );
		asrt( R::count( 'document' ), 3 );
		asrt( R::count( 'page' ), 3 );
		asrt( R::count( 'spaceship' ), 0 );
		// same, but now with intermediate save, counts must be same
		R::freeze( TRUE );
		$document = R::dispense( 'document' );
		$page     = R::dispense( 'page' );
		$document->title = 'test';
		$page->content = 'lorem ipsum';
		$user = R::dispense( 'user' );
		$user->name = 'Leo';
		$document->sharedUser[] = $user;
		$document->ownPage[]    = $page;
		$document->starship_id = 3;
		$document->planet      = R::dispense( 'planet' );
		R::store( $document );
		$duplicate = R::dup( $document );
		R::store( $document );
		R::store( $duplicate );
		R::store( $document );
		$duplicate = R::dup( $document );
		R::store( $document );
		R::store( $duplicate );
		asrt( R::count( 'planet' ), 2 );
		asrt( R::count( 'user' ), 2 );
		asrt( R::count( 'document' ), 6 );
		asrt( R::count( 'page' ), 6 );
		asrt( R::count( 'spaceship' ), 0 );
		R::freeze( FALSE );
	}

	/**
	 * Test Recursion
	 */
	public function testRecursion()
	{
		list( $d1, $d2 ) = R::dispense( 'document', 2 );
		$page = R::dispense( 'page' );
		list( $p1, $p2 ) = R::dispense( 'paragraph', 2 );
		list( $e1, $e2 ) = R::dispense( 'excerpt', 2 );
		$id2 = R::store( $d2 );
		$p1->name = 'a';
		$p2->name = 'b';
		$page->title = 'my page';
		$page->ownParagraph = array( $p1, $p2 );
		$p1->ownExcerpt[]  = $e1;
		$p2->ownExcerpt[]  = $e2;
		$e1->ownDocument[] = $d2;
		$e2->ownDocument[] = $d1;
		$d1->ownPage[]     = $page;
		$id1 = R::store( $d1 );
		$d1 = R::load( 'document', $id1 );
		$d = R::dup( $d1 );
		$ids = array();
		asrt( ( $d instanceof OODBBean ), TRUE );
		asrt( count( $d->ownPage ), 1 );
		foreach ( end( $d->ownPage )->ownParagraph as $p ) {
			foreach ( $p->ownExcerpt as $e ) {
				$ids[] = end( $e->ownDocument )->id;
			}
		}
		sort( $ids );
		asrt( (int) $ids[0], 0 );
		asrt( (int) $ids[1], $id1 );
		R::store( $d );
		pass();
		$phillies = R::dispense( 'diner' );
		list( $lonelyman, $man, $woman ) = R::dispense( 'guest', 3 );
		$attendant = R::dispense( 'employee' );
		$lonelyman->name = 'Bennie Moten';
		$man->name       = 'Daddy Stovepipe';
		$woman->name     = 'Mississippi Sarah';
		$attendant->name = 'Gus Cannon';
		$phillies->sharedGuest = array( $lonelyman, $man, $woman );
		$phillies->ownEmployee[] = $attendant;
		$props = R::dispense( 'prop', 2 );
		$props[0]->kind = 'cigarette';
		$props[1]->kind = 'coffee';
		$thought = R::dispense( 'thought' );
		$thought->content = 'Blues';
		$thought2 = R::dispense( 'thought' );
		$thought2->content = 'Jazz';
		$woman->ownProp[]  = $props[0];
		$man->sharedProp[] = $props[1];
		$attendant->ownThought = array( $thought, $thought2 );
		R::store( $phillies );
		$diner  = R::findOne( 'diner' );
		$diner2 = R::dup( $diner );
		$id2    = R::store( $diner2 );
		$diner2 = R::load( 'diner', $id2 );
		asrt( count( $diner->ownEmployee ), 1 );
		asrt( count( $diner2->ownEmployee ), 1 );
		asrt( count( $diner->sharedGuest ), 3 );
		asrt( count( $diner2->sharedGuest ), 3 );
		$employee = reset( $diner->ownEmployee );
		asrt( count( $employee->ownThought ), 2 );
		$employee = reset( $diner2->ownEmployee );
		asrt( count( $employee->ownThought ), 2 );
		// Can we change something in the duplicate without changing the original?
		$employee->name = 'Marvin';
		$thought = R::dispense( 'thought' );
		$thought->content = 'depression';
		$employee->ownThought[] = $thought;
		array_pop( $diner2->sharedGuest );
		$guest       = reset( $diner2->sharedGuest );
		$guest->name = 'Arthur Dent';
		$id2         = R::store( $diner2 );
		$diner2      = R::load( 'diner', $id2 );
		asrt( count( $diner->ownEmployee ), 1 );
		asrt( count( $diner2->ownEmployee ), 1 );
		asrt( count( $diner->sharedGuest ), 3 );
		asrt( count( $diner2->sharedGuest ), 2 );
		$employeeOld = reset( $diner->ownEmployee );
		asrt( count( $employeeOld->ownThought ), 2 );
		$employee = reset( $diner2->ownEmployee );
		asrt( count( $employee->ownThought ), 3 );
		asrt( $employee->name, 'Marvin' );
		asrt( $employeeOld->name, 'Gus Cannon' );
		// However the shared beans must not be copied
		asrt( R::count( 'guest' ), 3 );
		asrt( R::count( 'guest_prop' ), 1 );
		$arthur = R::findOne( 'guest', ' ' . R::getWriter()->esc( 'name' ) . ' = ? ', array( 'Arthur Dent' ) );
		asrt( $arthur->name, 'Arthur Dent' );
	}
}