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;