[Bast-commits] r6303 - DBIx-Class/0.08/trunk/t

[frew at dev.catalyst.perl.org]

Author: frew
Date: 2009-05-18 19:43:48 +0000 (Mon, 18 May 2009)
New Revision: 6303

Modified:
   DBIx-Class/0.08/trunk/t/42toplimit.t
Log:
Test to show problem

Modified: DBIx-Class/0.08/trunk/t/42toplimit.t
===================================================================
--- DBIx-Class/0.08/trunk/t/42toplimit.t	2009-05-18 19:43:19 UTC (rev 6302)
+++ DBIx-Class/0.08/trunk/t/42toplimit.t	2009-05-18 19:43:48 UTC (rev 6303)
@@ -43,3 +43,10 @@
       ],
       expected_sql_order => ['foo ASC, bar DESC, baz ASC, frew ASC', 'foo DESC, bar ASC, baz DESC, frew DESC']
   });
+
+  is_same_sql(
+     $sa->select( 'foo', [qw{ bar baz}], undef, {
+           group_by => 'bar',
+           order_by => 'bar',
+    }, 1, 3),
+    "SELECT * FROM ( SELECT TOP 1 * FROM ( SELECT TOP 4 bar,baz FROM foo ORDER BY bar ASC GROUP BY bar ) AS foo ORDER BY bar DESC ) AS bar ORDER BY bar ASC");