5 #$schema->storage->debugfh(IO::File->new('t/var/temp.trace', 'w'));
6 $schema->storage->debugcb( sub{ $queries++ } );
8 eval "use DBD::SQLite";
9 plan skip_all => 'needs DBD::SQLite for testing' if $@;
13 my $cd = $schema->resultset("CD")->find(1);
18 $schema->storage->debug(1);
22 is($queries, 1, 'liner_notes (might_have) not prefetched - do not load
23 liner_notes on update');
25 $schema->storage->debug(0);
28 my $cd2 = $schema->resultset("CD")->find(2, {prefetch => 'liner_notes'});
33 $schema->storage->debug(1);
37 is($queries, 1, 'liner_notes (might_have) prefetched - do not load
38 liner_notes on update');
40 $schema->storage->debug(0);