all tests pass and impl actually makes sense

[dbsrgits/SQL-Abstract.git] / t / 06order_by.t

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