[Bast-commits] r6454 - SQL-Abstract/1.x/trunk/t

[mo at dev.catalyst.perl.org]

Author: mo
Date: 2009-05-29 16:28:54 +0000 (Fri, 29 May 2009)
New Revision: 6454

Modified:
   SQL-Abstract/1.x/trunk/t/06order_by.t
Log:
order_by: added passing test

Modified: SQL-Abstract/1.x/trunk/t/06order_by.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/06order_by.t	2009-05-29 15:41:10 UTC (rev 6453)
+++ SQL-Abstract/1.x/trunk/t/06order_by.t	2009-05-29 16:28:54 UTC (rev 6454)
@@ -93,6 +93,12 @@
     bind => ['test'],
    },
    {
+    given => \['colA LIKE ? DESC', 'test'],
+    expects => ' ORDER BY colA LIKE ? DESC',
+    expects_quoted => ' ORDER BY colA LIKE ? DESC',
+    bind => ['test'],
+   },
+   {
     given => [ { -asc => \['colA'] }, { -desc => \['colB LIKE ?', 'test'] }, { -asc => \['colC LIKE ?', 'tost'] }],
     expects => ' ORDER BY colA ASC, colB LIKE ? DESC, colC LIKE ? ASC',
     expects_quoted => ' ORDER BY colA ASC, colB LIKE ? DESC, colC LIKE ? ASC',