Author: Tim Retout <tim@retout.co.uk>
Author: Ansgar Burchardt <ansgar@43-1.org>
Bug-Debian: http://bugs.debian.org/531230
Bug-Debian: http://bugs.debian.org/576644
Forwarded: https://rt.cpan.org/Public/Bug/Display.html?id=47497
Last-Update: 2010-04-07
Description: SQL::Abstract 1.55 outputs cleaner SQL, so update 02main.t
 to expect it.

--- libclass-dbi-plugin-pager-perl.orig/t/02.main.t
+++ libclass-dbi-plugin-pager-perl/t/02.main.t
@@ -105,7 +105,7 @@
 
 $conf{ where } = [
     age  => {'<=', 80},
-    age  => {'=>', 20},
+    age  => {'>=', 20},
     city => 'Jerusalem',
     ];
 
@@ -116,7 +116,7 @@
 lives_ok { @results = $pager->search_where } 'search_where';
 is_deeply( \@results, [ @dataset, 
 			'TestApp', 
-			'( ( age <= ? ) AND ( age => ? ) AND ( city = ? ) ) ORDER BY fig LIMIT 10, 5',
+			'( ( age <= ? AND age >= ? AND city = ? ) ) ORDER BY fig LIMIT 10, 5',
 			'80', '20', 'Jerusalem',
 			], 
 			'arrayref where (named args) results' );
@@ -130,7 +130,7 @@
 
 $conf{ where } = [
     age  => {'<=', 80},
-    age  => {'=>', 20},
+    age  => {'>=', 20},
     city => 'Jerusalem',
     ];
 
@@ -142,7 +142,7 @@
 lives_ok { @results = $pager->search_where } 'search_where';
 is_deeply( \@results, [ @dataset, 
 			'TestApp', 
-			'( ( age <= ? ) AND ( age => ? ) AND ( city = ? ) ) ORDER BY fig ROWS 10 TO 15',
+			'( ( age <= ? AND age >= ? AND city = ? ) ) ORDER BY fig ROWS 10 TO 15',
 			'80', '20', 'Jerusalem',
 			], 
 			'arrayref where (positional args) results' );