moved internal test module into published SQL/Abstract/Test, so that clients of SQLA...

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

diff --git a/t/06order_by.t b/t/06order_by.t
index 2fdd43a..08477ec 100644 (file)
--- a/t/06order_by.t
+++ b/t/06order_by.t
@@ -6,6 +6,7 @@ use Test::More;
 
 use SQL::Abstract;
 
+use SQL::Abstract::Test qw/is_same_sql_bind/;
 my @cases = 
   (
    {
@@ -38,6 +39,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;