--- /dev/null
+<?php
+
+namespace RedUNIT\Mysql;
+
+use RedUNIT\Mysql as Mysql;
+use RedBeanPHP\Facade as R;
+use RedBeanPHP\RedException\SQL as SQL;
+
+/**
+ * Parambind
+ *
+ * Tests the parameter binding functionality in RedBeanPHP.
+ * These test scenarios include for instance: NULL handling,
+ * binding parameters in LIMIT clauses and so on.
+ *
+ * @file RedUNIT/Mysql/Parambind.php
+ * @desc Tests\PDO parameter binding.
+ * @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 Parambind extends Mysql
+{
+ /**
+ * Test parameter binding with\PDO.
+ *
+ * @return void
+ */
+ public function testPDOParameterBinding()
+ {
+ $toolbox = R::getToolBox();
+ $adapter = $toolbox->getDatabaseAdapter();
+ $writer = $toolbox->getWriter();
+ $redbean = $toolbox->getRedBean();
+ $pdo = $adapter->getDatabase();
+ R::getDatabaseAdapter()->getDatabase()->setUseStringOnlyBinding( TRUE );
+ try {
+ R::getAll( "select * from job limit ? ", array( 1 ) );
+ fail();
+ } catch (\Exception $e ) {
+ pass();
+ }
+ try {
+ R::getAll( "select * from job limit :l ", array( ":l" => 1 ) );
+ fail();
+ } catch (\Exception $e ) {
+ pass();
+ }
+ try {
+ R::exec( "select * from job limit ? ", array( 1 ) );
+ fail();
+ } catch (\Exception $e ) {
+ pass();
+ }
+ try {
+ R::exec( "select * from job limit :l ", array( ":l" => 1 ) );
+ fail();
+ } catch (\Exception $e ) {
+ pass();
+ }
+ R::getDatabaseAdapter()->getDatabase()->setUseStringOnlyBinding( FALSE );
+ try {
+ R::getAll( "select * from job limit ? ", array( 1 ) );
+ pass();
+ } catch (\Exception $e ) {
+ fail();
+ }
+ try {
+ R::getAll( "select * from job limit :l ", array( ":l" => 1 ) );
+ pass();
+ } catch (\Exception $e ) {
+ fail();
+ }
+ try {
+ R::exec( "select * from job limit ? ", array( 1 ) );
+ pass();
+ } catch (\Exception $e ) {
+ fail();
+ }
+ try {
+ R::exec( "select * from job limit :l ", array( ":l" => 1 ) );
+ pass();
+ } catch (\Exception $e ) {
+ fail();
+ }
+ testpack( "Test findOrDispense" );
+ $person = R::findOrDispense( "person", " job = ? ", array( "developer" ) );
+ asrt( ( count( $person ) > 0 ), TRUE );
+ $person = R::findOrDispense( "person", " job = ? ", array( "musician" ) );
+ asrt( ( count( $person ) > 0 ), TRUE );
+ $musician = array_pop( $person );
+ asrt( intval( $musician->id ), 0 );
+ try {
+ $adapter->exec( "an invalid query" );
+ fail();
+ } catch ( SQL $e ) {
+ pass();
+ }
+ asrt( (int) $adapter->getCell( "SELECT 123" ), 123 );
+ asrt( (int) $adapter->getCell( "SELECT ?", array( "987" ) ), 987 );
+ asrt( (int) $adapter->getCell( "SELECT ?+?", array( "987", "2" ) ), 989 );
+ asrt( (int) $adapter->getCell( "SELECT :numberOne+:numberTwo", array(
+ ":numberOne" => 42, ":numberTwo" => 50 ) ), 92 );
+ $pair = $adapter->getAssoc( "SELECT 'thekey','thevalue' " );
+ asrt( is_array( $pair ), TRUE );
+ asrt( count( $pair ), 1 );
+ asrt( isset( $pair["thekey"] ), TRUE );
+ asrt( $pair["thekey"], "thevalue" );
+ testpack( 'Test whether we can properly bind and receive NULL values' );
+ asrt( $adapter->getCell( 'SELECT :nil ', array( ':nil' => 'NULL' ) ), 'NULL' );
+ asrt( $adapter->getCell( 'SELECT :nil ', array( ':nil' => NULL ) ), NULL );
+ asrt( $adapter->getCell( 'SELECT ? ', array( 'NULL' ) ), 'NULL' );
+ asrt( $adapter->getCell( 'SELECT ? ', array( NULL ) ), NULL );
+ }
+}