Relax overly aggressive exception-well-formedness checks from 84e4e006

[dbsrgits/DBIx-Class.git] / t / 33exception_wrap.t

diff --git a/t/33exception_wrap.t b/t/33exception_wrap.t
index 40a7ea0..3b351ab 100644 (file)
--- a/t/33exception_wrap.t
+++ b/t/33exception_wrap.t
@@ -38,6 +38,15 @@ for my $ap (qw(
     isa_ok $@, $ap;
   } qr/\QObjects of external exception class '$ap' stringify to '' (the empty string)/,
     'Proper warning on encountered antipattern';
+
+  warnings_are {
+    $@ = $ap->new;
+    $schema->txn_do (sub { 1 });
+
+    $@ = $ap->new;
+    $schema->txn_scope_guard->commit;
+  } [], 'No spurious PSA warnings on pre-existing antipatterns in $@';
+
 }
 
 done_testing;