Yaffs site version 1.1
[yaffs-website] / vendor / gabordemooij / redbean / testing / RedUNIT / Base / Finding.php
diff --git a/vendor/gabordemooij/redbean/testing/RedUNIT/Base/Finding.php b/vendor/gabordemooij/redbean/testing/RedUNIT/Base/Finding.php
new file mode 100644 (file)
index 0000000..1765dcd
--- /dev/null
@@ -0,0 +1,861 @@
+<?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\OODBBean as OODBBean;
+use RedBeanPHP\RedException as RedException;
+use RedBeanPHP\RedException\SQL as SQL;
+
+/**
+ * Finding
+ *
+ * Tests whether we can find beans by passing SQL queries to the
+ * Facade or the Finder Service Class.
+ *
+ * @file    RedUNIT/Base/Finding.php
+ * @desc    Tests finding beans.
+ * @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 Finding extends Base {
+
+       /**
+        * Helper for testing findLike.
+        *
+        * @param array   $flowers beans
+        * @param boolean $noSort  sorting?
+        *
+        * @return string
+        */
+       private function getColors( $flowers, $noSort = FALSE )
+       {
+               $colors = array();
+               foreach( $flowers as $flower ) $colors[] = $flower->color;
+               if ( !$noSort) sort( $colors );
+               return implode( ',', $colors );
+       }
+
+       /**
+        * Inserts data for findMulti-tests.
+        *
+        * @return void
+        */
+       private function insertBookData()
+       {
+               list( $books, $pages, $texts, $categories ) = R::dispenseAll( 'book*5,page*25,text*60,category*3' );
+               $texts[0]->content = 'C is a beautiful language.';
+               $texts[1]->content = 'But also a bit dangerous.';
+               $texts[2]->content = 'You need to know what you are doing.';
+               $texts[3]->content = 'Javascript is very flexible.';
+               $texts[4]->content = 'It can be anything you want...';
+               $texts[5]->content = 'But it can lead to chaos.';
+               $texts[6]->content = 'CSS was meant for documents';
+               $texts[7]->content = 'Now we use it for applications...';
+               $texts[8]->content = 'PHP is an easy language to learn,';
+               $texts[9]->content = 'Maybe a bit too easy...';
+               $texts[10]->content = 'SQL is much more powerful than you think.';
+               $pages[0]->ownTextList = array( $texts[0], $texts[1] );
+               $pages[1]->ownTextList = array( $texts[2] );
+               $pages[2]->ownTextList = array( $texts[3] );
+               $pages[3]->ownTextList = array( $texts[4] );
+               $pages[4]->ownTextList = array( $texts[5] );
+               $pages[5]->ownTextList = array( $texts[6], $texts[7] );
+               $pages[6]->ownTextList = array( $texts[8] );
+               $pages[7]->ownTextList = array( $texts[9] );
+               $pages[8]->ownTextList = array( $texts[10] );
+               $books[0]->ownPageList = array( $pages[0], $pages[1] );
+               $books[1]->ownPageList = array( $pages[2], $pages[3], $pages[4] );
+               $books[2]->ownPageList = array( $pages[5] );
+               $books[3]->ownPageList = array( $pages[6], $pages[7] );
+               $books[4]->ownPageList = array( $pages[8] );
+               $books[0]->title = 'Diehard C';
+               $books[1]->title = 'Adventures in JavaScript';
+               $books[2]->title = 'CSS ala Picasso';
+               $books[3]->title = 'PHP Tips and Tricks';
+               $books[4]->title = 'Secrets of SQL';
+               $categories[0]->name = 'Programming';
+               $categories[1]->name = 'Design';
+               $categories[2]->name = 'Web Development';
+               $books[0]->sharedCategoryList = array( $categories[0] );
+               $books[1]->sharedCategoryList = array( $categories[0], $categories[2] );
+               $books[2]->sharedCategoryList = array( $categories[0], $categories[2], $categories[1] );
+               $books[3]->sharedCategoryList = array( $categories[0], $categories[2] );
+               $books[4]->sharedCategoryList = array( $categories[0], $categories[2] );
+               R::storeAll( $books );
+       }
+
+       /**
+        * A custom record-to-bean mapping function for findMulti test.
+        *
+        * @param string $parentName name of the parent bean
+        * @param string $childName  name of the child bean
+        *
+        * @return array
+        */
+       private function map($parentName,$childName) {
+               return array(
+                       'a' => $parentName,
+                       'b' => $childName,
+                       'matcher' => function( $parent, $child ) use ( $parentName ) {
+                               $property = "{$parentName}ID";
+                               return ( $child->$property == $parent->id );
+                       },
+                       'do' => function( $parent, $child ) use ( $childName ) {
+                               $list = 'own'.ucfirst( $childName ).'List';
+                               $parent->noLoad()->{$list}[] = $child;
+                       }
+               );
+       }
+
+       /**
+        * FindMulti should not throw errors in case of
+        * a record-type mismatch.
+        *
+        * @return void
+        */
+       public function testFindMultiErrorHandling()
+       {
+               $result = R::findMulti('a,b', array());
+               asrt( is_array( $result ), TRUE );
+               asrt( count( $result ), 2 );
+               asrt( isset( $result['a'] ), TRUE );
+               asrt( isset( $result['b'] ), TRUE );
+               asrt( is_array( $result['a'] ), TRUE );
+               asrt( is_array( $result['b'] ), TRUE );
+               asrt( count( $result['a'] ), 0 );
+               asrt( count( $result['b'] ), 0 );
+               pass();
+               $result = R::findMulti( 'book', array(
+                               array( 'book__title' => 'The missing ID.' )
+               ) );
+               asrt( is_array( $result ), TRUE );
+               asrt( count( $result ), 1 );
+               asrt( isset( $result['book'] ), TRUE );
+               asrt( is_array( $result['book'] ), TRUE );
+               asrt( count( $result['book'] ), 0 );
+               pass();
+       }
+
+       /**
+        * You can build your own mapping functions to remap records to bean.
+        * Just like the preloader once did. However now you can define the
+        * mapping yourself using closures. This test verifies that such a
+        * function would actually work.
+        *
+        * This method also tests whether empty records (resulting from LEFT JOINS for
+        * instance) do not produce unnecessary, empty beans.
+        *
+        * @return void
+        */
+       public function testFindMultiExtFunc()
+       {
+               R::nuke();
+               $shop = R::dispense( 'shop' );
+               $shop2 = R::dispense( 'shop' );
+               $products = R::dispense( 'product', 3 );
+               $price = R::dispense( 'price' );
+               $price->tag = 5;
+               $products[0]->name = 'vase';
+               $products[1]->name = 'candle';
+               $products[2]->name = 'plate';
+               $products[1]->ownPriceList[] = $price;
+               $shop->ownProduct[] = $products[0];
+               $shop->ownProduct[] = $products[1];
+               $shop2->ownProduct[] = $products[2];
+               R::storeAll( array( $shop, $shop2 ) );
+               $collection = R::findMulti( 'shop,product,price', '
+                       SELECT shop.*, product.*, price.* FROM shop
+                       LEFT JOIN product ON product.shop_id = shop.id
+                       LEFT JOIN price ON price.product_id = product.id
+               ', array(), array(
+                       '0' => $this->map( 'shop', 'product' ),
+                       '1' => $this->map( 'product', 'price' ),
+               ));
+               asrt( is_array( $collection ), TRUE );
+               asrt( count( $collection ), 3 );
+               asrt( count( $collection['shop'] ), 2 );
+               asrt( count( $collection['product'] ), 3 );
+               asrt( count( $collection['price'] ), 1 );
+               $shop = reset( $collection['shop'] );
+               asrt( count( $shop->ownProductList ), 2 );
+               $shop2 = next( $collection['shop'] );
+               asrt( count( $shop2->ownProductList ), 1 );
+               $candle = NULL;
+               foreach( $shop->ownProduct as $product ) {
+                               if ( $product->name == 'candle' ) {
+                                       $candle = $product;
+                               }
+               }
+               asrt( is_null( $candle ), FALSE );
+               asrt( count( $candle->ownPrice ), 1 );
+               asrt( $candle->name, 'candle' );
+               $price = reset( $candle->ownPrice );
+               asrt( (int) $price->tag, 5 );
+       }
+
+       /**
+        * Test findMuli with self-made arrays.
+        *
+        * @return void
+        */
+       public function testFindMultiDirectArray()
+       {
+               R::nuke();
+               $collection = R::findMulti( 'shop,product', array(
+                       array( 'shop__id' => 1, 'product__id' => 1, 'product__name' => 'vase', 'product__shop_id' => 1 ),
+                       array( 'shop__id' => 1, 'product__id' => 2, 'product__name' => 'candle', 'product__shop_id' => 1 ),
+                       array( 'shop__id' => 1, 'product__id' => 3, 'product__name' => 'plate', 'product__shop_id' => 1 ),
+               ) );
+               asrt( is_array( $collection ), TRUE );
+               asrt( isset( $collection['shop'] ), TRUE );
+               asrt( isset( $collection['product'] ), TRUE );
+               asrt( (int) $collection['shop'][1]->id, 1 );
+               asrt( (int) $collection['product'][1]->id, 1 );
+               asrt( (int) $collection['product'][2]->id, 2 );
+               asrt( (int) $collection['product'][3]->id, 3 );
+               asrt( (int) $collection['product'][1]->shopID, 1 );
+               asrt( (int) $collection['product'][2]->shopID, 1 );
+               asrt( (int) $collection['product'][3]->shopID, 1 );
+               asrt( $collection['product'][1]->name, 'vase' );
+               asrt( $collection['product'][2]->name, 'candle' );
+               asrt( $collection['product'][3]->name, 'plate' );
+               R::nuke();
+               $shop = R::dispense('shop');
+               $shop2 = R::dispense('shop');
+               $products = R::dispense('product', 3);
+               $price = R::dispense('price');
+               $price->tag = 5;
+               $products[0]->name = 'vase';
+               $products[1]->name = 'candle';
+               $products[2]->name = 'plate';
+               $products[1]->ownPriceList[] = $price;
+               $shop->ownProduct = $products;
+               R::store($shop);
+               $collection = R::findMulti('shop,product,price', '
+                       SELECT shop.*, product.*, price.* FROM shop
+                       LEFT JOIN product ON product.shop_id = shop.id
+                       LEFT JOIN price ON price.product_id = product.id
+               ', array(), array(
+                       '0' => $this->map('shop', 'product'),
+                       '1' => $this->map('product', 'price'),
+               ));
+               $collection = R::findMulti( 'shop,product', array(
+                       array( 'shop__id' => 1, 'product__id' => 1, 'product__name' => 'vase', 'product__shop_id' => 1 ),
+                       array( 'shop__id' => 1, 'product__id' => 2, 'product__name' => 'candle', 'product__shop_id' => 1 ),
+                       array( 'shop__id' => 1, 'product__id' => 3, 'product__name' => 'plate', 'product__shop_id' => 1 ),
+                       array( 'shop__id' => 1, 'product__id' => 2, 'product__name' => 'candle', 'product__shop_id' => 1)
+               ), array(), array(
+                       array(
+                               'a' => 'shop',
+                               'b' => 'product',
+                               'matcher' => function( $a, $b ) { return ( $b->shopID == $a->id ); },
+                               'do'      => function( $a, $b ) { return $a->noLoad()->ownProductList[] = $b; }
+                       )
+               ) );
+               asrt( is_array( $collection ), TRUE );
+               asrt( isset( $collection['shop'] ), TRUE );
+               asrt( isset( $collection['product'] ), TRUE );
+               asrt( (int) $collection['shop'][1]->id, 1 );
+               asrt( (int) $collection['product'][1]->id, 1 );
+               asrt( (int) $collection['product'][2]->id, 2 );
+               asrt( (int) $collection['product'][3]->id, 3 );
+               asrt( (int) $collection['product'][1]->shopID, 1 );
+               asrt( (int) $collection['product'][2]->shopID, 1 );
+               asrt( (int) $collection['product'][3]->shopID, 1 );
+               asrt( $collection['product'][1]->name, 'vase' );
+               asrt( $collection['product'][2]->name, 'candle' );
+               asrt( $collection['product'][3]->name, 'plate' );
+               asrt( isset( $collection['shop'][1]->ownProductList ), TRUE );
+               asrt( is_array( $collection['shop'][1]->ownProductList ), TRUE );
+               asrt( count( $collection['shop'][1]->ownProductList ), 3 );
+               asrt( $collection['shop'][1]->ownProductList[0]->name, 'vase' );
+               asrt( $collection['shop'][1]->ownProductList[1]->name, 'candle' );
+               asrt( $collection['shop'][1]->ownProductList[2]->name, 'plate' );
+       }
+
+       /**
+        * Test findMulti() with manual crafted fields.
+        *
+        * @return void
+        */
+       public function testFindMultiDIY()
+       {
+               R::nuke();
+               $movie = R::dispense( 'movie' );
+               $review = R::dispense( 'review' );
+               $movie->ownReviewList[] = $review;
+               $review->stars = 5;
+               $movie->title = 'Gambit';
+               R::store( $movie );
+               $stuff = R::findMulti( 'movie,review', 'SELECT
+                       movie.id AS movie__id,
+                       movie.title AS movie__title,
+                       review.id AS review__id,
+                       review.stars AS review__stars,
+                       review.movie_id AS review__movie_id
+                       FROM movie
+                       LEFT JOIN review ON review.movie_id = movie.id
+               ' );
+               asrt( count( $stuff ), 2 );
+               asrt( isset( $stuff['movie'] ), TRUE );
+               asrt( isset( $stuff['review'] ), TRUE );
+               asrt( is_array( $stuff['movie'] ), TRUE );
+               asrt( is_array( $stuff['review'] ), TRUE );
+               asrt( count( $stuff['movie'] ), 1 );
+               asrt( count( $stuff['review'] ), 1 );
+               $movie = reset( $stuff['movie'] );
+               asrt( $movie->title, 'Gambit' );
+               $review = reset( $stuff['review'] );
+               asrt( (int) $review->stars, 5 );
+               R::nuke();
+               $movie = R::dispense( 'movie' );
+               $review = R::dispense( 'review' );
+               $movie->ownReviewList[] = $review;
+               $review->stars = 5;
+               $movie->title = 'Gambit';
+               R::store( $movie );
+               $stuff = R::findMulti( array( 'movie', 'review' ), 'SELECT
+                       movie.id AS movie__id,
+                       movie.title AS movie__title,
+                       review.id AS review__id,
+                       review.stars AS review__stars,
+                       review.movie_id AS review__movie_id
+                       FROM movie
+                       LEFT JOIN review ON review.movie_id = movie.id
+               ' );
+               asrt( count( $stuff ), 2 );
+               asrt( isset( $stuff['movie'] ), TRUE );
+               asrt( isset( $stuff['review'] ), TRUE );
+               asrt( is_array( $stuff['movie'] ), TRUE );
+               asrt( is_array( $stuff['review'] ), TRUE );
+               asrt( count( $stuff['movie'] ), 1 );
+               asrt( count( $stuff['review'] ), 1 );
+               $movie = reset( $stuff['movie'] );
+               asrt( $movie->title, 'Gambit' );
+               $review = reset( $stuff['review'] );
+               asrt( (int) $review->stars, 5 );
+       }
+
+       /**
+        * Test findMulti(). Basic version.
+        *
+        * @return void
+        */
+       public function testFindMulti()
+       {
+               $book = R::dispense( 'book' );
+               $book->title = 'My Book';
+               $book->ownPageList = R::dispense( 'page', 3 );
+               $no = 1;
+               foreach( $book->ownPageList as $page ) {
+                       $page->num = $no++;
+               }
+               R::store( $book );
+               $collection = R::findMulti( 'book,page', '
+                       SELECT book.*, page.* FROM book
+                       LEFT JOIN page ON page.book_id = book.id
+               ' );
+               asrt( count( $collection ), 2 );
+               asrt( isset( $collection['book'] ), TRUE );
+               asrt( isset( $collection['page'] ), TRUE );
+               asrt( count( $collection['book'] ), 1 );
+               asrt( count( $collection['page'] ), 3 );
+               foreach( $collection['book'] as $bean ) asrt( ( $bean instanceof OODBBean ), TRUE );
+               foreach( $collection['page'] as $bean ) asrt( ( $bean instanceof OODBBean ), TRUE );
+               $book = reset( $collection['book'] );
+               asrt( $book->title, 'My Book' );
+               $no = 1;
+               foreach( $collection['page'] as $page ) asrt( (int) $page->num, $no++ );
+               R::nuke();
+               $book->noLoad()->ownPageList = $collection['page'];
+               asrt( count( $book->ownPageList ), 3 );
+       }
+
+       /**
+        * Tests the complex use case for findMulti().
+        *
+        * @return void
+        */
+       public function testMultiAdvanced()
+       {
+               $this->insertBookData();
+               $collection = R::findMulti( 'book,page,text,category', '
+                       SELECT book.*, page.*, text.*, category.*
+                       FROM book
+                       LEFT JOIN page ON page.book_id = book.id
+                       LEFT JOIN text ON text.page_id = page.id
+                       LEFT JOIN book_category ON book_category.book_id = book.id
+                       LEFT JOIN category ON book_category.category_id = category.id
+               ' );
+               asrt( count( $collection ), 4 );
+               asrt( isset( $collection['book'] ), TRUE );
+               asrt( isset( $collection['page'] ), TRUE );
+               asrt( isset( $collection['text'] ), TRUE );
+               asrt( isset( $collection['category'] ), TRUE );
+               asrt( count( $collection['book'] ), 5 );
+               asrt( count( $collection['page'] ), 9 );
+               asrt( count( $collection['text'] ), 11 );
+               asrt( count( $collection['category'] ), 3 );
+               foreach( $collection['book'] as $bean ) asrt( ( $bean instanceof OODBBean ), TRUE );
+               foreach( $collection['page'] as $bean ) asrt( ( $bean instanceof OODBBean ), TRUE );
+               foreach( $collection['text'] as $bean ) asrt( ( $bean instanceof OODBBean ), TRUE );
+               foreach( $collection['category'] as $bean ) asrt( ( $bean instanceof OODBBean ), TRUE );
+               foreach( $collection['book']  as $book ) $titles[] = $book->title;
+               asrt( in_array( 'Diehard C', $titles ), TRUE );
+               asrt( in_array( 'Adventures in JavaScript', $titles ), TRUE );
+               asrt( in_array( 'CSS ala Picasso', $titles ), TRUE );
+               asrt( in_array( 'PHP Tips and Tricks', $titles ), TRUE );
+               asrt( in_array( 'Secrets of SQL', $titles ), TRUE );
+               $collection = R::findMulti( 'book,page,text,category,book_category', '
+                       SELECT book.*, page.*, text.*, category.*, book_category.*
+                       FROM book
+                       LEFT JOIN page ON page.book_id = book.id
+                       LEFT JOIN text ON text.page_id = page.id
+                       LEFT JOIN book_category ON book_category.book_id = book.id
+                       LEFT JOIN category ON book_category.category_id = category.id
+                       WHERE category_id > ?
+                       ORDER BY book.title ASC
+               ', array( 0 ), array(
+                               array(
+                                       'b'=>'page',
+                                       'a'=>'text',
+                                       'do' => function( $a, $b ) {
+                                               $b->noLoad()->ownTextList[] = $a;
+                                               $b->clearHistory();
+                                       },
+                                       'matcher' => function( $a, $b ){ return ($a->page_id == $b->id);  }
+                                       ),
+                               array(
+                                       'b'=>'book',
+                                       'a'=>'page',
+                                       'do' => function( $a, $b ) {
+                                               $b->noLoad()->ownPageList[] = $a;
+                                               $b->clearHistory();
+                                       },
+                                       'matcher' => function( $a, $b ){ return ($a->book_id == $b->id);  }
+                                       ),
+                               array(
+                                       'b' => 'category',
+                                       'a' => 'book',
+                                       'do'  => function($a, $b) {
+                                               $a->noLoad()->sharedCategoryList[] = $b;
+                                               $a->clearHistory();
+                                       },
+                                       'matcher' => function( $a, $b, $beans ) {
+                                               foreach( $beans['book_category'] as $bean ) {
+                                                       if ( $bean->book_id == $a->id && $bean->category_id == $b->id ) return TRUE;
+                                               }
+                                               return FALSE;
+                                       }
+                               ),
+                       )
+               );
+               $books = $collection['book'];
+               $book = reset( $books );
+               asrt( $book->title, 'Adventures in JavaScript' );
+               R::nuke();
+               asrt( count( $book->ownPageList ), 3 );
+               $page = reset( $book->ownPageList );
+               asrt( count( $page->ownTextList ), 1 );
+               asrt( count( $book->sharedCategoryList ), 2);
+               $categories = array();
+               foreach( $book->sharedCategoryList as $category ) {
+                       $categories[] = $category->name;
+               }
+               sort( $categories );
+               asrt( implode( ',', $categories ), 'Programming,Web Development' );
+               $book = next( $books );
+               asrt( $book->title, 'CSS ala Picasso' );
+               asrt( count( $book->ownPage ), 1 );
+               $page = reset( $book->ownPage );
+               asrt( count( $page->ownTextList ), 2 );
+               $texts = array();
+               foreach( $page->ownTextList as $text ) $texts[] = $text->content;
+               asrt( in_array( 'Now we use it for applications...', $texts ), TRUE );
+               $categories = array();
+               foreach( $book->sharedCategoryList as $category ) {
+                       $categories[] = $category->name;
+               }
+               sort( $categories );
+               asrt( implode( ',', $categories ), 'Design,Programming,Web Development' );
+               $book = next( $books );
+               asrt( $book->title, 'Diehard C' );
+               asrt( count( $book->ownPageList ), 2 );
+               $page = reset( $book->ownPageList );
+               asrt( count( $page->ownTextList ), 2 );
+               $page = next( $book->ownPageList );
+               asrt( count( $page->ownTextList ), 1 );
+               $categories = array();
+               foreach( $book->sharedCategoryList as $category ) {
+                       $categories[] = $category->name;
+               }
+               sort( $categories );
+               asrt( implode( ',', $categories ), 'Programming' );
+               //should have no effect, nothing should have changed
+               R::storeAll($books);
+               asrt( R::count('book'), 0 );
+               asrt( R::count('page'), 0 );
+               asrt( R::count('text'), 0 );
+       }
+
+       /**
+        * Test forming IN-clause using genSlots and flat.
+        *
+        * @return void
+        */
+       public function testINClause()
+       {
+               list( $flowers, $shop ) = R::dispenseAll( 'flower*4,shop' );
+               $flowers[0]->color = 'red';
+               $flowers[1]->color = 'yellow';
+               $flowers[2]->color = 'blue';
+               $flowers[3]->color = 'purple';
+               $flowers[0]->price = 10;
+               $flowers[1]->price = 15;
+               $flowers[2]->price = 20;
+               $flowers[3]->price = 25;
+               $shop->xownFlowerList = $flowers;
+               R::store( $shop );
+               $colors = array( 'red', 'yellow' );
+               $result = $this->getColors( R::find( 'flower', ' color IN ('.R::genSlots( $colors ).' ) AND price < ?' , R::flat( array( $colors, 100 ) ) ) );
+               asrt( $result, 'red,yellow' );
+               $colors = array( 'red', 'yellow' );
+               $result = $this->getColors( R::find( 'flower', ' color IN ('.R::genSlots( $colors ).' ) AND price < ?' , R::flat( array( $colors, 10 ) ) ) );
+               asrt( $result, '' );
+               $colors = array( 'red', 'yellow' );
+               $result = $this->getColors( R::find( 'flower', ' color IN ('.R::genSlots( $colors ).' ) AND price < ?' , R::flat( array( $colors, 15 ) ) ) );
+               asrt( $result, 'red' );
+               asrt( json_encode( R::flat( array( 'a', 'b', 'c' ) ) ), '["a","b","c"]' );
+               asrt( json_encode( R::flat( array( 'a', array( 'b' ), 'c' ) ) ), '["a","b","c"]' );
+               asrt( json_encode( R::flat( array( 'a', array( 'b', array( 'c' ) ) ) ) ), '["a","b","c"]' );
+               asrt( json_encode( R::flat( array( array( 'a', array( 'b', array( array( 'c' ) ) ) ) ) ) ), '["a","b","c"]' );
+               asrt( json_encode( R::flat( array( 'a', 'b', 'c', array() ) ) ), '["a","b","c"]' );
+               asrt( genslots( array( 1, 2 ) ), '?,?' );
+               asrt( json_encode( array_flatten( array( array( 'a', array( 'b', array( array( 'c' ) ) ) ) ) ) ), '["a","b","c"]' );
+               asrt( genslots( array( 1, 2 ), 'IN (%s) AND' ), 'IN (?,?) AND' );
+               asrt( genslots( array(), ' IN (%s) AND ' ), '' );
+               $colors = array( 'blue', 'purple', 'red' );
+               $flowers = R::find( 'flower', genslots( $colors, ' color IN (%s) AND ' ).' price > ? ', array_flatten( array( $colors, 11 ) ) );
+               asrt( $this->getColors( $flowers ), 'blue,purple' );
+               $flowers = R::find( 'flower', genslots( array(), ' color IN (%s) AND ' ).' price > ? ', array_flatten( array( array(), 11 ) ) );
+               asrt( $this->getColors( $flowers ), 'blue,purple,yellow' );
+               $flowers = R::find( 'flower', ' id > 0 AND '.genslots( $colors, ' color IN (%s) AND ' ).' price > ? ', array_flatten( array( $colors, 11 ) ) );
+               asrt( $this->getColors( $flowers ), 'blue,purple' );
+               $flowers = R::find( 'flower', ' id > 0 AND '.genslots( array(), ' color IN (%s) AND ' ).' price > ? ', array_flatten( array( array(), 11 ) ) );
+               asrt( $this->getColors( $flowers ), 'blue,purple,yellow' );
+       }
+
+       /**
+        * Test findLike.
+        *
+        * @return void
+        */
+       public function testFindLike2()
+       {
+               list( $flowers, $shop ) = R::dispenseAll( 'flower*4,shop' );
+               $flowers[0]->color = 'red';
+               $flowers[1]->color = 'yellow';
+               $flowers[2]->color = 'blue';
+               $flowers[3]->color = 'purple';
+               $flowers[0]->price = 10;
+               $flowers[1]->price = 15;
+               $flowers[2]->price = 20;
+               $flowers[3]->price = 25;
+               $shop->xownFlowerList = $flowers;
+               R::store( $shop );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array( 'red', 'yellow' )  ), ' price < 20' ) ), 'red,yellow' );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array()  ), '' ) ), 'blue,purple,red,yellow' );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array()  ) ) ), 'blue,purple,red,yellow' );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array('blue')  ), ' OR price = 25' ) ), 'blue,purple' );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array()  ), ' price < 25' ) ), 'blue,red,yellow' );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array()  ), ' price < 20' ) ), 'red,yellow' );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array()  ), ' ORDER BY color DESC' ), TRUE ), 'yellow,red,purple,blue' );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array()  ), ' ORDER BY color LIMIT 1' ) ), 'blue' );
+               asrt( $this->getColors( R::findLike( 'flower', array( 'color' => array( 'yellow', 'blue' )  ), ' ORDER BY color ASC  LIMIT 1' ) ), 'blue' );
+       }
+
+       /**
+        * Tests the findOrCreate method.
+        *
+        * @return void
+        */
+       public function testFindOrCreate()
+       {
+               R::nuke();
+               $book = R::findOrCreate( 'book', array( 'title' => 'my book', 'price' => 50 ) );
+               asrt( ( $book instanceof OODBBean ), TRUE );
+               $id = $book->id;
+               $book = R::findOrCreate( 'book', array( 'title' => 'my book', 'price' => 50 ) );
+               asrt( $book->id, $id );
+               asrt( $book->title, 'my book' );
+               asrt( (int) $book->price, 50 );
+       }
+
+       /**
+        * Tests the findLike method.
+        *
+        * @return void
+        */
+       public function testFindLike()
+       {
+               R::nuke();
+               $book = R::dispense( array(
+                       '_type' => 'book',
+                       'title' => 'my book',
+                       'price' => 80
+               ) );
+               R::store( $book );
+               $book = R::dispense( array(
+                       '_type' => 'book',
+                       'title' => 'other book',
+                       'price' => 80
+               ) );
+               R::store( $book );
+               $books = R::findLike( 'book', array( 'price' => 80 ) );
+               asrt( count( $books ), 2 );
+               foreach( $books as $book ) {
+                       asrt( $book->getMeta( 'type' ), 'book' );
+               }
+               $books = R::findLike( 'book' );
+               asrt( count( $books ), 2 );
+               $books = R::findLike( 'book', array( 'title' => 'my book' ) );
+               asrt( count( $books ), 1 );
+               $books = R::findLike( 'book', array( 'title' => array( 'my book', 'other book' ) ) );
+               asrt( count( $books ), 2 );
+               $books = R::findLike( 'book', array( 'title' => 'strange book') );
+               asrt( is_array( $books ), TRUE );
+               asrt( count( $books ), 0 );
+               $books = R::findLike( 'magazine' );
+               asrt( is_array( $books ), TRUE );
+               asrt( count( $books ), 0 );
+       }
+
+       /**
+        * Test whether findOne gets a LIMIT 1
+        * clause.
+        *
+        * @return void
+        */
+       public function testFindOneLimitOne()
+       {
+               R::nuke();
+               list( $book1, $book2 ) = R::dispense( 'book', 2 );
+               $book1->title = 'a';
+               $book2->title = 'b';
+               R::storeAll( array( $book1, $book2 ) );
+               $logger = R::debug( 1, 1 );
+               $logger->clear();
+               $found = R::findOne( 'book' );
+               asrt( count( $logger->grep('LIMIT 1') ), 1 );
+               asrt( ( $found instanceof \RedBeanPHP\OODBBean ), TRUE );
+               $logger->clear();
+               $found = R::findOne( 'book', ' title = ? ', array( 'a' ) );
+               asrt( count( $logger->grep('LIMIT 1') ), 1 );
+               asrt( ( $found instanceof \RedBeanPHP\OODBBean ), TRUE );
+               $logger->clear();
+               $found = R::findOne( 'book', ' title = ? LIMIT 1', array( 'b' ) );
+               asrt( count( $logger->grep('LIMIT 1') ), 1 );
+               $logger->clear();
+               $found = R::findOne( 'book', ' title = ? limit 1', array( 'b' ) );
+               asrt( count( $logger->grep('LIMIT 1') ), 0 );
+               asrt( count( $logger->grep('limit 1') ), 1 );
+               asrt( ( $found instanceof \RedBeanPHP\OODBBean ), TRUE );
+               $found = R::findOne( 'book', ' title = ? LIMIT 2', array( 'b' ) );
+               asrt( count( $logger->grep('LIMIT 2') ), 1 );
+               asrt( ( $found instanceof \RedBeanPHP\OODBBean ), TRUE );
+       }
+
+       /**
+        * Begin testing.
+        * This method runs the actual test pack.
+        *
+        * @return void
+        */
+       public function testFinding()
+       {
+               $toolbox = R::getToolBox();
+               $adapter = $toolbox->getDatabaseAdapter();
+               $writer  = $toolbox->getWriter();
+               $redbean = $toolbox->getRedBean();
+               $pdo     = $adapter->getDatabase();
+               $a = new AssociationManager( $toolbox );
+               $page = $redbean->dispense( "page" );
+               $page->name = "John's page";
+               $idpage = $redbean->store( $page );
+               $page2 = $redbean->dispense( "page" );
+               $page2->name = "John's second page";
+               $idpage2 = $redbean->store( $page2 );
+               $a->associate( $page, $page2 );
+               $pageOne = $redbean->dispense( "page" );
+               $pageOne->name = "one";
+               $pageMore = $redbean->dispense( "page" );
+               $pageMore->name = "more";
+               $pageEvenMore = $redbean->dispense( "page" );
+               $pageEvenMore->name = "evenmore";
+               $pageOther = $redbean->dispense( "page" );
+               $pageOther->name = "othermore";
+               set1toNAssoc( $a, $pageOther, $pageMore );
+               set1toNAssoc( $a, $pageOne, $pageMore );
+               set1toNAssoc( $a, $pageOne, $pageEvenMore );
+               asrt( count( $redbean->find( "page", array(), " name LIKE '%more%' ", array() ) ), 3 );
+               asrt( count( $redbean->find( "page", array(), " name LIKE :str ", array( ":str" => '%more%' ) ) ), 3 );
+               asrt( count( $redbean->find( "page", array(), array( " name LIKE :str ", array( ":str" => '%more%' ) ) ) ), 3 );
+               asrt( count( $redbean->find( "page", array(), " name LIKE :str ", array( ":str" => '%mxore%' ) ) ), 0 );
+               asrt( count( $redbean->find( "page", array( "id" => array( 2, 3 ) ) ) ), 2 );
+               $bean = $redbean->dispense( "wine" );
+               $bean->name = "bla";
+               for ( $i = 0; $i < 10; $i++ ) {
+                       $redbean->store( $bean );
+               }
+               $redbean->find( "wine", array( "id" => 5 ) ); //  Finder:where call OODB::convertToBeans
+               $bean2 = $redbean->load( "anotherbean", 5 );
+               asrt( $bean2->id, 0 );
+               $keys = $adapter->getCol( "SELECT id FROM page WHERE " . $writer->esc( 'name' ) . " LIKE '%John%'" );
+               asrt( count( $keys ), 2 );
+               $pages = $redbean->batch( "page", $keys );
+               asrt( count( $pages ), 2 );
+               $p = R::findLast( 'page' );
+               pass();
+               $row = R::getRow( 'select * from page ' );
+               asrt( is_array( $row ), TRUE );
+               asrt( isset( $row['name'] ), TRUE );
+               // Test findAll -- should not throw an exception
+               asrt( count( R::findAll( 'page' ) ) > 0, TRUE );
+               asrt( count( R::findAll( 'page', ' ORDER BY id ' ) ) > 0, TRUE );
+               $beans = R::findOrDispense( "page" );
+               asrt( count( $beans ), 6 );
+               asrt( is_null( R::findLast( 'nothing' ) ), TRUE );
+               try {
+                       R::find( 'bean', ' id > 0 ', 'invalid bindings argument' );
+                       fail();
+               } catch ( RedException $exception ) {
+                       pass();
+               }
+               R::nuke();
+               $bean = R::findOneOrDispense( 'jellybean' );
+               asrt( is_object( $bean ), TRUE );
+       }
+
+       /**
+        * Test tree traversal with searchIn().
+        *
+        * @return void
+        */
+       public function testTreeTraversal()
+       {
+               testpack( 'Test Tree Traversal' );
+               R::nuke();
+               $page = R::dispense( 'page', 10 );
+               //Setup the test data for this series of tests
+               $i = 0;
+               foreach( $page as $pageItem ) {
+                       $pageItem->name = 'page' . $i;
+                       $pageItem->number = $i;
+                       $i++;
+                       R::store( $pageItem );
+               }
+               $page[0]->ownPage  = array( $page[1], $page[2] );
+               $page[1]->ownPage  = array( $page[3], $page[4] );
+               $page[3]->ownPage  = array( $page[5] );
+               $page[5]->ownPage  = array( $page[7] );
+               $page[9]->document = $page[8];
+               $page[9]->book = R::dispense('book');
+               R::store( $page[9] );
+               $id = R::store( $page[0] );
+               $book = $page[9]->book;
+       }
+
+       /**
+        * Test find and export.
+        *
+        * @return void
+        */
+       public function testFindAndExport()
+       {
+               R::nuke();
+               $pages = R::dispense( 'page', 3 );
+               $i = 1;
+               foreach( $pages as $page ) {
+                       $page->pageNumber = $i++;
+               }
+               R::storeAll( $pages );
+               $pages = R::findAndExport( 'page' );
+               asrt( is_array( $pages ), TRUE );
+               asrt( isset( $pages[0] ), TRUE );
+               asrt( is_array( $pages[0] ), TRUE );
+               asrt( count( $pages ), 3 );
+       }
+
+       /**
+       * Test error handling of SQL states.
+       *
+       * @return void
+       */
+       public function testFindError()
+       {
+               R::freeze( FALSE );
+               $page = R::dispense( 'page' );
+               $page->title = 'abc';
+               R::store( $page );
+               //Column does not exist, in fluid mode no error!
+               try {
+                       R::find( 'page', ' xtitle = ? ', array( 'x' ) );
+                       pass();
+               } catch ( SQL $e ) {
+                       fail();
+               }
+               //Table does not exist, in fluid mode no error!
+               try {
+                       R::find( 'pagex', ' title = ? ', array( 'x' ) );
+                       pass();
+               } catch ( SQL $e ) {
+                       fail();
+               }
+               //Syntax error, error in fluid mode if possible to infer from SQLSTATE (MySQL/Postgres)
+               try {
+                       R::find( 'page', ' invalid SQL ' );
+                       //In SQLite only get HY000 - not very descriptive so suppress more errors in fluid mode then.
+                       if (
+                       $this->currentlyActiveDriverID === 'sqlite'
+                       || $this->currentlyActiveDriverID === 'CUBRID' ) {
+                               pass();
+                       } else {
+                               fail();
+                       }
+               } catch ( SQL $e ) {
+                       pass();
+               }
+               //Frozen, always error...
+               R::freeze( TRUE );
+               //Column does not exist, in frozen mode error!
+               try {
+                       R::find( 'page', ' xtitle = ? ', array( 'x' ) );
+                       fail();
+               } catch ( SQL $e ) {
+                       pass();
+               }
+               //Table does not exist, in frozen mode error!
+               try {
+                       R::find( 'pagex', ' title = ? ', array( 'x' ) );
+                       fail();
+               } catch ( SQL $e ) {
+                       pass();
+               }
+               //Syntax error, in frozen mode error!
+               try {
+                       R::find( 'page', ' invalid SQL ' );
+                       fail();
+               } catch ( SQL $e ) {
+                       pass();
+               }
+               R::freeze( FALSE );
+       }
+}