use Test::More;
use Test::Exception;
use Test::Warn;
+use Scalar::Util 'weaken';
use DBICTest;
} $exp_warn, 'Proper warning on encountered antipattern';
}
+# ensure we do not get into an infloop
+{
+ weaken( my $s = $schema );
+
+ $schema->exception_action(sub{
+ $s->throw_exception(@_)
+ });
+
+ throws_ok {
+ $schema->storage->dbh_do(sub {
+ $_[1]->do('wgwfwfwghawhjsejsethjwetjesjesjsejsetjes')
+ } )
+ } qr/syntax error/i;
+}
+
done_testing;