From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 17 Sep 2018 01:22:55 +0000 (+0000)
Subject: more debugging in tests
X-Git-Tag: v1.90_01~449
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=e817ab40ca5eb82456d50865e6ac3908f931ced6;p=dbsrgits%2FSQL-Abstract.git

more debugging in tests
---

diff --git a/t/04modifiers.t b/t/04modifiers.t
index 702c299..a271b32 100644
--- a/t/04modifiers.t
+++ b/t/04modifiers.t
@@ -393,7 +393,7 @@ for my $case (@and_or_tests) {
         \@bind,
         $case->{stmt},
         $case->{bind},
-      ) || diag_where( $case->{where} );
+      ) || (diag_where ( $case->{where} ), diag dumper ([ EXP => $sql->_expand_expr($case->{where}) ]));
     } [], 'No warnings within and-or tests';
 
     is_deeply ($case->{where}, $where_copy, 'Where conditions unchanged');
@@ -414,7 +414,7 @@ for my $case (@nest_tests) {
         \@bind,
         $case->{stmt},
         $case->{bind},
-      ) || diag_where ( $case->{where} );
+      ) || (diag_where ( $case->{where} ), diag dumper ([ EXP => $sql->_expand_expr($case->{where}) ]));
     });
   }
 }
diff --git a/t/05in_between.t b/t/05in_between.t
index 14c8f4e..b435c48 100644
--- 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}) });
     }
   }
 }