Parameterize pagination

[dbsrgits/DBIx-Class.git] / t / sqlmaker / bind_transport.t

diff --git a/t/sqlmaker/bind_transport.t b/t/sqlmaker/bind_transport.t
index 493dd62..cd93245 100644 (file)
--- a/t/sqlmaker/bind_transport.t
+++ b/t/sqlmaker/bind_transport.t
@@ -5,6 +5,12 @@ use Test::More;
 use lib qw(t/lib);
 use DBICTest;
 use DBIC::SqlMakerTest;
+use DBIx::Class::SQLMaker::LimitDialects;
+
+my ($ROWS, $OFFSET) = (
+   DBIx::Class::SQLMaker::LimitDialects->__rows_bindtype,
+   DBIx::Class::SQLMaker::LimitDialects->__offset_bindtype,
+);
 
 my $schema = DBICTest->init_schema();
 
@@ -36,19 +42,19 @@ for (1,2) {
       GROUP BY me.cdid, me.artist - ?
       HAVING me.artist < ?
       ORDER BY me.artist * ?
-      LIMIT 1 OFFSET 2
+      LIMIT ? OFFSET ?
     )',
     [
-      [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' }
-        => 666 ],
+      [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' } => 666 ],
       [ { dbic_colname => '_ne' } => 'bar' ],
       [ { dbic_colname => '_add' } => 1 ],
-      [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' }
-        => 666 ],
+      [ { sqlt_datatype => 'integer', dbic_colname => 'me.artist' } => 666 ],
       [ { dbic_colname => '_ne' } => 'bar' ],
       [ { dbic_colname => '_sub' } => 2 ],
       [ { dbic_colname => '_lt' } => 3 ],
       [ { dbic_colname => '_mu' } => 4 ],
+      [ $ROWS => 1 ],
+      [ $OFFSET => 2 ],
     ],
     'Correct crazy sql',
   );