Bug #47497 for Class-DBI-Plugin-Pager: Test failures with newer SQL::Abstract

Hi, attached is the patch applied in Debian to solve this problem. Starting with version 1.61, SQL::Abstract also dislikes the use of "=>" instead of the correct ">=". The patch addresses this issue as well. Please consider applying it in the next release. Regards, Ansgar

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 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' );