+++ /dev/null
-<?php
-
-namespace RedUNIT\Postgres;
-
-use RedUNIT\Postgres as Postgres;
-use RedBeanPHP\Facade as R;
-use RedBeanPHP\AssociationManager as AssociationManager;
-use RedBeanPHP\QueryWriter\PostgreSQL as PostgreSQL;
-use RedBeanPHP\RedException\SQL as SQL;
-
-/**
- * Writer
- *
- * Tests for PostgreSQL Query Writer.
- * This test class contains Query Writer specific tests.
- * Use this class to add tests to test Query Writer specific
- * behaviours, quirks and issues.
- *
- * @file RedUNIT/Postgres/Writer.php
- * @desc A collection of writer specific tests.
- * @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 Writer extends Postgres
-{
- /**
- * Test scanning and coding.
- *
- * @return void
- */
- public function testScanningAndCoding()
- {
- $toolbox = R::getToolBox();
- $adapter = $toolbox->getDatabaseAdapter();
- $writer = $toolbox->getWriter();
- $redbean = $toolbox->getRedBean();
- $pdo = $adapter->getDatabase();
-
- $a = new AssociationManager( $toolbox );
-
- $adapter->exec( "DROP TABLE IF EXISTS testtable" );
-
- asrt( in_array( "testtable", $writer->getTables() ), FALSE );
-
- $writer->createTable( "testtable" );
-
- asrt( in_array( "testtable", $writer->getTables() ), TRUE );
-
- asrt( count( array_keys( $writer->getColumns( "testtable" ) ) ), 1 );
-
- asrt( in_array( "id", array_keys( $writer->getColumns( "testtable" ) ) ), TRUE );
- asrt( in_array( "c1", array_keys( $writer->getColumns( "testtable" ) ) ), FALSE );
-
- $writer->addColumn( "testtable", "c1", 1 );
-
- asrt( count( array_keys( $writer->getColumns( "testtable" ) ) ), 2 );
-
- asrt( in_array( "c1", array_keys( $writer->getColumns( "testtable" ) ) ), TRUE );
-
- foreach ( $writer->sqltype_typeno as $key => $type ) {
- if ( $type < 100 ) {
- asrt( $writer->code( $key, TRUE ), $type );
- } else {
- asrt( $writer->code( $key ), PostgreSQL::C_DATATYPE_SPECIFIED );
- }
- }
-
- asrt( $writer->code( PostgreSQL::C_DATATYPE_SPECIAL_DATETIME ), PostgreSQL::C_DATATYPE_SPECIFIED );
-
- asrt( $writer->code( "unknown" ), PostgreSQL::C_DATATYPE_SPECIFIED );
-
- asrt( $writer->scanType( FALSE ), PostgreSQL::C_DATATYPE_INTEGER );
- asrt( $writer->scanType( TRUE ), PostgreSQL::C_DATATYPE_INTEGER );
-
- asrt( $writer->scanType( NULL ), PostgreSQL::C_DATATYPE_INTEGER );
-
- asrt( $writer->scanType( 2 ), PostgreSQL::C_DATATYPE_INTEGER );
-
- asrt( $writer->scanType( 255 ), PostgreSQL::C_DATATYPE_INTEGER );
- asrt( $writer->scanType( 256 ), PostgreSQL::C_DATATYPE_INTEGER );
-
- asrt( $writer->scanType( -1 ), PostgreSQL::C_DATATYPE_INTEGER );
-
- asrt( $writer->scanType( 1.5 ), PostgreSQL::C_DATATYPE_DOUBLE );
-
- asrt( $writer->scanType( INF ), PostgreSQL::C_DATATYPE_TEXT );
-
- asrt( $writer->scanType( "abc" ), PostgreSQL::C_DATATYPE_TEXT );
-
- asrt( $writer->scanType( "2001-10-10", TRUE ), PostgreSQL::C_DATATYPE_SPECIAL_DATE );
-
- asrt( $writer->scanType( "2001-10-10 10:00:00", TRUE ), PostgreSQL::C_DATATYPE_SPECIAL_DATETIME );
-
- asrt( $writer->scanType( "2001-10-10 10:00:00" ), PostgreSQL::C_DATATYPE_TEXT );
-
- asrt( $writer->scanType( "2001-10-10" ), PostgreSQL::C_DATATYPE_TEXT );
-
- asrt( $writer->scanType( str_repeat( "lorem ipsum", 100 ) ), PostgreSQL::C_DATATYPE_TEXT );
-
- $writer->widenColumn( "testtable", "c1", PostgreSQL::C_DATATYPE_TEXT );
-
- $cols = $writer->getColumns( "testtable" );
-
- asrt( $writer->code( $cols["c1"] ), PostgreSQL::C_DATATYPE_TEXT );
-
- $writer->addColumn( "testtable", "special", PostgreSQL::C_DATATYPE_SPECIAL_DATE );
-
- $cols = $writer->getColumns( "testtable" );
-
- asrt( $writer->code( $cols['special'], TRUE ), PostgreSQL::C_DATATYPE_SPECIAL_DATE );
-
- asrt( $writer->code( $cols['special'], FALSE ), PostgreSQL::C_DATATYPE_SPECIFIED );
-
- $writer->addColumn( "testtable", "special2", PostgreSQL::C_DATATYPE_SPECIAL_DATETIME );
-
- $cols = $writer->getColumns( "testtable" );
-
- asrt( $writer->code( $cols['special2'], TRUE ), PostgreSQL::C_DATATYPE_SPECIAL_DATETIME );
-
- asrt( $writer->code( $cols['special'], FALSE ), PostgreSQL::C_DATATYPE_SPECIFIED );
-
- //$id = $writer->insertRecord("testtable", array("c1"), array(array("lorem ipsum")));
-
- $id = $writer->updateRecord( "testtable", array( array( "property" => "c1", "value" => "lorem ipsum" ) ) );
-
- $row = $writer->queryRecord( "testtable", array( "id" => array( $id ) ) );
-
- asrt( $row[0]["c1"], "lorem ipsum" );
-
- $writer->updateRecord( "testtable", array( array( "property" => "c1", "value" => "ipsum lorem" ) ), $id );
-
- $row = $writer->queryRecord( "testtable", array( "id" => array( $id ) ) );
-
- asrt( $row[0]["c1"], "ipsum lorem" );
-
- $writer->deleteRecord( "testtable", array( "id" => array( $id ) ) );
-
- $row = $writer->queryRecord( "testtable", array( "id" => array( $id ) ) );
-
- asrt( empty( $row ), TRUE );
- }
-
- /**
- * (FALSE should be stored as 0 not as '')
- *
- * @return void
- */
- public function testZeroIssue()
- {
- testpack( "Zero issue" );
-
- $toolbox = R::getToolBox();
- $redbean = $toolbox->getRedBean();
-
- $bean = $redbean->dispense( "zero" );
-
- $bean->zero = FALSE;
- $bean->title = "bla";
-
- $redbean->store( $bean );
-
- asrt( count( $redbean->find( "zero", array(), " zero = 0 " ) ), 1 );
-
- testpack( "Test ANSI92 issue in clearrelations" );
-
- $a = new AssociationManager( $toolbox );
-
- $book = $redbean->dispense( "book" );
- $author1 = $redbean->dispense( "author" );
- $author2 = $redbean->dispense( "author" );
-
- $book->title = "My First Post";
-
- $author1->name = "Derek";
- $author2->name = "Whoever";
-
- set1toNAssoc( $a, $book, $author1 );
- set1toNAssoc( $a, $book, $author2 );
-
- pass();
- }
-
- /**
- * Various.
- * Tests whether writer correctly handles keyword 'group' and SQL state 23000 issue.
- * These tests remain here to make sure issues 9 and 10 never happen again.
- * However this bug will probably never re-appear due to changed architecture.
- *
- * @return void
- */
- public function testIssue9and10()
- {
- $toolbox = R::getToolBox();
- $redbean = $toolbox->getRedBean();
- $adapter = $toolbox->getDatabaseAdapter();
-
- $a = new AssociationManager( $toolbox );
-
- $book = $redbean->dispense( "book" );
-
- $author1 = $redbean->dispense( "author" );
- $author2 = $redbean->dispense( "author" );
-
- $book->title = "My First Post";
-
- $author1->name = "Derek";
- $author2->name = "Whoever";
-
- $a->associate( $book, $author1 );
- $a->associate( $book, $author2 );
-
- pass();
-
- testpack( "Test Association Issue Group keyword (Issues 9 and 10)" );
-
- R::nuke();
-
- $group = $redbean->dispense( "group" );
-
- $group->name = "mygroup";
-
- $redbean->store( $group );
-
- try {
- $a->associate( $group, $book );
-
- pass();
- } catch ( SQL $e ) {
- fail();
- }
-
- // Test issue SQL error 23000
- try {
- $a->associate( $group, $book );
-
- pass();
- } catch ( SQL $e ) {
- fail();
- }
-
- asrt( (int) $adapter->getCell( "select count(*) from book_group" ), 1 ); //just 1 rec!
- }
-
- /**
- * Test various.
- * Test various somewhat uncommon trash/unassociate scenarios.
- * (i.e. unassociate unrelated beans, trash non-persistant beans etc).
- * Should be handled gracefully - no output checking.
- *
- * @return void
- */
- public function testVaria()
- {
- $toolbox = R::getToolBox();
- $redbean = $toolbox->getRedBean();
-
- $a = new AssociationManager( $toolbox );
-
- $book = $redbean->dispense( "book" );
- $author1 = $redbean->dispense( "author" );
- $author2 = $redbean->dispense( "author" );
-
- $book->title = "My First Post";
-
- $author1->name = "Derek";
- $author2->name = "Whoever";
-
- $a->unassociate( $book, $author1 );
- $a->unassociate( $book, $author2 );
-
- pass();
-
- $redbean->trash( $redbean->dispense( "bla" ) );
-
- pass();
-
- $bean = $redbean->dispense( "bla" );
-
- $bean->name = 1;
- $bean->id = 2;
-
- $redbean->trash( $bean );
-
- pass();
- }
-
- /**
- * Test special types.
- *
- * @return void
- */
- public function testTypes()
- {
- testpack( 'Special data types' );
-
- $bean = R::dispense( 'bean' );
-
- $bean->date = 'someday';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['date'], 'text' );
-
- $bean = R::dispense( 'bean' );
-
- $bean->date = '2011-10-10';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['date'], 'text' );
- }
-
- /**
- * Test dates.
- *
- * @return void
- */
- public function testTypesDates()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->date = '2011-10-10';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['date'], 'date' );
- }
-
- /**
- * Datetime.
- *
- * @return void
- */
- public function testTypesDateTimes()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->date = '2011-10-10 10:00:00';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['date'], 'timestamp without time zone' );
- }
-
- /**
- * Test spatial data types.
- *
- * @return void
- */
- public function testTypesPoints()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->point = '(92,12)';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['point'], 'point' );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->point, '(92,12)' );
-
- $bean->note = 'taint';
-
- R::store( $bean );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->point, '(92,12)' );
- }
-
- /**
- * Test points.
- *
- * @return void
- */
- public function testTypesDecPoints()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->point = '(9.2,1.2)';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['point'], 'point' );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->point, '(9.2,1.2)' );
-
- $bean->note = 'taint';
-
- R::store( $bean );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->point, '(9.2,1.2)' );
- }
-
- /**
- * Test polygons.
- *
- * @return void
- */
- public function testPolygons()
- {
- $bean = R::dispense( 'bean' );
- $bean->polygon = '((0,0),(1,1),(2,0))';
- R::store( $bean );
- $cols = R::getColumns( 'bean' );
- asrt( $cols['polygon'], 'polygon' );
- $bean = R::load( 'bean', $bean->id );
- asrt( $bean->polygon, '((0,0),(1,1),(2,0))' );
- $bean->note = 'taint';
- R::store( $bean );
- $bean = R::load( 'bean', $bean->id );
- asrt( $bean->polygon, '((0,0),(1,1),(2,0))' );
- $bean = R::dispense( 'bean' );
- $bean->polygon = '((0,0),(1.2,1),(2,0.3))';
- R::store( $bean );
- $cols = R::getColumns( 'bean' );
- asrt( $cols['polygon'], 'polygon' );
- $bean = R::load( 'bean', $bean->id );
- asrt( $bean->polygon, '((0,0),(1.2,1),(2,0.3))' );
- $bean->note = 'taint';
- R::store( $bean );
- $bean = R::load( 'bean', $bean->id );
- asrt( $bean->polygon, '((0,0),(1.2,1),(2,0.3))' );
- }
-
- /**
- * Test multi points.
- *
- * @return void
- */
- public function testTypesMultiDecPoints()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->line = '[(1.2,1.4),(2.2,34)]';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['line'], 'lseg' );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->line, '[(1.2,1.4),(2.2,34)]' );
-
- $bean->note = 'taint';
-
- R::store( $bean );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->line, '[(1.2,1.4),(2.2,34)]' );
- }
-
- /**
- * More points...
- *
- * @return void
- */
- public function testTypesWeirdPoints()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->circle = '<(9.2,1.2),7.9>';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['circle'], 'circle' );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->circle, '<(9.2,1.2),7.9>' );
-
- $bean->note = 'taint';
-
- R::store( $bean );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->circle, '<(9.2,1.2),7.9>' );
- }
-
- /**
- * Test money types.
- *
- * @return void
- */
- public function testTypesMon()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->amount = '22.99';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['amount'], 'numeric' );
-
- R::nuke();
-
- $bean = R::dispense( 'bean' );
-
- $bean->amount = '-22.99';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['amount'], 'numeric' );
- }
-
- /**
- * Test money data type.
- *
- * @return void
- */
- public function testTypesMoney()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->money = '$123.45';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['money'], 'money' );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->money, '$123.45' );
-
- $bean->note = 'taint';
-
- R::store( $bean );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->money, '$123.45' );
-
- $bean->money = '$123,455.01';
-
- R::store($bean);
-
- $bean = $bean->fresh();
-
- asrt( $bean->money, '$123,455.01' );
-
- }
-
- /**
- * Test negative money data type.
- *
- * @return void
- */
- public function testTypesNegativeMoney()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->money = '-$123.45';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['money'], 'money' );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->money, '-$123.45' );
-
- $bean->note = 'taint';
-
- R::store( $bean );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->money, '-$123.45' );
- }
-
- /**
- * Issue #340
- * Redbean is currently picking up bcrypt hashed passwords
- * (which look like this: $2y$12$85lAS....SnpDNVGPAC7w0G)
- * as PostgreSQL money types.
- * Then, once R::store is called on the bean, it chokes and throws the following error:
- * PHP Fatal error: Uncaught [22P02] - SQLSTATE[22P02]: Invalid text representation: 7 ERROR:
- * invalid input syntax for type money: ....
- *
- * @return void
- */
- public function testTypesInvalidMoney()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->nomoney = '$2y$12$85lAS';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['nomoney'], 'text' );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->nomoney, '$2y$12$85lAS' );
-
- $bean->note = 'taint';
-
- R::store( $bean );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->nomoney, '$2y$12$85lAS' );
- }
-
- /**
- * Test types of strings.
- *
- * @return void
- */
- public function testTypesStrings()
- {
- $bean = R::dispense( 'bean' );
-
- $bean->data = 'abcdefghijk';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['data'], 'text' );
-
- $bean = R::load( 'bean', $bean->id );
-
- asrt( $bean->data, 'abcdefghijk' );
-
- $bean->data = '(1,2)';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['data'], 'text' );
-
- $bean->data = '[(1.2,1.4),(2.2,34)]';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['data'], 'text' );
-
- $bean->data = '<(9.2,1.2),7.9>';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['data'], 'text' );
-
- $bean->data = '$25';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['data'], 'text' );
-
- $bean->data = '2012-10-10 10:00:00';
-
- R::store( $bean );
-
- $cols = R::getColumns( 'bean' );
-
- asrt( $cols['data'], 'text' );
- }
-}