use lib qw(t/lib);
use DBICTest;
-plan tests => 9;
-
# Set up the "usual" sqlite for DBICTest
my $schema = DBICTest->init_schema;
like($@, qr/DBICTest::Exception is handling this: floob/);
-# This usage is a bit unusual but it was actually seen in the wild
-eval {
-
- my $dbh = $schema->storage->dbh;
- undef $schema;
-
- $dbh->do ('glaring_syntax_error;');
-};
-like($@, qr/DBI Exception.+do failed/, 'Exception thrown even after $storage is destroyed');
-
+done_testing;
'DBI exceptions properly handled by dbic-installed callback'
);
+# This usage is a bit unusual but it was actually seen in the wild
# destruction of everything except the $dbh should use the proper
# exception fallback: