patch by Norbert BUCHMULLER: arguments to 'where' that are blessed objects with a...

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

diff --git a/t/06order_by.t b/t/06order_by.t
index 20ca3f4..1cf06c9 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 = 
   (
    {
@@ -43,6 +44,11 @@ my @cases =
     expects => ' ORDER BY colA, colB DESC',
     expects_quoted => ' ORDER BY `colA`, `colB` DESC',
    },
+   {
+    given => undef,
+    expects => '',
+    expects_quoted => '',
+   },
   );
 
 my $sql  = SQL::Abstract->new;