Make POD more readable, add a (failing) multikey order_by test

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

diff --git a/t/06order_by.t b/t/06order_by.t
index d404aa3..2a3f7b6 100644 (file)
--- a/t/06order_by.t
+++ b/t/06order_by.t
@@ -80,6 +80,11 @@ my @cases =
     expects => ' ORDER BY colA DESC, colB DESC, colC DESC',
     expects_quoted => ' ORDER BY `colA` DESC, `colB` DESC, `colC` DESC',
    },
+   {
+    given => [{-desc => [ qw/colA colB/ ], -asc => [ qw/colC colD/ ] }],
+    expects => ' ORDER BY colA DESC, colB DESC, colC ASC, colD ASC',
+    expects_quoted => ' ORDER BY `colA` DESC, `colB` DESC, `colC` ASC, `colD` ASC',
+   },
 
   );