X-Git-Url: http://www.aleph1.co.uk/gitweb/?p=yaffs-website;a=blobdiff_plain;f=vendor%2Fgabordemooij%2Fredbean%2Ftesting%2FRedUNIT%2FBase%2FFinding.php;fp=vendor%2Fgabordemooij%2Fredbean%2Ftesting%2FRedUNIT%2FBase%2FFinding.php;h=1765dcd61969db78b5f00e48fc70ad4fa0e6d32a;hp=0000000000000000000000000000000000000000;hb=eba34333e3c89f208d2f72fa91351ad019a71583;hpb=a2bd1bf0c2c1f1a17d188f4dc0726a45494cefae

diff --git a/vendor/gabordemooij/redbean/testing/RedUNIT/Base/Finding.php b/vendor/gabordemooij/redbean/testing/RedUNIT/Base/Finding.php
new file mode 100644
index 000000000..1765dcd61
--- /dev/null
+++ b/vendor/gabordemooij/redbean/testing/RedUNIT/Base/Finding.php
@@ -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 );
+	}
+}