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