Commit | Line | Data |
e42bbd7f |
1 | use strict; |
2 | use warnings; |
3 | use Test::More; |
4 | use Test::Warn; |
5 | |
6 | use lib qw(t/lib); |
7 | use DBICTest; |
8 | |
9 | warnings_exist { DBICTest->init_schema( compose_connection => 1, sqlite_use_file => 1 ) } |
10 | [ |
11 | qr/compose_connection deprecated as of 0\.08000/, |
12 | qr/\QDBIx::Class::ResultSetProxy is DEPRECATED/, |
13 | ], |
14 | 'got expected deprecation warnings' |
15 | ; |
16 | |
17 | cmp_ok(DBICTest->resultset('Artist')->count, '>', 0, 'count is valid'); |
18 | |
65d35121 |
19 | # cleanup globals so we do not trigger the leaktest |
20 | for ( map { DBICTest->schema->class($_) } DBICTest->schema->sources ) { |
21 | $_->class_resolver(undef); |
22 | $_->resultset_instance(undef); |
23 | $_->result_source_instance(undef); |
24 | } |
25 | { |
26 | no warnings qw/redefine once/; |
27 | *DBICTest::schema = sub {}; |
28 | } |
29 | |
e42bbd7f |
30 | done_testing; |