1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
11 my $schema = DBICTest->init_schema();
13 my $cd_rs = $schema->resultset("CD")->search({ 'me.cdid' => 1 });
16 my $cd = $cd_rs->search( undef, {
17 cols => [ { name => 'artist.name' } ],
22 { $cd->get_inflated_columns },
23 { name => 'Caterwauler McCrae' },
24 'cols attribute still works',
26 }, qr/Resultset attribute 'cols' is deprecated/,
27 'deprecation warning when passing cols attribute');
30 my $cd = $cd_rs->search_rs( undef, {
31 include_columns => [ { name => 'artist.name' } ],
36 $cd->get_column('name'),
38 'include_columns attribute still works',
40 }, qr/Resultset attribute 'include_columns' is deprecated/,
41 'deprecation warning when passing include_columns attribute');