use lib qw(t/lib);
use DBICTest;
-plan tests => 6;
+plan tests => 9;
# Set up the "usual" sqlite for DBICTest
my $schema = DBICTest->init_schema;
# Basic check, normal exception
eval { throwex };
+my $e = $@; # like() seems to stringify $@
+like($@, $ex_regex);
+
+# Re-throw the exception with rethrow()
+eval { $e->rethrow };
+isa_ok( $@, 'DBIx::Class::Exception' );
like($@, $ex_regex);
# Now lets rethrow via exception_action
# While we're at it, lets throw a custom exception through Storage::DBI
eval { $schema->storage->throw_exception('floob') };
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');
+