more debugging in tests

[scpubgit/Q-Branch.git] / t / 05in_between.t

diff --git a/t/05in_between.t b/t/05in_between.t
index 14c8f4e..b435c48 100644 (file)
--- a/t/05in_between.t
+++ b/t/05in_between.t
@@ -315,7 +315,7 @@ for my $case (@in_between_tests) {
         $case->{stmt},
         $case->{bind},
         "$label generates correct SQL and bind",
-      ) || diag_where ( $case->{where} );
+      ) || diag dumper ({ where => $case->{where}, exp => $sql->_expand_expr($case->{where}) });
     }
   }
 }