Remove support for source_bind_attributes() as promised in 0e773352a

[dbsrgits/DBIx-Class.git] / t / storage / deprecated_exception_source_bind_attrs.t

diff --git a/t/storage/deprecated_exception_source_bind_attrs.t b/t/storage/deprecated_exception_source_bind_attrs.t
new file mode 100644 (file)
index 0000000..f6dca5a
--- /dev/null
+++ b/t/storage/deprecated_exception_source_bind_attrs.t
@@ -0,0 +1,30 @@
+use strict;
+use warnings;
+
+use Test::More;
+use Test::Warn;
+use Test::Exception;
+use lib qw(t/lib);
+use DBICTest;
+
+{
+  package DBICTest::Legacy::Storage;
+  use base 'DBIx::Class::Storage::DBI::SQLite';
+
+  use Data::Dumper::Concise;
+
+  sub source_bind_attributes { return {} }
+}
+
+
+my $schema = DBICTest::Schema->clone;
+$schema->storage_type('DBICTest::Legacy::Storage');
+$schema->connection('dbi:SQLite::memory:');
+
+throws_ok
+  { $schema->storage->ensure_connected }
+  qr/\Qstorage subclass DBICTest::Legacy::Storage provides (or inherits) the method source_bind_attributes()/,
+  'deprecated use of source_bind_attributes throws',
+;
+
+done_testing;