Commit | Line | Data |
c0329273 |
1 | BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) } |
2 | |
97202028 |
3 | use strict; |
4 | use warnings; |
5 | |
6 | use Test::More; |
7 | use Test::Warn; |
8 | use Test::Exception; |
c0329273 |
9 | |
97202028 |
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; |