one more test and some simple docs

[scpubgit/Q-Branch.git] / t / 06order_by.t

diff --git a/t/06order_by.t b/t/06order_by.t
index 2fdd43a..20ca3f4 100644 (file)
--- a/t/06order_by.t
+++ b/t/06order_by.t
@@ -38,6 +38,11 @@ my @cases =
     expects => ' ORDER BY colA ASC, colB DESC',
     expects_quoted => ' ORDER BY `colA` ASC, `colB` DESC',
    },
+   {
+    given => ['colA', {-desc => 'colB'}],
+    expects => ' ORDER BY colA, colB DESC',
+    expects_quoted => ' ORDER BY `colA`, `colB` DESC',
+   },
   );
 
 my $sql  = SQL::Abstract->new;