From: Matt S Trout <mst@shadowcat.co.uk>
Date: Fri, 7 Sep 2018 22:47:24 +0000 (+0000)
Subject: better results from 01generate when a test unexpecteedly dies
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=3bea90ab6c0aebaa1bec690da5c11b5ef417d2bc;p=scpubgit%2FQ-Branch.git

better results from 01generate when a test unexpecteedly dies
---

diff --git a/t/01generate.t b/t/01generate.t
index ebe3aad..5437493 100644
--- a/t/01generate.t
+++ b/t/01generate.t
@@ -850,10 +850,12 @@ for my $t (@tests) {
       ) || diag dumper({ args => $t->{args}, result => $stmt });
     }
     else {
-      warnings_like(
-        sub { $cref->() },
-        $t->{warns} || [],
-      ) || diag dumper({ args => $t->{args}, result => $stmt });
+      lives_ok(sub {
+        warnings_like(
+          sub { $cref->() },
+          $t->{warns} || [],
+        ) || diag dumper({ args => $t->{args}, result => $stmt });
+      }) || diag dumper({ args => $t->{args}, result => $stmt, threw => $@ });
 
       is_same_sql_bind(
         $stmt,