+++ /dev/null
-<?php
-
-namespace RedUNIT\Blackhole;
-
-use RedUNIT\Blackhole as Blackhole;
-use RedBeanPHP\Facade as R;
-use RedBeanPHP\OODBBean as OODBBean;
-
-/**
- * Export
- *
- * Tests whether we can export beans to arrays and whether we can
- * use the exportAll function to convert entire hierarchies into
- * nested array structures.
- *
- * @file RedUNIT/Blackhole/Export.php
- * @desc Tests basic bean exporting features.
- * @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 Export extends Blackhole
-{
- /**
- * ExportAll.
- *
- * @return void
- */
- public function testExportAll()
- {
- testpack( 'Test exportAll' );
- $redbean = R::getRedBean();
- $bean = new OODBBean;
- $bean->import( array( 'a' => 1, 'b' => 2 ) );
- $bean->setMeta( 'justametaproperty', 'hellothere' );
- $arr = $bean->export();
- asrt( is_array( $arr ), TRUE );
- asrt( isset( $arr["a"] ), TRUE );
- asrt( isset( $arr["b"] ), TRUE );
- asrt( $arr["a"], 1 );
- asrt( $arr["b"], 2 );
- asrt( isset( $arr["__info"] ), FALSE );
- $arr = $bean->export( TRUE );
- asrt( isset( $arr["__info"] ), TRUE );
- asrt( $arr["a"], 1 );
- asrt( $arr["b"], 2 );
- $exportBean = $redbean->dispense( 'abean' );
- $exportBean->setMeta( 'metaitem.bla', 1 );
- $exportedBean = $exportBean->export( TRUE );
- asrt( $exportedBean["__info"]["metaitem.bla"], 1 );
- asrt( $exportedBean["__info"]["type"], "abean" );
- // Can we determine whether a bean is empty?
- testpack( 'test $bean->isEmpty() function' );
- $bean = R::dispense( 'bean' );
- asrt( $bean->isEmpty(), TRUE );
- asrt( ( count( $bean ) > 0 ), TRUE );
- $bean->property = 1;
- asrt( $bean->isEmpty(), FALSE );
- asrt( ( count( $bean ) > 0 ), TRUE );
- $bean->property = 0;
- asrt( $bean->isEmpty(), TRUE );
- asrt( ( count( $bean ) > 0 ), TRUE );
- $bean->property = FALSE;
- asrt( $bean->isEmpty(), TRUE );
- asrt( ( count( $bean ) > 0 ), TRUE );
- $bean->property = NULL;
- asrt( $bean->isEmpty(), TRUE );
- asrt( ( count( $bean ) > 0 ), TRUE );
- unset( $bean->property );
- asrt( $bean->isEmpty(), TRUE );
- asrt( ( count( $bean ) > 0 ), TRUE );
- // Export bug I found
- $bandmember = R::dispense( 'bandmember' );
- $bandmember->name = 'Duke';
- $instrument = R::dispense( 'instrument' );
- $instrument->name = 'Piano';
- $bandmember->ownInstrument[] = $instrument;
- $a = R::exportAll( $bandmember );
- pass();
- asrt( isset( $a[0] ), TRUE );
- asrt( (int) $a[0]['id'], 0 );
- asrt( $a[0]['name'], 'Duke' );
- asrt( $a[0]['ownInstrument'][0]['name'], 'Piano' );
- R::nuke();
- $v = R::dispense( 'village' );
- $b = R::dispense( 'building' );
- $v->name = 'a';
- $b->name = 'b';
- $v->ownBuilding[] = $b;
- $id = R::store( $v );
- $a = R::exportAll( $v );
- asrt( $a[0]['name'], 'a' );
- asrt( $a[0]['ownBuilding'][0]['name'], 'b' );
- $v = R::load( 'village', $id );
- $b2 = R::dispense( 'building' );
- $b2->name = 'c';
- $v->ownBuilding[] = $b2;
- $a = R::exportAll( $v );
- asrt( $a[0]['name'], 'a' );
- asrt( $a[0]['ownBuilding'][0]['name'], 'b' );
- asrt( count( $a[0]['ownBuilding'] ), 2 );
- list( $r1, $r2 ) = R::dispense( 'army', 2 );
- $r1->name = '1';
- $r2->name = '2';
- $v->sharedArmy[] = $r2;
- $a = R::exportAll( $v );
- asrt( count( $a[0]['sharedArmy'] ), 1 );
- R::store( $v );
- $v = R::load( 'village', $id );
- $a = R::exportAll( $v );
- asrt( count( $a[0]['sharedArmy'] ), 1 );
- asrt( $a[0]['name'], 'a' );
- asrt( $a[0]['ownBuilding'][0]['name'], 'b' );
- asrt( count( $a[0]['ownBuilding'] ), 2 );
- $v->sharedArmy[] = $r1;
- $a = R::exportAll( $v );
- asrt( count( $a[0]['sharedArmy'] ), 2 );
- $v = R::load( 'village', $id );
- $a = R::exportAll( $v );
- asrt( count( $a[0]['sharedArmy'] ), 1 );
- $v->sharedArmy[] = $r1;
- R::store( $v );
- $v = R::load( 'village', $id );
- $a = R::exportAll( $v );
- asrt( count( $a[0]['sharedArmy'] ), 2 );
- }
-}