From: Moritz Onken <onken@netcubed.de>
Date: Fri, 29 May 2009 16:28:54 +0000 (+0000)
Subject: order_by: added passing test
X-Git-Tag: v1.70~153
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=16c7f71caed5610cbb5409bb5a17dd6f4c5861f2;p=dbsrgits%2FSQL-Abstract.git

order_by: added passing test
---

diff --git a/t/06order_by.t b/t/06order_by.t
index 9822d61..3a29b3d 100644
--- a/t/06order_by.t
+++ b/t/06order_by.t
@@ -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',