From: Matt S Trout 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');