1 BEGIN { do "./t/lib/ANFANG.pm" or die ( $@ || $! ) }
11 my $schema = DBICTest->init_schema( no_populate => 1, quote_names => 1 );
13 $schema->resultset('CD')->create({
16 artist => { name => 'JMJ' },
17 genre => { name => 'electro' },
28 artist => { name => 'JMJ' },
33 my $cd = $schema->resultset('CD')->search({ single_track => { '!=', undef } })->first;
35 $schema->is_executed_sql_bind(
36 sub { is( eval{$cd->single_track_opaque->title}, 'o1', 'Found correct single track' ) },
39 'SELECT "me"."trackid", "me"."cd", "me"."position", "me"."title", "me"."last_updated_on", "me"."last_updated_at"
42 ON me.trackid = cd__row.single_track
43 WHERE "cd__row"."cdid" = ?
46 { dbic_colname => "cd__row.cdid", sqlt_datatype => "integer" }