Commit | Line | Data |
11343b34 |
1 | use strict; |
2 | use warnings; |
3 | |
4 | use Test::More; |
5 | use Test::Warn; |
6 | use lib qw(t/lib); |
7 | use DBICTest; |
8 | |
9 | my $schema = DBICTest->init_schema(); |
10 | |
11 | my $cd_rs = $schema->resultset("CD"); |
12 | |
13 | warnings_exist( sub { |
14 | $cd_rs->search_rs( undef, { cols => [ { name => 'artist.name' } ], join => [ 'artist' ] }) |
15 | }, qr/Resultset attribute 'cols' is deprecated/, |
16 | 'deprecation warning when passing cols attribute'); |
17 | |
18 | warnings_exist( sub { |
19 | $cd_rs->search_rs( undef, { |
20 | include_columns => [ { name => 'artist.name' } ], join => [ 'artist' ] |
21 | }) |
22 | }, qr/Resultset attribute 'include_columns' is deprecated/, |
23 | 'deprecation warning when passing include_columns attribute'); |
24 | |
25 | done_testing; |