Yaffs site version 1.1

[yaffs-website] / vendor / gabordemooij / redbean / testing / RedUNIT / Blackhole / Export.php

diff --git a/vendor/gabordemooij/redbean/testing/RedUNIT/Blackhole/Export.php b/vendor/gabordemooij/redbean/testing/RedUNIT/Blackhole/Export.php
new file mode 100644 (file)
index 0000000..73674b2
--- /dev/null
+++ b/vendor/gabordemooij/redbean/testing/RedUNIT/Blackhole/Export.php
@@ -0,0 +1,130 @@
+<?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 );
+       }
+}