X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=blobdiff_plain;f=t%2F33exception_wrap.t;h=40a7ea052a80528fe7b94c19f6dc503497745423;hb=84e4e006;hp=fdee2305302b4ead58d256feaaf61d69fa3de163;hpb=4f29a592f18106f2b06660a1cb82911b0ebc2011;p=dbsrgits%2FDBIx-Class.git

diff --git a/t/33exception_wrap.t b/t/33exception_wrap.t
index fdee230..40a7ea0 100644
--- a/t/33exception_wrap.t
+++ b/t/33exception_wrap.t
@@ -3,6 +3,7 @@ use warnings;
 
 use Test::More;
 use Test::Exception;
+use Test::Warn;
 
 use lib qw(t/lib);
 
@@ -23,4 +24,20 @@ is_deeply (
   'Exception-arrayref contents preserved',
 );
 
+for my $ap (qw(
+  DBICTest::AntiPattern::TrueZeroLen
+  DBICTest::AntiPattern::NullObject
+)) {
+  eval "require $ap";
+
+  warnings_like {
+    eval {
+      $schema->txn_do (sub { die $ap->new });
+    };
+
+    isa_ok $@, $ap;
+  } qr/\QObjects of external exception class '$ap' stringify to '' (the empty string)/,
+    'Proper warning on encountered antipattern';
+}
+
 done_testing;