t/storage/deprecated_exception_source_bind_attrs.t

   1 use strict;
   2 use warnings;
   3
   4 use Test::More;
   5 use Test::Warn;
   6 use Test::Exception;
   7 use lib qw(t/lib);
   8 use DBICTest;
   9 use DBICTest::Schema;
  10
  11 {
  12   package DBICTest::Legacy::Storage;
  13   use base 'DBIx::Class::Storage::DBI::SQLite';
  14
  15   use Data::Dumper::Concise;
  16
  17   sub source_bind_attributes { return {} }
  18 }
  19
  20
  21 my $schema = DBICTest::Schema->clone;
  22 $schema->storage_type('DBICTest::Legacy::Storage');
  23 $schema->connection('dbi:SQLite::memory:');
  24
  25 throws_ok
  26   { $schema->storage->ensure_connected }
  27   qr/\Qstorage subclass DBICTest::Legacy::Storage provides (or inherits) the method source_bind_attributes()/,
  28   'deprecated use of source_bind_attributes throws',
  29 ;
  30
  31 done_testing;