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

[mo at dev.catalyst.perl.org]

Author: mo
Date: 2009-05-29 13:41:22 +0000 (Fri, 29 May 2009)
New Revision: 6452

Modified:
   SQL-Abstract/1.x/trunk/t/06order_by.t
Log:
added failing test for -desc => \['colA LIKE ?', 'test']

Modified: SQL-Abstract/1.x/trunk/t/06order_by.t
===================================================================
--- SQL-Abstract/1.x/trunk/t/06order_by.t	2009-05-28 19:07:12 UTC (rev 6451)
+++ SQL-Abstract/1.x/trunk/t/06order_by.t	2009-05-29 13:41:22 UTC (rev 6452)
@@ -86,6 +86,11 @@
     expects => ' ORDER BY colA ASC, colB DESC, colC ASC, colD ASC',
     expects_quoted => ' ORDER BY `colA` ASC, `colB` DESC, `colC` ASC, `colD` ASC',
    },
+   {
+    given => { -desc => \['colA LIKE ?', 'test'] },
+    expects => ' ORDER BY colA LIKE ? DESC',
+    expects_quoted => ' ORDER BY colA LIKE ? DESC',
+   },
   );