t/storage/deprecated_exception_source_bind_attrs.t

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