--- /dev/null
+<?php
+
+namespace RedUNIT\Mysql;
+
+use RedUNIT\Mysql as Mysql;
+use RedBeanPHP\Facade as R;
+use RedBeanPHP\BeanHelper\SimpleFacadeBeanHelper as SimpleFacadeBeanHelper;
+use RedBeanPHP\OODB as OODB;
+use RedBeanPHP\OODBBean as OODBBean;
+use RedBeanPHP\ToolBox as ToolBox;
+
+/**
+ * UUID
+ *
+ * Tests whether we can use UUIDs with MySQL/MariaDB, to this
+ * end we use a reference implementation of a UUID MySQL Writer:
+ * UUIDWriterMySQL, however this class is not part of the code base,
+ * it should be considered a reference or example implementation.
+ * These tests focus on whether UUIDs in general do not cause any
+ * unexpected issues.
+ *
+ * @file RedUNIT/Mysql/Uuid.php
+ * @desc Tests read support for UUID tables.
+ * @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 Uuid extends Mysql
+{
+ /**
+ * Test Read-support.
+ *
+ * @return void
+ */
+ public function testUUIDReadSupport()
+ {
+
+ R::nuke();
+
+ $createPageTableSQL = '
+ CREATE TABLE
+ `page`
+ (
+ id CHAR( 40 ),
+ book_id CHAR( 40 ),
+ magazine_id CHAR( 40 ),
+ title VARCHAR(255),
+ PRIMARY KEY ( id )
+ )
+ ENGINE = InnoDB DEFAULT
+ CHARSET=utf8mb4
+ COLLATE=utf8mb4_unicode_ci ';
+
+ $createBookTableSQL = '
+ CREATE TABLE
+ `book`
+ (
+ id CHAR( 40 ),
+ title VARCHAR(255),
+ PRIMARY KEY ( id )
+ )
+ ENGINE = InnoDB DEFAULT
+ CHARSET=utf8mb4
+ COLLATE=utf8mb4_unicode_ci ';
+
+ $createPagePageTableSQL = '
+ CREATE TABLE
+ `page_page`
+ (
+ id CHAR( 40 ),
+ page_id CHAR( 40 ),
+ page2_id CHAR( 40 ),
+ PRIMARY KEY ( id )
+ )
+ ENGINE = InnoDB DEFAULT
+ CHARSET=utf8mb4
+ COLLATE=utf8mb4_unicode_ci ';
+
+ R::exec( $createBookTableSQL );
+ R::exec( $createPageTableSQL );
+ R::exec( $createPagePageTableSQL );
+
+ //insert some records
+
+ $book1ID = '6ccd780c-baba-1026-9564-0040f4311e21';
+ $book2ID = '6ccd780c-baba-1026-9564-0040f4311e22';
+ $page1ID = '6ccd780c-baba-1026-9564-0040f4311e23';
+ $page2ID = '6ccd780c-baba-1026-9564-0040f4311e24';
+ $page3ID = '6ccd780c-baba-1026-9564-0040f4311e25';
+ $pagePage1ID = '6ccd780c-baba-1026-9564-0040f4311e26';
+
+ $insertBook1SQL = "
+ INSERT INTO book (id, title) VALUES( '$book1ID', 'book 1' );
+ ";
+
+ $insertBook2SQL = "
+ INSERT INTO book (id, title) VALUES( '$book2ID', 'book 2' );
+ ";
+
+ $insertPage1SQL = "
+ INSERT INTO page (id, book_id, title, magazine_id) VALUES( '$page1ID', '$book1ID', 'page 1 of book 1', '$book2ID' );
+ ";
+
+ $insertPage2SQL = "
+ INSERT INTO page (id, book_id, title) VALUES( '$page2ID', '$book1ID', 'page 2 of book 1' );
+ ";
+
+ $insertPage3SQL = "
+ INSERT INTO page (id, book_id, title) VALUES( '$page3ID', '$book2ID', 'page 1 of book 2' );
+ ";
+
+ $insertPagePage1SQL = "
+ INSERT INTO page_page (id, page_id, page2_id) VALUES( '$pagePage1ID', '$page2ID', '$page3ID' );
+ ";
+
+ R::exec( $insertBook1SQL );
+ R::exec( $insertBook2SQL );
+ R::exec( $insertPage1SQL );
+ R::exec( $insertPage2SQL );
+ R::exec( $insertPage3SQL );
+ R::exec( $insertPagePage1SQL );
+
+ //basic tour of basic functions....
+
+ $book1 = R::load( 'book', $book1ID );
+
+ asrt( $book1->id, $book1ID );
+ asrt( $book1->title, 'book 1' );
+
+ $book2 = R::load( 'book', $book2ID );
+
+ asrt( $book2->id, $book2ID );
+ asrt( $book2->title, 'book 2' );
+
+ asrt( count( $book1->ownPage ), 2 );
+ asrt( count( $book1->fresh()->with( 'LIMIT 1' )->ownPage ), 1 );
+ asrt( count( $book1->fresh()->withCondition( ' title = ? ', array('page 2 of book 1'))->ownPage ), 1 );
+
+ asrt( count($book2->ownPage), 1 );
+ asrt( $book2->fresh()->countOwn( 'page' ), 1 );
+
+ $page1 = R::load( 'page', $page1ID );
+ asrt( count( $page1->sharedPage ), 0 );
+ asrt( $page1->fetchAs( 'book' )->magazine->id, $book2ID );
+
+ $page2 = R::load( 'page', $page2ID );
+ asrt( count($page2->sharedPage), 1 );
+ asrt( $page2->fresh()->countShared( 'page' ), 1 );
+
+ $page3 = R::findOne( 'page', ' title = ? ', array( 'page 1 of book 2' ) );
+ asrt( $page3->id, $page3ID );
+ asrt( $page3->book->id, $book2ID );
+ }
+
+ /**
+ * Test Full fluid UUID support.
+ *
+ */
+ public function testFullSupport()
+ {
+ R::nuke();
+ //Rewire objects to support UUIDs.
+ $oldToolBox = R::getToolBox();
+ $oldAdapter = $oldToolBox->getDatabaseAdapter();
+ $uuidWriter = new \UUIDWriterMySQL( $oldAdapter );
+ $newRedBean = new OODB( $uuidWriter );
+ $newToolBox = new ToolBox( $newRedBean, $oldAdapter, $uuidWriter );
+ R::configureFacadeWithToolbox( $newToolBox );
+
+ list( $mansion, $rooms, $ghosts, $key ) = R::dispenseAll( 'mansion,room*3,ghost*4,key' );
+ $mansion->name = 'Haunted Mansion';
+ $mansion->xownRoomList = $rooms;
+ $rooms[0]->name = 'Green Room';
+ $rooms[1]->name = 'Red Room';
+ $rooms[2]->name = 'Blue Room';
+ $ghosts[0]->name = 'zero';
+ $ghosts[1]->name = 'one';
+ $ghosts[2]->name = 'two';
+ $ghosts[3]->name = 'three';
+ $rooms[0]->sharedGhostList = array( $ghosts[0], $ghosts[1] );
+ $rooms[1]->sharedGhostList = array( $ghosts[0], $ghosts[2] );
+ $rooms[2]->sharedGhostList = array( $ghosts[1], $ghosts[3], $ghosts[2] );
+ $rooms[2]->xownKey = array( $key );
+ //Can we store a bean hierachy with UUIDs?
+ $id = R::store( $mansion );
+ asrt( is_string( $id ), TRUE );
+ asrt( strlen( $id ), 36 );
+ $haunted = R::load( 'mansion', $id );
+ asrt( $haunted->name, 'Haunted Mansion' );
+ asrt( is_string( $haunted->id ), TRUE );
+ asrt( strlen( $haunted->id ), 36 );
+ asrt( is_array( $haunted->xownRoomList ), TRUE );
+ asrt( count( $haunted->ownRoom ), 3 );
+ $rooms = $haunted->xownRoomList;
+
+ //Do some counting...
+ $greenRoom = NULL;
+ foreach( $rooms as $room ) {
+ if ( $room->name === 'Green Room' ) {
+ $greenRoom = $room;
+ break;
+ }
+ }
+ asrt( !is_null( $greenRoom ), TRUE );
+ asrt( is_array( $greenRoom->with(' ORDER BY id ')->sharedGhostList ), TRUE );
+ asrt( count( $greenRoom->sharedGhostList ), 2 );
+ $names = array();
+ foreach( $greenRoom->sharedGhost as $ghost ) $names[] = $ghost->name;
+ sort($names);
+ $names = implode(',', $names);
+ asrt($names, 'one,zero');
+ $rooms = $haunted->xownRoomList;
+ $blueRoom = NULL;
+ foreach( $rooms as $room ) {
+ if ( $room->name === 'Blue Room' ) {
+ $blueRoom = $room;
+ break;
+ }
+ }
+ asrt( !is_null( $blueRoom ), TRUE );
+ asrt( is_array( $blueRoom->sharedGhostList ), TRUE );
+ asrt( count( $blueRoom->sharedGhostList ), 3 );
+ $names = array();
+ foreach( $blueRoom->sharedGhost as $ghost ) $names[] = $ghost->name;
+ sort($names);
+ $names = implode(',', $names);
+ asrt($names, 'one,three,two');
+ $rooms = $haunted->xownRoomList;
+ $redRoom = NULL;
+ foreach( $rooms as $room ) {
+ if ( $room->name === 'Red Room' ) {
+ $redRoom = $room; break;
+ }
+ }
+ $names = array();
+ foreach( $redRoom->sharedGhost as $ghost ) $names[] = $ghost->name;
+ sort($names);
+ $names = implode(',', $names);
+ asrt($names, 'two,zero');
+ asrt( !is_null( $redRoom ), TRUE );
+ asrt( is_array( $redRoom->sharedGhostList ), TRUE );
+ asrt( count( $redRoom->sharedGhostList ), 2 );
+
+ //Can we repaint a room?
+ $redRoom->name = 'Yellow Room';
+ $id = R::store($redRoom);
+ $yellowRoom = R::load( 'room', $id );
+ asrt( $yellowRoom->name, 'Yellow Room');
+ asrt( !is_null( $yellowRoom ), TRUE );
+ asrt( is_array( $yellowRoom->sharedGhostList ), TRUE );
+ asrt( count( $yellowRoom->sharedGhostList ), 2 );
+
+ //Can we throw one ghost out?
+ array_pop( $yellowRoom->sharedGhost );
+ R::store( $yellowRoom );
+ $yellowRoom = $yellowRoom->fresh();
+ asrt( $yellowRoom->name, 'Yellow Room');
+ asrt( !is_null( $yellowRoom ), TRUE );
+ asrt( is_array( $yellowRoom->sharedGhostList ), TRUE );
+ asrt( count( $yellowRoom->sharedGhostList ), 1 );
+
+ //can we remove one of the rooms?
+ asrt( R::count('key'), 1);
+ $list = $mansion->withCondition(' `name` = ? ', array('Blue Room'))->xownRoomList;
+ $room = reset($list);
+ unset($mansion->xownRoomList[$room->id]);
+ R::store($mansion);
+ asrt(R::count('room'), 2);
+
+ //and what about its dependent beans?
+ asrt(R::count('key'), 0);
+ asrt(R::count('ghost_room'), 3);
+
+ //and can we find ghosts?
+ $ghosts = R::find('ghost');
+ asrt(count($ghosts), 4);
+ $ghosts = R::findAll('ghost', 'ORDER BY id');
+ asrt(count($ghosts), 4);
+ $ghosts = R::findAll('ghost', 'ORDER BY id LIMIT 2');
+ asrt(count($ghosts), 2);
+ $ghostZero = R::findOne('ghost', ' `name` = ? ', array( 'zero' ) );
+ asrt( ($ghostZero instanceof OODBBean), TRUE );
+
+ //can we create link properties on existing tables?
+ $blackRoom = R::dispense( 'room' );
+ $blackRoom->name = 'Black Room';
+ $ghostZero->link('ghost_room', array('mood'=>'grumpy'))->room = $blackRoom;
+ R::store($ghostZero);
+ $ghostZero = $ghostZero->fresh();
+ $list = $ghostZero->sharedRoomList;
+ asrt(count($list), 3);
+ $ghostZero = $ghostZero->fresh();
+ $list = $ghostZero->withCondition(' ghost_room.mood = ? ', array('grumpy'))->sharedRoomList;
+ asrt(count($list), 1);
+
+ //can we load a batch?
+ $ids = R::getCol('SELECT id FROM ghost');
+ $ghosts = R::batch('ghost', $ids);
+ asrt(count($ghosts), 4);
+
+ //can we do an aggregation?
+ $ghosts = $greenRoom->aggr('ownGhostRoom', 'ghost', 'ghost');
+ asrt(count($ghosts), 2);
+
+ //can we duplicate the mansion?
+ asrt(R::count('mansion'), 1);
+ asrt(R::count('room'), 3);
+ asrt(R::count('ghost'), 4);
+ $copy = R::dup($mansion);
+ R::store($copy);
+ asrt(R::count('mansion'), 2);
+ asrt(R::count('room'), 5); //black room does not belong to mansion 1
+ asrt(R::count('ghost'), 4);
+
+ //can we do some counting using the list?
+ asrt( $copy->countOwn('room'), 2);
+ $rooms = $copy->withCondition(' `name` = ? ', array('Green Room'))->xownRoomList;
+ $room = reset($rooms);
+ asrt($room->countShared('ghost'), 2);
+
+ //Finally restore old toolbox
+ R::configureFacadeWithToolbox( $oldToolBox );
+ }
+}