<?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 );
	}
}