+++ /dev/null
-<?php
-
-namespace RedUNIT\Base;
-
-use RedUNIT\Base as Base;
-use RedBeanPHP\Facade as R;
-use RedBeanPHP\AssociationManager as AssociationManager;
-use RedBeanPHP\OODB as OODB;
-use RedBeanPHP\ToolBox as ToolBox;
-use RedBeanPHP\Adapter as Adapter;
-use RedBeanPHP\QueryWriter as QueryWriter;
-use RedBeanPHP\OODBBean as OODBBean;
-
-/**
- * Facade
- *
- * Tests the facade. The facade is a single class (often aliased with R)
- * that provides access to all (or most) RedBeanPHP functionality without
- * the need to interact with all the objects involved. The facade has
- * been designed to be as 'straightfoward' as possible, many methods
- * of the facade class should be 'almost identical' to simple calls
- * to objects behind the facade. This test focuses on basic usage
- * scenarios. Complex scenarios are tested in other suites because
- * we often test 'the complete route' as the facade code path always
- * includes the non-facade code path as well (as proven by the coverage numbers).
- *
- * @file RedUNIT/Base/Facade.php
- * @desc Tests basic functions through facade.
- * @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 Facade extends Base
-{
-
- /**
- * What drivers should be loaded for this test pack?
- * This pack contains some SQL incomp. with OCI
- */
- public function getTargetDrivers()
- {
- return array( 'mysql', 'pgsql', 'sqlite', 'CUBRID' );
- }
-
- /**
- * Tests quick trash method: R::trash( type, id ).
- *
- * @return void
- */
- public function testQuickTrash()
- {
- R::nuke();
- $bean = R::dispense( 'bean' );
- $id = R::store( $bean );
- asrt( R::count( 'bean' ), 1 );
- R::trash( 'bean', $id );
- asrt( R::count( 'bean' ), 0 );
- }
-
- /**
- * Test common Facade usage scenarios.
- *
- * @return void
- */
- public function testCommonUsageFacade()
- {
- $toolbox = R::getToolBox();
- $adapter = $toolbox->getDatabaseAdapter();
- $writer = $toolbox->getWriter();
- $redbean = $toolbox->getRedBean();
- $pdo = $adapter->getDatabase();
- $a = new AssociationManager( $toolbox );
- asrt( R::getRedBean() instanceof OODB, TRUE );
- asrt( R::getToolBox() instanceof ToolBox, TRUE );
- asrt( R::getDatabaseAdapter() instanceof Adapter, TRUE );
- asrt( R::getWriter() instanceof QueryWriter, TRUE );
- $book = R::dispense( "book" );
- asrt( $book instanceof OODBBean, TRUE );
- $book->title = "a nice book";
- $id = R::store( $book );
- asrt( ( $id > 0 ), TRUE );
- $book = R::load( "book", (int) $id );
- asrt( $book->title, "a nice book" );
- asrt( R::load( 'book', 999 )->title, NULL );
- R::freeze( TRUE );
- try {
- R::load( 'bookies', 999 );
- fail();
- } catch (\Exception $e ) {
- pass();
- }
- R::freeze( FALSE );
- $author = R::dispense( "author" );
- $author->name = "me";
- R::store( $author );
- $book9 = R::dispense( "book" );
- $author9 = R::dispense( "author" );
- $author9->name = "mr Nine";
- $a9 = R::store( $author9 );
- $book9->author_id = $a9;
- $bk9 = R::store( $book9 );
- $book9 = R::load( "book", $bk9 );
- $author = R::load( "author", $book9->author_id );
- asrt( $author->name, "mr Nine" );
- R::trash( $author );
- R::trash( $book9 );
- pass();
- $book2 = R::dispense( "book" );
- $book2->title = "second";
- R::store( $book2 );
- $book3 = R::dispense( "book" );
- $book3->title = "third";
- R::store( $book3 );
- asrt( count( R::find( "book" ) ), 3 );
- asrt( count( R::findAll( "book" ) ), 3 );
- asrt( count( R::findAll( "book", " LIMIT 2" ) ), 2 );
- asrt( count( R::find( "book", " id=id " ) ), 3 );
- asrt( count( R::find( "book", " title LIKE ?", array( "third" ) ) ), 1 );
- asrt( count( R::find( "book", " title LIKE ?", array( "%d%" ) ) ), 2 );
- // Find without where clause
- asrt( count( R::findAll( 'book', ' order by id' ) ), 3 );
- R::trash( $book3 );
- R::trash( $book2 );
- asrt( count( R::getAll( "SELECT * FROM book " ) ), 1 );
- asrt( count( R::getCol( "SELECT title FROM book " ) ), 1 );
- asrt( (int) R::getCell( "SELECT 123 " ), 123 );
- $book = R::dispense( "book" );
- $book->title = "not so original title";
- $author = R::dispense( "author" );
- $author->name = "Bobby";
- R::store( $book );
- $aid = R::store( $author );
- $author = R::findOne( "author", " name = ? ", array( "Bobby" ) );
- }
-}