+++ /dev/null
-<?php
-
-namespace RedUNIT\Base;
-
-use RedUNIT\Base as Base;
-use RedBeanPHP\Facade as R;
-use RedBeanPHP\RedException as RedException;
-use RedBeanPHP\QueryWriter as QueryWriter;
-use RedBeanPHP\QueryWriter\AQueryWriter as AQueryWriter;
-
-/**
- * Update
- *
- * Tests basic update functionality - however this test suite
- * has grown to cover various other scenarios involving updates as
- * well, including setting of property filters (necessary for
- * spatial tools in MySQL), storiging INF value and more...
- *
- * @file RedUNIT/Base/Update.php
- * @desc Tests basic storage features through OODB class.
- * @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 Update extends Base
-{
- /**
- * Test whether we can use SQL filters and
- * whether they are being applied properly for
- * different types of SELECT queries in the QueryWriter.
- */
- public function testSQLFilters()
- {
- R::nuke();
- AQueryWriter::setSQLFilters(array(
- QueryWriter::C_SQLFILTER_READ => array(
- 'book' => array( 'title' => ' LOWER(book.title) '),
- ),
- QueryWriter::C_SQLFILTER_WRITE => array(
- 'book' => array( 'title' => ' UPPER(?) '),
- ),
- ));
-
- $book = R::dispense( 'book' );
- $book->title = 'story';
- R::store( $book );
- asrt( R::getCell( 'SELECT title FROM book WHERE id = ?', array( $book->id ) ), 'STORY' );
- $book = $book->fresh();
- asrt( $book->title, 'story' );
- $library = R::dispense( 'library' );
- $library->sharedBookList[] = $book;
- R::store( $library );
- $library = $library->fresh();
- $books = $library->sharedBookList;
- $book = reset( $books );
- asrt( $book->title, 'story' );
- $otherBook = R::dispense('book');
- $otherBook->sharedBook[] = $book;
- R::store( $otherBook );
- $otherBook = $otherBook->fresh();
- $books = $otherBook->sharedBookList;
- $book = reset( $books );
- asrt( $book->title, 'story' );
- $links = $book->ownBookBookList;
- $link = reset( $links );
- $link->shelf = 'x13';
- AQueryWriter::setSQLFilters(array(
- QueryWriter::C_SQLFILTER_READ => array(
- 'book' => array( 'title' => ' LOWER(book.title) '),
- 'book_book' => array( 'shelf' => ' LOWER(book_book.shelf) '),
- ),
- QueryWriter::C_SQLFILTER_WRITE => array(
- 'book' => array( 'title' => ' UPPER(?) '),
- 'book_book' => array( 'shelf' => ' UPPER(?) ')
- ),
- ));
- R::store( $link );
- asrt( R::getCell( 'SELECT shelf FROM book_book WHERE id = ?', array( $link->id ) ), 'X13' );
- $otherBook = $otherBook->fresh();
- unset($book->sharedBookList[$otherBook->id]);
- R::store( $book );
- AQueryWriter::setSQLFilters(array());
- }
-
- /**
- * Test unsetting properties.
- *
- * @return void
- */
- public function testUnsetUpdate()
- {
- R::nuke();
- $book = R::dispense( 'book' );
- $book->name = 'x';
- $book->price = 40;
- R::store( $book );
- $book = $book->fresh();
- $book->name = 'y';
- unset( $book->name );
- R::store( $book );
- $book = $book->fresh();
- asrt( $book->name, 'x' );
- asrt( (int) $book->price, 40 );
- $book->price = 30;
- R::store( $book );
- $book = $book->fresh();
- asrt( $book->name, 'x' );
- asrt( (int) $book->price, 30 );
- $book->price = 20;
- unset( $book->price );
- $book->name = 'y';
- R::store( $book );
- $book = $book->fresh();
- asrt( $book->name, 'y' );
- asrt( (int) $book->price, 30 );
- }
-
- /**
- * Tests whether we can update or unset a parent bean
- * with an alias without having to use fetchAs and
- * without loading the aliased bean causing table-not-found
- * errors.
- */
- public function testUpdatingParentBeansWithAliases()
- {
- testpack( 'Test updating parent beans with aliases' );
- R::nuke();
- $trans = R::dispense( 'transaction' );
- $seller = R::dispense( 'user' );
- $trans->seller = $seller;
- $id = R::store( $trans );
- R::freeze( TRUE );
- $trans = R::load( 'transaction', $id );
- //should not try to load seller, should not require fetchAs().
- try {
- $trans->seller = R::dispense( 'user' );
- pass();
- } catch( Exception $e ) {
- fail();
- }
- $trans = R::load( 'transaction', $id );
- //same for unset...
- try {
- unset( $trans->seller );
- pass();
- } catch ( Exception $e ) {
- fail();
- }
- R::freeze( FALSE );
- $account = R::dispense( 'user' );
- asrt( count( $account->alias( 'seller' )->ownTransaction ), 0 );
- $account->alias( 'seller' )->ownTransaction = R::dispense( 'transaction', 10 );
- $account->alias( 'boo' ); //try to trick me...
- $id = R::store( $account );
- R::freeze( true );
- $account = R::load( 'user', $id );
- asrt( count( $account->alias( 'seller' )->ownTransaction ), 10 );
- //you cannot unset a list
- unset( $account->alias( 'seller' )->ownTransaction );
- $id = R::store( $account );
- $account = R::load( 'user', $id );
- asrt( count( $account->alias( 'seller' )->ownTransaction ), 10 );
- $account->alias( 'seller' )->ownTransaction = array();
- $id = R::store( $account );
- $account = R::load( 'user', $id );
- asrt(count($account->alias( 'seller' )->ownTransaction), 0 );
- asrt(count($account->ownTransaction), 0 );
- R::freeze( FALSE );
- //but also make sure we don't cause extra column issue #335
- R::nuke();
- $building = R::dispense('building');
- $village = R::dispense('village');
- $building->village = $village;
- R::store($building);
- $building = $building->fresh();
- $building->village = NULL;
- R::store($building);
- $building = $building->fresh();
- $columns = R::inspect('building');
- asrt( isset( $columns['village'] ), FALSE );
- asrt( isset( $building->village ), FALSE );
- R::nuke();
- $building = R::dispense('building');
- $village = R::dispense('village');
- $building->village = $village;
- R::store($building);
- $building = $building->fresh();
- unset($building->village);
- R::store($building);
- $building = $building->fresh();
- $columns = R::inspect('building');
- asrt( isset( $columns['village'] ), FALSE );
- asrt( isset( $building->village ), FALSE );
- $building = R::dispense('building');
- $village = R::dispense('village');
- $building->village = $village;
- R::store($building);
- $building = $building->fresh();
- $building->village = FALSE;
- R::store($building);
- $building = $building->fresh();
- $columns = R::inspect('building');
- asrt( isset( $columns['village'] ), FALSE );
- asrt( isset( $building->village ), FALSE );
- }
-
- /**
- * All kinds of tests for basic CRUD.
- *
- * Does the data survive?
- *
- * @return void
- */
- public function testUpdatingBeans()
- {
- testpack( 'Test basic support UUID/override ID default value' );
- $bean = R::dispense( 'bean' );
- R::store( $bean );
- if ($this->currentlyActiveDriverID === 'mysql') {
- //otherwise UTF8 causes index overflow in mysql: SQLSTATE[42000]: Syntax error or access violation: 1071 Specified key was too long; max key length is 767 bytes
- R::exec('alter table bean modify column id char(3);');
- } else {
- R::getWriter()->widenColumn( 'bean', 'id', R::getWriter()->scanType( 'abc' ) );
- }
- $bean->id = 'abc';
- R::store( $bean );
- asrt( $bean->id, 'abc' );
- testpack( 'Test Update' );
- try {
- R::store( array() );
- fail();
- } catch ( RedException $e ) {
- pass();
- }
- $toolbox = R::getToolBox();
- $adapter = $toolbox->getDatabaseAdapter();
- $writer = $toolbox->getWriter();
- $redbean = $toolbox->getRedBean();
- $pdo = $adapter->getDatabase();
- $page = $redbean->dispense( "page" );
- $page->name = "old name";
- $id = $redbean->store( $page );
- asrt( $page->getMeta( 'tainted' ), FALSE );
- $page->setAttr( 'name', "new name" );
- asrt( $page->getMeta( 'tainted' ), TRUE );
- $id = $redbean->store( $page );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- // Null should == NULL after saving
- $page->rating = NULL;
- $newid = $redbean->store( $page );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( ( $page->rating === NULL ), TRUE );
- asrt( !$page->rating, TRUE );
- $page->rating = FALSE;
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( (bool) $page->rating, FALSE );
- asrt( ( $page->rating == FALSE ), TRUE );
- asrt( !$page->rating, TRUE );
- $page->rating = TRUE;
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( (bool) $page->rating, TRUE );
- asrt( ( $page->rating == TRUE ), TRUE );
- asrt( ( $page->rating == TRUE ), TRUE );
- $page->rating = NULL;
- R::store( $page );
- $page = R::load( 'page', $page->id );
- asrt( $page->rating, NULL );
- $page->rating = '1';
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( $page->rating, "1" );
- $page->rating = "0";
- $newid = $redbean->store( $page );
- asrt( $page->rating, "0" );
- $page->rating = 0;
- $newid = $redbean->store( $page );
- asrt( $page->rating, 0 );
- $page->rating = "0";
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( !$page->rating, TRUE );
- asrt( ( $page->rating == 0 ), TRUE );
- asrt( ( $page->rating == FALSE ), TRUE );
- $page->rating = 5;
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( strval( $page->rating ), "5" );
- $page->rating = 300;
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( strval( $page->rating ), "300" );
- $page->rating = -2;
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( strval( $page->rating ), "-2" );
- $page->rating = 2.5;
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( ( $page->rating == 2.5 ), TRUE );
- $page->rating = -3.3;
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( ( $page->rating == -3.3 ), TRUE );
- $page->rating = "good";
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( $page->rating, "good" );
- $longtext = str_repeat( 'great! because..', 100 );
- $page->rating = $longtext;
- $newid = $redbean->store( $page );
- asrt( $newid, $id );
- $page = $redbean->load( "page", $id );
- asrt( $page->name, "new name" );
- asrt( $page->rating, $longtext );
- // Test leading zeros
- $numAsString = "0001";
- $page->numasstring = $numAsString;
- $redbean->store( $page );
- $page = $redbean->load( "page", $id );
- asrt( $page->numasstring, "0001" );
- $page->numnotstring = "0.123";
- $redbean->store( $page );
- $page = $redbean->load( "page", $id );
- asrt( $page->numnotstring == 0.123, TRUE );
- $page->numasstring2 = "00.123";
- $redbean->store( $page );
- $page = $redbean->load( "page", $id );
- asrt( $page->numasstring2, "00.123" );
- try {
- $redbean->trash( array() );
- fail();
- } catch ( RedException $e ) {
- pass();
- }
- $redbean->trash( $page );
- asrt( (int) $pdo->GetCell( "SELECT count(*) FROM page" ), 0 );
- }
-
- /**
- * Tests whether empty strings are preserved as such.
- *
- * @return void
- */
- public function testEmptyStringShouldNotBeStoredAsInteger()
- {
- R::nuke();
- $bean = R::dispense('bean');
- $bean->str = '';
- R::store($bean);
- $bean = $bean->fresh();
- asrt( ( $bean->str === '' ), TRUE);
- }
-
- /**
- * Test handling of infinity values.
- *
- * @return void
- */
- public function testStoringInf()
- {
- R::nuke();
- $bean = R::dispense( 'bean' );
- $bean->inf = INF;
- R::store( $bean );
- $bean = $bean->fresh();
- asrt( ( $bean->inf === 'INF' ), TRUE );
- asrt( ( $bean->inf == 'INF' ), TRUE );
- $bean->modifyme = 'yes';
- R::store( $bean );
- $bean = $bean->fresh();
- asrt( ( $bean->inf === 'INF' ), TRUE );
- asrt( ( $bean->inf == 'INF' ), TRUE );
- $bean->modifyme = 'yes';
- }
-}
-
projects / yaffs-website / blobdiff