my $schema = DBICTest->init_schema;
+my $e_start = quotemeta('DBIx::Class::');
+
warnings_are ( sub {
- throws_ok (sub {
- $schema->resultset('CD')->create({ title => 'vacation in antarctica' });
- }, qr/NULL/); # as opposed to some other error
+ throws_ok (
+ sub {
+ $schema->resultset('CD')->create({ title => 'vacation in antarctica' })
+ },
+ qr/$e_start.+constraint failed.+NULL/s
+ ); # as opposed to some other error
}, [], 'No warnings besides exception' );
+my $dbh = $schema->storage->dbh;
+
+throws_ok (
+ sub {
+ $dbh->do ('INSERT INTO nonexistent_table VALUES (1)')
+ },
+ qr/$e_start.+DBI Exception.+no such table/,
+ 'DBI exceptions properly handled by dbic-installed callback'
+);
+
+# destruction of everything except the $dbh should use the proper
+# exception fallback:
+
+# FIXME
+# These explicit disconnections on loss of $storage don't seem
+# right... disable it here for the test anyway
+{
+ local $dbh->{Callbacks}{disconnect} = sub { 1 };
+
+ undef ($schema);
+ throws_ok (
+ sub {
+ $dbh->do ('INSERT INTO nonexistent_table VALUES (1)')
+ },
+ qr/DBI Exception.+unhandled by DBIC.+no such table/,
+ 'callback works after $schema is gone'
+ );
+}
+
done_testing;