Yaffs site version 1.1

[yaffs-website] / vendor / gabordemooij / redbean / testing / RedUNIT / Base / Dispense.php

diff --git a/vendor/gabordemooij/redbean/testing/RedUNIT/Base/Dispense.php b/vendor/gabordemooij/redbean/testing/RedUNIT/Base/Dispense.php
new file mode 100644 (file)
index 0000000..09335ed
--- /dev/null
+++ b/vendor/gabordemooij/redbean/testing/RedUNIT/Base/Dispense.php
@@ -0,0 +1,171 @@
+<?php
+
+namespace RedUNIT\Base;
+
+use RedUNIT\Base as Base;
+use RedBeanPHP\Facade as R;
+use RedBeanPHP\RedException as RedException;
+use RedBeanPHP\Facade as Facade;
+use RedBeanPHP\OODBBean as OODBBean;
+
+/**
+ * Dispense
+ *
+ * Tests whether we can dispense beans and tests all
+ * features of the dispense/dispenseAll functions.
+ *
+ * @file    RedUNIT/Base/Dispense.php
+ * @desc    Tests bean dispensing functionality.
+ * @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 Dispense extends Base
+{
+       /**
+        * Test dispense.
+        *
+        * @return void
+        */
+       public function testBasicsDispense()
+       {
+               $redbean = R::getRedBean();
+
+               // Can we dispense a bean?
+               $page = $redbean->dispense( "page" );
+
+               // Does it have a meta type?
+               asrt( ( (bool) $page->getMeta( "type" ) ), TRUE );
+
+               // Does it have an ID?
+               asrt( isset( $page->id ), TRUE );
+
+               // Type should be 'page'
+               asrt( ( $page->getMeta( "type" ) ), "page" );
+
+               // ID should be 0 because bean does not exist in database yet.
+               asrt( ( $page->id ), 0 );
+
+               // Try some faulty dispense actions.
+               foreach ( array( "", ".", "-") as $value ) {
+                       try {
+                               $redbean->dispense( $value );
+
+                               fail();
+                       } catch (RedException $e ) {
+                               pass();
+                       }
+               }
+
+               $bean = $redbean->dispense( "testbean" );
+
+               $bean["property"] = 123;
+               $bean["abc"]      = "def";
+
+               asrt( $bean["property"], 123 );
+               asrt( $bean["abc"], "def" );
+               asrt( $bean->abc, "def" );
+
+               asrt( isset( $bean["abd"] ), FALSE );
+               asrt( isset( $bean["abc"] ), TRUE );
+       }
+
+       /**
+        * Tests the facade-only dispenseAll method.
+        *
+        * @return void
+        */
+       public function testDispenseAll()
+       {
+               list( $book, $page ) = Facade::dispenseAll( 'book,page' );
+               asrt( ( $book instanceof OODBBean ), TRUE );
+               asrt( ( $page instanceof OODBBean ), TRUE );
+               asrt( $book->getMeta( 'type' ), 'book');
+               asrt( $page->getMeta( 'type' ), 'page');
+
+               list( $book, $page, $texts, $mark ) = R::dispenseAll( 'book,page,text*2,mark' );
+               asrt( ( $book instanceof OODBBean ), TRUE );
+               asrt( ( $page instanceof OODBBean ), TRUE );
+               asrt( is_array( $texts ), TRUE );
+               asrt( ( $mark instanceof OODBBean ), TRUE );
+               asrt( $book->getMeta( 'type'), 'book' );
+               asrt( $page->getMeta( 'type'), 'page' );
+               asrt( $mark->getMeta( 'type'), 'mark' );
+               asrt( $texts[0]->getMeta( 'type'), 'text' );
+               asrt( $texts[1]->getMeta( 'type'), 'text' );
+
+               list( $eggs, $milk, $butter ) = R::dispenseAll( 'eggs*3,milk*1,butter*9' );
+               asrt( count( $eggs ), 3 );
+               asrt( ( $milk instanceof OODBBean ), TRUE );
+               asrt( count( $butter ), 9 );
+
+               list( $eggs, $milk, $butter ) = R::dispenseAll( 'eggs*3,milk*1,butter*9', TRUE );
+               asrt( count( $eggs ), 3 );
+               asrt( count( $milk ), 1 );
+               asrt( count( $eggs ), 3 );
+
+               list( $beer ) = R::dispenseAll( 'beer*0', TRUE );
+               asrt( is_array( $beer ), TRUE );
+               asrt( count( $beer ), 0 );
+
+               list( $beer ) = R::dispenseAll( 'beer*0', FALSE );
+               asrt( is_array( $beer ), FALSE );
+               asrt( is_null( $beer ), TRUE );
+               asrt( count( $beer ), 0 );
+       }
+
+       /**
+        * Tests different return values of dispense().
+        *
+        * @return void
+        */
+       public function testDispenseArray()
+       {
+               $oodb = R::getRedBean();
+               $array = $oodb->dispense( 'book', 0, TRUE );
+               asrt( is_array( $array ), TRUE );
+               $array = $oodb->dispense( 'book', 1, TRUE );
+               asrt( is_array( $array ), TRUE );
+               $array = $oodb->dispense( 'book', 2, TRUE );
+               asrt( is_array( $array ), TRUE );
+               $array = R::dispense( 'book', 0, TRUE );
+               asrt( is_array( $array ), TRUE );
+               $array = R::dispense( 'book', 1, TRUE );
+               asrt( is_array( $array ), TRUE );
+               $array = R::dispense( 'book', 2, TRUE );
+               asrt( is_array( $array ), TRUE );
+
+               $array = $oodb->dispense( 'book', 0, FALSE );
+               asrt( is_array( $array ), FALSE );
+               asrt( is_null( $array ), TRUE );
+               $array = $oodb->dispense( 'book', 1, FALSE );
+               asrt( is_array( $array ), FALSE );
+               asrt( ( $array instanceof OODBBean ), TRUE );
+               $array = $oodb->dispense( 'book', 2, FALSE );
+               asrt( is_array( $array ), TRUE );
+               $array = R::dispense( 'book', 0, FALSE );
+               asrt( is_array( $array ), FALSE );
+               $array = R::dispense( 'book', 1, FALSE );
+               asrt( is_array( $array ), FALSE );
+               $array = R::dispense( 'book', 2, FALSE );
+               asrt( is_array( $array ), TRUE );
+
+               $array = $oodb->dispense( 'book', 0 );
+               asrt( is_array( $array ), FALSE );
+               asrt( is_null( $array ), TRUE );
+               $array = $oodb->dispense( 'book', 1 );
+               asrt( is_array( $array ), FALSE );
+               asrt( ( $array instanceof OODBBean ), TRUE );
+               $array = $oodb->dispense( 'book', 2 );
+               asrt( is_array( $array ), TRUE );
+               $array = R::dispense( 'book', 0 );
+               asrt( is_array( $array ), FALSE );
+               $array = R::dispense( 'book', 1 );
+               asrt( is_array( $array ), FALSE );
+               $array = R::dispense( 'book', 2 );
+               asrt( is_array( $array ), TRUE );
+       }
+}