Yaffs site version 1.1

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

diff --git a/vendor/gabordemooij/redbean/testing/RedUNIT/Blackhole/Tainted.php b/vendor/gabordemooij/redbean/testing/RedUNIT/Blackhole/Tainted.php
new file mode 100644 (file)
index 0000000..3069492
--- /dev/null
+++ b/vendor/gabordemooij/redbean/testing/RedUNIT/Blackhole/Tainted.php
@@ -0,0 +1,131 @@
+<?php
+
+namespace RedUNIT\Blackhole;
+
+use RedUNIT\Blackhole as Blackhole;
+use RedBeanPHP\Facade as R;
+
+/**
+ * Tainted
+ *
+ * This test suite tests whether beans are marked as tainted
+ * under the correct circumstances.
+ *
+ * @file    RedUNIT/Blackhole/Tainted.php
+ * @desc    Tests tainted flag for OODBBean objects.
+ * @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 Tainted extends Blackhole
+{
+       /**
+        * Test whether we can detect a change using hasChanged().
+        *
+        * @return void
+        */
+       public function testHasChangedList()
+       {
+               R::nuke();
+               $book = R::dispense( 'book' );
+               $page = R::dispense( 'page' );
+               asrt( $book->hasListChanged( 'ownPage' ), FALSE );
+               $book->ownPage[] = $page;
+               asrt( $book->hasListChanged( 'ownPage' ), TRUE );
+               R::store( $book );
+               $book = $book->fresh();
+               asrt( $book->hasListChanged( 'ownPage' ), FALSE );
+               $page = R::dispense( 'page' );
+               $book->ownPageList[] = $page;
+               asrt( $book->hasListChanged( 'ownPage' ), TRUE );
+               R::store( $book );
+               $book = $book->fresh();
+               asrt( $book->hasListChanged( 'ownPage' ), FALSE );
+               asrt( count( $book->ownPageList ), 2 );
+               array_pop( $book->ownPageList );
+               asrt( count( $book->ownPageList ), 1 );
+               asrt( $book->hasListChanged( 'ownPage' ), TRUE );
+               array_pop( $book->ownPageList );
+               asrt( count( $book->ownPageList ), 0 );
+               asrt( $book->hasListChanged( 'ownPage' ), TRUE );
+               $book = $book->fresh();
+               asrt( $book->hasListChanged( 'ownPage' ), FALSE );
+               asrt( count( $book->ownPageList ), 2 );
+               $otherPage = R::dispense( 'page' );
+               array_pop( $book->ownPageList );
+               $book->ownPageList[] = $otherPage;
+               asrt( count( $book->ownPageList ), 2 );
+               asrt( $book->hasListChanged( 'ownPage' ), TRUE );
+               $book = $book->fresh();
+               $firstPage = reset( $book->ownPageList );
+               $firstPage->content = 'abc';
+               asrt( $book->hasListChanged( 'ownPage' ), FALSE );
+               $book = $book->fresh();
+               asrt( $book->hasListChanged( 'ownPage' ), FALSE );
+               $lastPage = end( $book->ownPageList );
+               $lastPage->ownText[] = R::dispense( 'text' );
+               asrt( $book->hasListChanged( 'ownPage' ), FALSE );
+       }
+
+       /**
+        * Tests whether we can clear the history of a bean.
+        *
+        * @return void
+        */
+       public function testClearHist()
+       {
+               R::nuke();
+               $book = R::dispense( 'book' );
+               asrt( $book->hasChanged( 'title' ), FALSE );
+               $book->title = 'book';
+               asrt( $book->hasChanged( 'title' ), TRUE );
+               R::store( $book );
+               asrt( $book->hasChanged( 'title' ), TRUE );
+               $book->clearHistory();
+               asrt( $book->hasChanged( 'title' ), FALSE );
+       }
+
+       /**
+        * Test tainted.
+        *
+        * @return void
+        */
+       public function testTainted()
+       {
+               testpack( 'Original Tainted Tests' );
+               $redbean = R::getRedBean();
+               $spoon = $redbean->dispense( "spoon" );
+               asrt( $spoon->getMeta( "tainted" ), TRUE );
+               $spoon->dirty = "yes";
+               asrt( $spoon->getMeta( "tainted" ), TRUE );
+               testpack( 'Tainted List test' );
+               $note = R::dispense( 'note' );
+               $note->text = 'abc';
+               $note->ownNote[] = R::dispense( 'note' )->setAttr( 'text', 'def' );
+               $id = R::store( $note );
+               $note = R::load( 'note', $id );
+               asrt( $note->isTainted(), FALSE );
+               // Shouldn't affect tainted
+               $note->text;
+               asrt( $note->isTainted(), FALSE );
+               $note->ownNote;
+               asrt( $note->isTainted(), TRUE );
+               testpack( 'Tainted Test Old Value' );
+               $text = $note->old( 'text' );
+               asrt( $text, 'abc' );
+               asrt( $note->hasChanged( 'text' ), FALSE );
+               $note->text = 'xxx';
+               asrt( $note->hasChanged( 'text' ), TRUE );
+               $text = $note->old( 'text' );
+               asrt( $text, 'abc' );
+               testpack( 'Tainted Non-exist' );
+               asrt( $note->hasChanged( 'text2' ), FALSE );
+               testpack( 'Misc Tainted Tests' );
+               $bean = R::dispense( 'bean' );
+               $bean->hasChanged( 'prop' );
+               $bean->old( 'prop' );
+       }
+}