added failing test for -desc => \['colA LIKE ?', 'test']

diff --git a/t/06order_by.t b/t/06order_by.t
index 71b9dc2..7d2ccf4 100644 (file)
--- a/t/06order_by.t
+++ b/t/06order_by.t
@@ -86,6 +86,11 @@ my @cases =
     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',
+   },
   );