From: Matt S Trout <mst@shadowcat.co.uk>
Date: Mon, 25 Mar 2019 01:57:43 +0000 (+0000)
Subject: improve 04modifiers diagnostics
X-Git-Tag: v2.000000~3^2~359
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=ce367bd7288823c7d0509c5c487151b8896801ae;p=dbsrgits%2FSQL-Abstract.git

improve 04modifiers diagnostics
---

diff --git a/t/04modifiers.t b/t/04modifiers.t
index 9a1dfb1..027b5d9 100644
--- a/t/04modifiers.t
+++ b/t/04modifiers.t
@@ -387,13 +387,15 @@ for my $case (@and_or_tests) {
     my $where_copy = dclone($case->{where});
 
     warnings_are {
-      my ($stmt, @bind) = $sql->where($case->{where});
-      is_same_sql_bind(
-        $stmt,
-        \@bind,
-        $case->{stmt},
-        $case->{bind},
-      ) || (diag_where ( $case->{where} ), diag dumper ([ EXP => $sql->_expand_expr($case->{where}) ]));
+      lives_ok {
+        my ($stmt, @bind) = $sql->where($case->{where});
+        is_same_sql_bind(
+          $stmt,
+          \@bind,
+          $case->{stmt},
+          $case->{bind},
+        ) || (diag_where ( $case->{where} ), diag dumper ([ EXP => $sql->_expand_expr($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');