--- /dev/null
+<?php
+
+namespace RedUNIT\Base;
+
+use RedUNIT\Base as Base;
+use RedBeanPHP\Facade as R;
+use RedBeanPHP\RedException as RedException;
+use RedBeanPHP\OODBBean as OODBBean;
+
+/**
+ * Frozen
+ *
+ * Frozen mode tests
+ * When I split the repositories in frozen and fluid I discovered some missed
+ * code-paths in the tests.
+ * These tests are here to make sure the following scenarios work properly
+ * in frozen mode as well.
+ *
+ * @file RedUNIT/Base/Frozen.php
+ * @desc Test some scenarios we haven't covered for frozen mode.
+ * @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 Frozen extends Base
+{
+ /**
+ * Tests the handling of trashed beans in frozen mode.
+ * Are the lists unset etc?
+ *
+ * @return void
+ */
+ public function testTrash()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $book->xownPageList[] = R::dispense( 'page' );
+ $book->sharedTagList[] = R::dispense( 'tag' );
+ R::store( $book );
+ $book = $book->fresh();
+ R::freeze( TRUE );
+
+ $book->xownPageList = array();
+
+ R::store( $book );
+ $book = $book->fresh();
+
+ asrt( R::count('page'), 0 );
+
+ $book->xownPageList[] = R::dispense( 'page' );
+
+ R::store( $book );
+ $book = $book->fresh();
+
+ asrt( R::count('page'), 1 );
+
+ $book->xownPageList;
+ $book->sharedTagList;
+ R::trash( $book );
+
+ asrt( R::count('book'), 0 );
+ asrt( R::count('page'), 0 );
+ asrt( R::count('tag'), 1 );
+ asrt( R::count('book_tag'), 0 );
+
+ R::freeze( FALSE );
+ }
+
+ /**
+ * Tests whether invalid list checks are
+ * operational in frozen mode.
+ *
+ * @return void
+ */
+ public function testInvalidList()
+ {
+ R::nuke();
+ $book = R::dispense( 'book' );
+ $book->xownPageList[] = R::dispense( 'page' );
+ $book->sharedTagList[] = R::dispense( 'tag' );
+ R::store( $book );
+ R::freeze( TRUE );
+
+ $book = R::dispense( 'book' );
+ $book->xownPageList[] = 'nonsense';
+ try {
+ R::store( $book );
+ fail();
+ } catch( \Exception $e ) {
+ pass();
+ }
+
+ R::freeze( FALSE );
+ }
+
+ /**
+ * Tests whether loading non-existant beans
+ * returns the same results in frozen mode.
+ *
+ * @return
+ */
+ public function testLoadNonExistant()
+ {
+ R::nuke();
+ R::store( R::dispense( 'bean' ) );
+ R::freeze( TRUE );
+ $bean = R::load( 'bean', 123 );
+ R::freeze( FALSE );
+ asrt( ( $bean instanceof OODBBean ), TRUE );
+ asrt( $bean->id, 0 );
+ }
+}