order_by: added passing test
Moritz Onken [Fri, 29 May 2009 16:28:54 +0000 (16:28 +0000)]
t/06order_by.t

index 9822d61..3a29b3d 100644 (file)
@@ -93,6 +93,12 @@ my @cases =
     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',