498c828caa9c94f4327fbec57fbe30422c703bb0
[dbsrgits/DBIx-Class.git] / t / search / deprecated_attributes.t
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;