--- /dev/null
+<?php
+
+namespace RedUNIT\Base;
+
+use RedUNIT\Base as Base;
+use RedBeanPHP\Facade as R;
+
+/**
+ * Arrays
+ *
+ * Beans can also be treated like arrays, this test verifies
+ * whether the bean array interface works correctly in various
+ * scenarios (combination with lists and so on).
+ *
+ * @file RedUNIT/Base/Arrays.php
+ * @desc Tests the array interface of beans
+ * @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 Arrays extends Base
+{
+ /**
+ * Tests basic array access.
+ *
+ * @return void
+ */
+ public function testArrayAccess()
+ {
+ $bean = R::dispense('bean');
+ $bean->name = 'bean';
+ $bean->taste = 'salty';
+ $properties = array();
+ foreach($bean as $key => $value) {
+ $properties[ $key ] = $value;
+ }
+ asrt( count( $bean ), 3 );
+ asrt( count( $properties ), 3 );
+ asrt( isset( $properties['id'] ), TRUE );
+ asrt( isset( $properties['name'] ), TRUE );
+ asrt( isset( $properties['taste'] ), TRUE );
+ $bean = R::dispense('bean');
+ $bean['name'] = 'bean';
+ $bean['taste'] = 'salty';
+ $properties = array();
+ foreach($bean as $key => $value) {
+ $properties[ $key ] = $value;
+ }
+ asrt( count( $bean ), 3 );
+ asrt( count( $properties ), 3 );
+ asrt( isset( $properties['id'] ), TRUE );
+ asrt( isset( $properties['name'] ), TRUE );
+ asrt( isset( $properties['taste'] ), TRUE );
+ }
+
+ /**
+ * Tests array access with lists.
+ * Tests whether list properties behave as arrays correctly.
+ *
+ * @return void
+ */
+ public function testArrayAccessAndLists()
+ {
+ $book = R::dispense('book');
+ $book['title'] = 'My Book';
+ //Can we add a bean in list with array access?
+ $book['ownPage'][] = R::dispense('page');
+ $book['ownPage'][] = R::dispense('page');
+ asrt( count( $book ), 3 );
+ $properties = array();
+ foreach($book as $key => $value) {
+ $properties[ $key ] = $value;
+ }
+ asrt( count( $properties ), 3 );
+ //Dont reveal aliased x-own and -List in foreach-loop
+ asrt( isset( $properties['id'] ), TRUE );
+ asrt( isset( $properties['title'] ), TRUE );
+ asrt( isset( $properties['ownPage'] ), TRUE );
+ asrt( isset( $properties['ownPageList'] ), FALSE );
+ asrt( isset( $properties['xownPage'] ), FALSE );
+ asrt( isset( $properties['xownPageList'] ), FALSE );
+ //But keep them countable
+ asrt( count( $book['ownPage'] ), 2 );
+ asrt( count( $book['ownPageList'] ), 2 );
+ asrt( count( $book['xownPage'] ), 2 );
+ asrt( count( $book['xownPageList'] ), 2 );
+ //And reveal state of items with isset()
+ asrt( isset( $book['id'] ), TRUE );
+ asrt( isset( $book['title'] ), TRUE );
+ asrt( isset( $book['ownPage'] ), TRUE );
+ asrt( isset( $book['ownPageList'] ), TRUE );
+ asrt( isset( $book['xownPage'] ), TRUE );
+ asrt( isset( $book['xownPageList'] ), TRUE );
+ //Can we add using the List alias?
+ $book['ownPageList'][] = R::dispense('page');
+ asrt( count( $book['ownPage'] ), 3 );
+ asrt( count( $book['ownPageList'] ), 3 );
+ asrt( count( $book['xownPage'] ), 3 );
+ asrt( count( $book['xownPageList'] ), 3 );
+ //Can we add using the x-mode alias?
+ $book['ownPageList'][] = R::dispense('page');
+ asrt( count( $book['ownPage'] ), 4 );
+ asrt( count( $book['ownPageList'] ), 4 );
+ asrt( count( $book['xownPage'] ), 4 );
+ asrt( count( $book['xownPageList'] ), 4 );
+ //Can we unset using array access?
+ unset( $book['ownPage'] );
+ asrt( isset( $book['ownPage'] ), FALSE );
+ asrt( isset( $book['ownPageList'] ), FALSE );
+ asrt( isset( $book['xownPage'] ), FALSE );
+ asrt( isset( $book['xownPageList'] ), FALSE );
+ $book['ownPage'] = array( R::dispense('page') );
+ unset( $book['xownPage'] );
+ asrt( isset( $book['ownPage'] ), FALSE );
+ asrt( isset( $book['ownPageList'] ), FALSE );
+ asrt( isset( $book['xownPage'] ), FALSE );
+ asrt( isset( $book['xownPageList'] ), FALSE );
+ $book['ownPage'] = array( R::dispense('page') );
+ unset( $book['ownPageList'] );
+ asrt( isset( $book['ownPage'] ), FALSE );
+ asrt( isset( $book['ownPageList'] ), FALSE );
+ asrt( isset( $book['xownPage'] ), FALSE );
+ asrt( isset( $book['xownPageList'] ), FALSE );
+ $book['ownPage'] = array( R::dispense('page') );
+ unset( $book['xownPageList'] );
+ asrt( isset( $book['ownPage'] ), FALSE );
+ asrt( isset( $book['ownPageList'] ), FALSE );
+ asrt( isset( $book['xownPage'] ), FALSE );
+ asrt( isset( $book['xownPageList'] ), FALSE );
+ //does it work with shared lists as well?
+ $book['sharedCategory'] = array( R::dispense('category') );
+ asrt( count( $book ), 3 );
+ $properties = array();
+ foreach($book as $key => $value) {
+ $properties[ $key ] = $value;
+ }
+ asrt( isset( $properties['sharedCategory'] ), TRUE );
+ asrt( isset( $properties['sharedCategoryList'] ), FALSE );
+ asrt( isset( $book['sharedCategory'] ), TRUE );
+ asrt( isset( $book['sharedCategoryList'] ), TRUE );
+ asrt( count( $book['sharedCategory'] ), 1 );
+ asrt( count( $book['sharedCategoryList'] ), 1 );
+ $book['sharedCategory'][] = R::dispense( 'category' );
+ asrt( count( $book['sharedCategory'] ), 2 );
+ asrt( count( $book['sharedCategoryList'] ), 2 );
+ $book['sharedCategoryList'][] = R::dispense( 'category' );
+ asrt( count( $book['sharedCategory'] ), 3 );
+ asrt( count( $book['sharedCategoryList'] ), 3 );
+ }
+
+ /**
+ * Tests array access with parent beans.
+ *
+ * @return void
+ */
+ public function testArrayAccessWithBeans()
+ {
+ $book = R::dispense( 'bean' );
+ $book['author'] = R::dispense( 'author' );
+ asrt( isset( $book['author'] ), TRUE );
+ asrt( count( $book ), 2 );
+ $book['author']['name'] = 'me';
+ asrt( $book['author']['name'], 'me' );
+ $book['author']['address'] = R::dispense( 'address' );
+ $book['author']['ownTagList'][] = R::dispense( 'tag' );
+ asrt( isset( $book['author']['address'] ), TRUE );
+ asrt( isset( $book['author']['ownTag'] ), TRUE );
+ asrt( count( $book['author']['ownTag'] ), 1 );
+ asrt( isset( $book['author']['xownTag'] ), TRUE );
+ asrt( count( $book['author']['xownTag'] ), 1 );
+ asrt( isset( $book['author']['ownTagList'] ), TRUE );
+ asrt( count( $book['author']['ownTagList'] ), 1 );
+ asrt( isset( $book['author']['xownTagList'] ), TRUE );
+ asrt( count( $book['author']['xownTagList'] ), 1 );
+ unset( $book['author'] );
+ asrt( isset( $book['author'] ), FALSE );
+ asrt( count( $book ), 1 );
+ }
+
+ /**
+ * Tests array access with CRUD operations.
+ *
+ * @return void
+ */
+ public function testArrayAccessWithCRUD()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $book['ownPageList'] = R::dispense( 'page', 3 );
+ R::store( $book );
+ $book = $book->fresh();
+ //note that isset first returns false, so you can check if a list is loaded
+ asrt( isset( $book['ownPage'] ), FALSE );
+ asrt( isset( $book['ownPageList'] ), FALSE );
+ asrt( isset( $book['xownPage'] ), FALSE );
+ asrt( isset( $book['xownPageList'] ), FALSE );
+ //count triggers load...
+ asrt( count( $book['ownPage'] ), 3 );
+ asrt( isset( $book['ownPage'] ), TRUE );
+ asrt( isset( $book['ownPageList'] ), TRUE );
+ asrt( isset( $book['xownPage'] ), TRUE );
+ asrt( isset( $book['xownPageList'] ), TRUE );
+ $book = $book->fresh();
+ asrt( count( $book['xownPage'] ), 3 );
+ $book = $book->fresh();
+ asrt( count( $book['ownPageList'] ), 3 );
+ $book = $book->fresh();
+ asrt( count( $book['xownPageList'] ), 3 );
+ $book['ownPage'][] = R::dispense( 'page' );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book['ownPage'] ), 4 );
+ $book = $book->fresh();
+ asrt( count( $book['xownPage'] ), 4 );
+ $book = $book->fresh();
+ asrt( count( $book['ownPageList'] ), 4 );
+ $book = $book->fresh();
+ asrt( count( $book['xownPageList'] ), 4 );
+ //does dependency still work?
+ $book['xownPageList'] = array();
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book['ownPage'] ), 0 );
+ $book = $book->fresh();
+ asrt( count( $book['xownPage'] ), 0 );
+ $book = $book->fresh();
+ asrt( count( $book['ownPageList'] ), 0 );
+ $book = $book->fresh();
+ asrt( count( $book['xownPageList'] ), 0 );
+ //does shared list work as well?
+ $book['sharedTag'] = R::dispense( 'tag', 2 );
+ R::store( $book );
+ $book = $book->fresh();
+ //note that isset first returns false, so you can check if a list is loaded
+ asrt( isset( $book['sharedTagList'] ), FALSE );
+ asrt( isset( $book['sharedTag'] ), FALSE );
+ //count triggers load...
+ asrt( count( $book['sharedTagList'] ), 2 );
+ asrt( count( $book['sharedTag'] ), 2 );
+ asrt( isset( $book['sharedTagList'] ), TRUE );
+ asrt( isset( $book['sharedTag'] ), TRUE );
+ $book['sharedTag'][] = R::dispense( 'tag' );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book['sharedTagList'] ), 3 );
+ asrt( count( $book['sharedTag'] ), 3 );
+ $book['sharedTagList'][] = R::dispense( 'tag' );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( count( $book['sharedTagList'] ), 4 );
+ asrt( count( $book['sharedTag'] ), 4 );
+ //does it also work with cross-shared
+ $book['sharedBookList'][] = R::dispense( 'book' );
+ R::store( $book );
+ $book = $book->fresh();
+ asrt( isset( $book['sharedBookList'] ), FALSE );
+ asrt( count( $book['sharedBookList'] ), 1 );
+ $first = reset( $book['sharedBookList'] );
+ $id = $first['id'];
+ asrt( count( $book['sharedBookList'][$id]['sharedBookList'] ), 1 );
+ $properties = array();
+ foreach($book as $key => $value) {
+ $properties[ $key ] = $value;
+ }
+ asrt( count( $properties ), 2 );
+ $keys = array_keys( $properties );
+ sort( $keys );
+ asrt( implode( ',', $keys ), 'id,sharedBook' );
+ }
+}