1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
10 my $schema = DBICTest->init_schema();
12 my $cds_rs = $schema->resultset('CD')->search(
15 'me.title' => "Caterwaulin' Blues",
16 'cds.title' => { '!=' => 'Forkful of bees' }
19 'me.title' => { '!=', => "Caterwaulin' Blues" },
20 'cds.title' => 'Forkful of bees'
24 order_by => [qw(me.cdid cds.title)],
25 prefetch => { artist => 'cds' },
26 result_class => 'DBIx::Class::ResultClass::HashRefInflator',
30 is_deeply [ $cds_rs->all ], [
32 'single_track' => undef,
37 'single_track' => undef,
40 'title' => 'Forkful of bees',
47 'name' => 'Caterwauler McCrae',
50 'title' => 'Spoonful of bees',
55 'single_track' => undef,
60 'single_track' => undef,
63 'title' => 'Forkful of bees',
70 'name' => 'Caterwauler McCrae',
73 'title' => 'Forkful of bees',
78 'single_track' => undef,
83 'single_track' => undef,
86 'title' => 'Caterwaulin\' Blues',
91 'single_track' => undef,
94 'title' => 'Spoonful of bees',
100 'charfield' => undef,
101 'name' => 'Caterwauler McCrae',
104 'title' => 'Caterwaulin\' Blues',
108 ], 'multi-level prefetch with restrictions ok';