Check for extra warnings, and diag input and output

We want to test the _lack_ of warnings as well, and having the input and
output is handy for figuring out what's wrong.

diff --git a/t/01generate.t b/t/01generate.t
index e3737ff..7e641f7 100644 (file)
--- a/t/01generate.t
+++ b/t/01generate.t
@@ -655,10 +655,10 @@ for my $t (@tests) {
       ) || diag dumper ({ args => $t->{args}, result => $stmt });
     }
     else {
-      warnings_exist(
+      warnings_like(
         sub { $cref->() },
         $t->{warns} || [],
-      );
+      ) || diag dumper ({ args => $t->{args}, result => $stmt });
 
       is_same_sql_bind(
         $stmt,