X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F01generate.t;h=7e641f7448f172c41b6623c5d209c10e3d0fc9fe;hb=5eccd8f08ffd024b337650369ba4afadc05bd5bf;hp=e3737ffd421f3575f4c09075f22656514805f3f3;hpb=904c36212d6024755df9c19a5f32b3e8c290bcd4;p=dbsrgits%2FSQL-Abstract.git

diff --git a/t/01generate.t b/t/01generate.t
index e3737ff..7e641f7 100644
--- 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,